excel - 如果范围内有非空白单元格，如何运行代码？

Question

我得到了 A1:D17 范围。如果在我的范围内有空白单元格，我的代码可以工作，反之亦然。

请帮助找出问题。

我写了这段代码:

Sub Example
    Workbooks("Training_VBA Codes").Activate
    Worksheets("Practice 4").Activate
    Range("A1").Select

    If ActiveCell.CurrentRegion.SpecialCells(xlCellTypeBlanks) = False Then

        ActiveCell.CurrentRegion.SpecialCells(xlCellTypeBlanks).Value = 0
        Range(ActiveCell, ActiveCell.End(xlDown).End(xlToRight)).Copy

    Else

        Range(ActiveCell, ActiveCell.End(xlDown).End(xlToRight)).Copy

    End If
End Sub

Answer 1

当您使用 .SpecialCells 时， 你必须要小心。如果没有找到匹配项，您将收到错误消息。

像这样试试 ( UNTESTED )

Sub Sample()
    Dim rng As Range

    On Error Resume Next
    Set rng = Range("A1").CurrentRegion.SpecialCells(xlCellTypeBlanks)
    On Error GoTo 0

    If Not rng Is Nothing Then '<~~ Check if there were blank cells found
        rng.Value = 0
        '
        '~~> Rest of the code
        '        
    End If
End Sub

提示:还要避免使用 .Activate/.Select .您可能想查看 How to avoid using Select in Excel VBA