Ну хорошо.
Посредством записи макроса записал простое нужное действие.
Смог повесить макрос на кнопку.
Недостаток - приходится нажимать кнопку 100 раз. Ну и понадобится прикрутить к делу ещё пару операций в будущем.
Сейчас пытаюсь разобраться с синтаксисом VBA Excel для реализации цикла For...Next со счётчиком. Пока ексель ругается и не даётся.
То, что работает и надо.
Код:
Sub Макрос1()
'
' Макрос1 Макрос
' Описание макроса
'
'
Range("Y21:Z30").Select
Selection.Copy
Range("T21:U30").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub
Мои попытки использовать цикла For...Next со счётчиком.
Код:
Sub Макрос1()
'
' Макрос1 Макрос
' 1
'
'Цикл
For N = 1 To "W11"
' Копирует диапазон ячеек
Range("Y21:Z30").Select
Selection.Copy
Range("T21:U30").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Next N
End Sub
Может быть по синтаксису подскажете ?
Посредством записи макроса записал простое нужное действие.
Смог повесить макрос на кнопку.
Недостаток - приходится нажимать кнопку 100 раз. Ну и понадобится прикрутить к делу ещё пару операций в будущем.
Сейчас пытаюсь разобраться с синтаксисом VBA Excel для реализации цикла For...Next со счётчиком. Пока ексель ругается и не даётся.
То, что работает и надо.
Код:
Sub Макрос1()
'
' Макрос1 Макрос
' Описание макроса
'
'
Range("Y21:Z30").Select
Selection.Copy
Range("T21:U30").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub
Мои попытки использовать цикла For...Next со счётчиком.
Код:
Sub Макрос1()
'
' Макрос1 Макрос
' 1
'
'Цикл
For N = 1 To "W11"
' Копирует диапазон ячеек
Range("Y21:Z30").Select
Selection.Copy
Range("T21:U30").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Next N
End Sub
Может быть по синтаксису подскажете ?