excel - 1004错误:未找到任何单元格，容易解决吗？

Question

This question already has answers here:

Deleting Empty rows in Excel using VBA

（5个答案）


5年前关闭。





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

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"

最佳答案

为了避免错误弹出，您可以做的是添加错误处理程序

例如：

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

关于excel - 1004错误:未找到任何单元格，容易解决吗？ ，我们在Stack Overflow上找到一个类似的问题： https://stackoverflow.com/questions/25380886/

上一篇：vba - 在 Excel VBA 中将字符串转换为十六进制

下一篇：vba - 命名图表时出现内存不足错误

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