buonasera a tutti
Volevo sapere se è possibile trasformare questa sequenza in un ciclo for. nella colonna "a" le celle sono unite a gruppi di 4 (a2:a5 , a6:a9 ecc.)
Grazie
Sheets("Base").Activate
'
Range("b2:b5").Font.Color = Range("a2").Font.Color
Range("b2:b5").Value = Range("a2").Value
Range("b6:b9").Font.Color = Range("a6").Font.Color
Range("b6:b9").Value = Range("a6").Value
Range("b10:b13").Font.Color = Range("a10").Font.Color
Range("b10:b13").Value = Range("a10").Value
Range("b14:b17").Font.Color = Range("a14").Font.Color
Range("b14:b17").Value = Range("a14").Value
Range("b18:b21").Font.Color = Range("a18").Font.Color
Range("b18:b21").Value = Range("a18").Value
Range("b22:b25").Font.Color = Range("a22").Font.Color
Range("b22:b25").Value = Range("a22").Value
Range("b26:b29").Font.Color = Range("a26").Font.Color
Range("b26:b29").Value = Range("a26").Value
Range("b30:b33").Font.Color = Range("a30").Font.Color
Range("b30:b33").Value = Range("a30").Value
Range("b34:b37").Font.Color = Range("a34").Font.Color
Range("b34:b37").Value = Range("a34").Value
Range("b38:b41").Font.Color = Range("a38").Font.Color
Range("b38:b41").Value = Range("a38").Value
Range("b42:b45").Font.Color = Range("a42").Font.Color
Range("b42:b45").Value = Range("a42").Value
Range("b46:b49").Font.Color = Range("a46").Font.Color
Range("b46:b49").Value = Range("a46").Value
Range("b50:b53").Font.Color = Range("a50").Font.Color
Range("b50:b53").Value = Range("a50").Value