Question

在我的宏中，我有一个查看范围的段，找到并填充空白单元格。

Range("E10:A" & CStr(bottom - 1)).Select
Selection.SpecialCells(xlCellTypeBlanks).Select
Selection.Value = "N/A"

，其中

bottom = ActiveSheet.Cells(Rows.Count, "B").End(xlUp).Row

当范围内存在空白单元格时，这非常有效，但会抛出“1004错误：找不到单元格”。在specialcells.select行。我无法想出一个简单的方法来解决这个问题。

我知道我可以在范围内运行循环来首先检查空白单元格，但我觉得这种方法会很慢而且很笨重。

有没有人有更快捷和/或更轻松的解决方案？

PS我知道我可以整合上面的代码行，我这样就把它放在这里更容易理解;

    Range("E10:A" & CStr(bottom - 1)).SpecialCells(xlCellTypeBlanks).Value = "N/A"

Answer 1

您可以采取哪些措施来避免错误弹出是添加错误处理程序

例如：

Sub Main()
    On Error GoTo NoBlanks
    Range("A1:A10").SpecialCells(xlCellTypeBlanks).Value = "N/A"

NoBlanks:
    Resume Next
    ' or add code here to execute when there are no empty cells
End Sub

1004错误：没有找到细胞，容易解决？

1 个答案: