1004错误：没有find单元格，简单的解决scheme？

在我的macros中，我有一个看段落的段，find并填充空白单元格。

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行。 我很难想出一个简单的方法来解决这个问题。

我明白，我可以在范围内运行一个循环来首先检查空白单元格，但是我觉得这个方法会很慢很笨重。

有没有人有更快和/或更简单的解决scheme？

PS我知道我可以巩固我的上面的代码行，我只是把它放在这里，以便更容易理解;

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

Answer 1

你可以做什么来避免popup的错误是添加一个error handling程序

例如：

 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