Понедельник, Май 25, 2020

Копирование из Листа1 в Лист2

Sub CopyRange()
   Dim Rng1 As Range, Rng2 As Range
   Set Rng1 = Application.Workbooks(1).Sheets("Лист1").Range("A1")
   Set Rng2 = Application.Workbooks(1).Sheets("Лист2").Range("A1")
   Rng1.Copy Rng2
End Sub

 

Sub CopyRange2()
'Адрес места вставки определяется единственной
'ячейкой (представляющей верхний левый угол
'вставляемого диапазона)
   Range("A1:C10").Copy Range("D1")
End Sub

 

Sub MoveRange1()
'Адрес места вставки определяется единственной
'ячейкой (представляющей верхний левый угол
'вставляемого диапазона)
   Range("A1:C10").Cut Range("D1")
End Sub

Sub MoveRange1()
'Копирование диапазона переменного размера
'во второй лист
   Sheets("Лист1").Range("A1").CurrentRegion.Copy Sheets("Лист2").Range("A1")
End Sub


Back to Top