Ну, этот код:
Sub TheFirstWay()
Dim A As Range, B As Range
Set A = Range("A1:A100")
Set B = Range("B1:B100")
B.Value = A.Value
End Sub
может быть немного быстрее, чем этот код:
Sub TheSecondWay()
Dim A As Range, B As Range
Set A = Range("A1:A100")
Set B = Range("B1:B100")
B.Formula = "=A1"
End Sub
Но если вы продолжите изменять данные в столбце A , вам придется продолжать выполнять макрос TheFirstWay
.