EXCEL VBA重疊錯誤

Question

    Range("A1:C7").Select
    Selection.SpecialCells(xlCellTypeBlanks).Select
    Application.CutCopyMode = False
    Selection.EntireRow.Delete 
End Sub

這是已記錄的VBA宏的一部分，用於刪除空白行，但在Selection.EntireRow.Delete行中顯示錯誤Run time error "1004" - "cannot use that command on overlapping selection" 。

似乎是什么問題？

Answer 1

一個簡單的循環示例：

Dim rgCol                 As Range
On Error Resume Next
For Each rgCol In Range("A1:C7").Columns
    rgCol.SpecialCells(xlCellTypeBlanks).EntireRow.Delete
Next rgCol