Excel 根据单元格值插入复制的行

下面的vba代码（修改自）将在E列中任何值为“0”的行上方插入一个空行。是否有方法复制值为“0”的行并将其插入其上方，而不是插入一个空行？是否可以修改此vba代码以执行此操作

Sub BlankLine()

    Dim Col As Variant
    Dim BlankRows As Long
    Dim LastRow As Long
    Dim R As Long
    Dim StartRow As Long

        Col = "E"
        StartRow = 1
        BlankRows = 1

            LastRow = Cells(Rows.Count, Col).End(xlUp).Row

            Application.ScreenUpdating = False

            With ActiveSheet
For R = LastRow To StartRow + 1 Step -1
If .Cells(R, Col) = "0" Then
.Cells(R, Col).EntireRow.Insert Shift:=xlDown
End If
Next R
End With
Application.ScreenUpdating = True

End Sub

只要加上这一行

.Cells(R, Col).EntireRow.Copy

在您的

.Insert

行之前

在什么上面插入复制的行？无论如何，这是可以做到的，而且应该相当容易。手动执行复制/插入时，您是否尝试过使用宏录制器？这将生成一些代码，您可以使用这些代码修改此宏。