|
|
#18 |
|
Moderator
|
Цитата:
Код: Sub Macro1()
Range("A6:C12").Insert xlShiftToRight 'xlShiftToRight = -4161
End Sub
Sub Macro2()
Dim rng As Range
Set rng = Range("B3")
rng.Insert xlShiftDown 'xlShiftDown = -4121
rng.Copy rng.Offset(-rng.Rows.Count)
End Sub
Sub Macro3()
Range("A6:C12").Delete xlShiftToLeft 'xlShiftToLeft = -4159
End SubПосле отработки Macro1 - сдвинули "дверь" вправо: После отработки Macro2 - выполнили размножение (объединенная голубая ячейка не мешает): После отработки Macro3 - вернули "дверь" назад: |
|
|
|
| За это сообщение автора поблагодарили: aidsua (1). | |