☰

根据两个条件插入空白行

tag-icon • tag-icon microsoft-excel microsoft-excel-2010 vba
根据两个条件插入空白行

我有一个包含大量行的电子表格。有两行组合在一起（针对每个客户）。在 A 列中，第一行有一个帐号。第二行应该是空白的。

电子表格中列出了许多客户，但没有第二行。我需要插入一个空白行，为每个没有第二行的客户创建第二行。

这是我拼凑的 VBA 脚本，但它有语法错误。

Sub Macro1()
'
' Macro1 Macro
'

For myrow = 1 To Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
    If Cells(myrow, 1) <> "" and Cells(myrow+1, 1) <> ""
Then
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
End Sub

答案1

与 Scott 的评论类似。只有一个小变化Next myrow

Sub Macro1()
    For myrow = 1 To Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
        If Cells(myrow, 1) <> "" And Cells(myrow + 1, 1) <> "" Then
            Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
        End If
    Next myrow
End Sub

相关内容