Всем привет!
Есть следующий код, копирования ячеек
Но мне кажется это немного топорно, в каждой строке прописывать Range.
Есть объект Union, но не совсем понимаю, как его применить, если это вообще возможно
Есть следующий код, копирования ячеек
Код |
---|
Sub копи() With Sheets("Опоры") Range("I3").Copy .Range("I4:I2000") Range("K3:N3").Copy .Range("K4:N2000") Range("AN3").Copy .Range("AN4:AN2000") Range("AP3").Copy .Range("AP4:AP2000") Range("BL3:BX3").Copy .Range("BL4:BX2000") End With End Sub |
Есть объект Union, но не совсем понимаю, как его применить, если это вообще возможно