vba - Excel 错误 1004 - 运行时错误 '1004' 应用程序定义或对象定义错误

Question

我正在尝试清理我的电子表格。有许多空白单元格正在计数。我尝试使用此代码，但它给了我一个运行时错误。

Sub ClearAll()
    Dim c As Range, MyRange As Range

    Set MyRange = Range("A1:JS87")

    For Each c In MyRange
        If Len(c) = 0 Then c.ClearContents
    Next c

End Sub

Answer 1

由于找到合并的单元格(或等效单元格)，可能会触发此错误。我做了一些测试，IsEmpty 似乎跳过了这些情况。无论如何，我还包括一个错误捕获以完全确定。

Sub ClearAll()
    Dim c As Range, MyRange As Range
    Set MyRange = Range("A1:JS87")

    For Each c In MyRange
        On Error Resume Next
        If (Not IsEmpty(c.Value)) Then
            If Len(c) = 0 Then c.ClearContents
        End If
    Next c
End Sub