Question

如果列L：S中有空格，我一直在使用此代码删除行，但遗憾的是，即使它都包含数据，它也会一直删除顶行。

它可以很好地复制数据，但最后会删除包含其中所有数据的行。很奇怪。

有人可以帮忙吗？！

Sub CopyValuesAndDeleteRowsWithBlankKRColumns()
Dim pasteArea As Range
Dim iRow As Long

With Sheets("Create Form").Range("COPYTABLEC")
    Set pasteArea = Sheets("Sample Data").Range("B" & Rows.Count).End(xlUp).Offset(1, 0).Resize(.Rows.Count, .Columns.Count)
    pasteArea.Value = .Value
End With
With Intersect(pasteArea, Sheets("Sample Data").Range("L:S"))
    For iRow = .Rows.Count To 1 Step -1
    If WorksheetFunction.CountBlank(.Rows(iRow)) Mod 8 = 0 Then .Rows(iRow).EntireRow.Delete
    Next
End With
End Sub

Answer 1

将To 1更改为To 2，它甚至不会查看第一行

循环删除顶行

1 个答案: