将行插入指定的列

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