web-dev-qa-db-ja.com

1004エラー：セルが見つかりませんでした。簡単な解決策ですか？

私のマクロには、範囲を調べて空白のセルを見つけて埋めるセグメントがあります。

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"
excelvbadebuggingexcel-vba
5
Lewis Heslop

エラーのポップアップを回避するためにできることは、エラーハンドラーを追加することです

例えば：

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
13
user2140173