Кнопка для вставки строк в одну позицию на нескольких листах

Question

Мне нужна кнопка, которая спрашивает пользователя о количестве строк, которые он хочет добавить. Это количество строк затем будет добавлено к нескольким листам (я хочу определить это), в том же месте для каждого - A5 xldown offset 1,0. Скопируйте формулы и форматирование сверху строк на каждом листе. Я могу сделать это вручную для каждого, но не могу понять, как определить массив и сделать то же самое на каждом листе.

'for each worksheet that I define

Range("A5").Select
    ActiveCell.End(xlDown).Select
    ActiveCell.Offset(1, 0).Select
    ActiveCell.EntireRow.Insert 
  Shift:=xlShiftDown,CopyOrigin:=xlFormatFromLeftOrAbove

'does copy origin copy both formulae and formatting?

Заранее извиняюсь, если код плохо отформатирован

Answer 1

Я могу сделать это вручную для каждого, но не могу понять, как определить массив и сделать то же самое на каждом листе.

Ниже, как зациклить несколько листов в определенном массивелистов.

Sub LoopSheets()

Dim ws as Worksheet
Dim Rws as long: Rws = Application.InputBox(prompt:="How many rows?", Type:=1)

For Each ws In Sheets(Array("Sheet1", "Sheet2")) 'Etc
    'Your code to do something *
Next ws

End Sub

'* Для этой части вашего кода вы должны сначала обратиться к этому сообщению о SO, как избежать .Select среди других советов.