как сделать массив ячеек в VBA Excel

Question

Я хочу сделать массив ячеек в Excel, чтобы с помощью VBA добавить новую строку, я использовал этот код

Private Sub add_Click()
Sheets("Block B").Range("C8").Select
ActiveCell.EntireRow.Insert Shift:=xlDown Sheets("Block B").Range("C8:L8").Select  Selection.Borders.Weight = xlThin

Но новую строку вставьте в точном необработанном 8, я хочу в каждом клике, чтобы добавитьновый ряд в следующем ряду 8, 9, 10, ...

Как я могу это сделать?

Answer 1

Мы должны превратить тираж от большого к маленькому.

Попробуйте это

Sub test()

    Dim Ws As Worksheet
    Dim i As Long

    Set Ws = Sheets("Block B")
    With Ws
        For i = 10 To 8 Step -1
            .Range("c" & i).EntireRow.Insert
            .Range("c" & i).Resize(1, 10).Borders.Weight = xlThin
        Next
    End With
End Sub