Вставьте строки в указанные столбцы

Question

У меня есть небольшая проблема. Я хотел бы вставить строки только в столбцы A - D. Этот код вставляет новую строку, если она выравнивается с верхним значением.

Dim z  As Integer 
Dim intLR As Integer 

intLR = Range("A5536").End(xlUp).Row 

For z = intLR To 2 Step -1 
    If Cells(z, 1).Value <> Cells(z - 1, 1).Value Then 
    Cells(z, 1).EntireRow.Insert 
    Else 

    End If 
Next z 

Answer 1

Вы просто должны быть в состоянии использовать .Insert Method, переходящий в xlDown перекладывать строки вниз.

Ниже перечислены только новые ячейки в столбцах A: D.

Sub insertRow() 
    Dim z As Integer, intLR As Integer 
    intLR = Range("A5536").End(xlUp).Row 

    For z = intLR To 2 Step -1 
     If Cells(z, 1).Value <> Cells(z - 1, 1).Value Then 
      Range(Cells(z, 1), Cells(z, 4)).Insert xlDown 
     End If 
    Next z 
End Sub