' указатели на объект типа Range и worksheet
Dim r1 As Range, r2 As Range, ws As Worksheet
' Выбираем лист, с коорым будем работать
'(в последствии можно
' пробегать по всем листам книги).
' вместо ThisWorkbook можно вставить что-то
' вроде Workbooks("MyBook.xls")
Set ws = ThisWorkbook.Sheets("Лист1")
' Возможные варианты задания диапазонов-источника
' и приёмника:
'Set r1 = ws.Range("B2:C5")
'Set r2 = ws.Range("E6:F9")
' или так
'Set r1 = ws.Range(ws.Cells(2, "B"), ws.Cells(5, "C"))
'Set r2 = ws.Range(ws.Cells(6, "E"), ws.Cells(9, "F"))
' или так
'Set r1 = ws.Range(ws.Cells(2, 2), ws.Cells(5, 3))
'Set r2 = ws.Range(ws.Cells(6, 5), ws.Cells(9, 6))
' или так для выделения столбцов
Set r1 = ws.Range(ws.Columns(2), ws.Columns(3))
Set r2 = ws.Range(ws.Columns(5), ws.Columns(6))
r1.Copy r2 |
