![]() |
#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). |
Теги |
excel, документация, как правильно, ax3.0 |
|
Опции темы | Поиск в этой теме |
Опции просмотра | |
|