Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

60555 / 76732

←次へ　｜　前へ→


	【20815】エラーの回避について

VBA初心者 - 04/12/20(月) 23:18 -


	引用なし

	パスワード

いつもスイマセンが、Do Loopを使用して行が空白になるまで検索するマクロをくんでみました。もし見付らなかったら、
エラーとして回避して、次の文字を検索しようとしたのですが、1回目は良いのですが、2回目になるとデバックエラーが出てしまいます。
エラーって1回しか回避できないしょうか？
もし、良い回避のさせ方があれば教えて下さい。

Sub 検索()

Dim i As Integer

i = 2
Sheets("検索結果").Select

Do Until Cells(i, 1) = ""

ラベル名 = Cells(i, 1)　'検索する文字

Sheets("検索").Select

On Error GoTo ERR
Cells.Find(What:=ラベル名, After:=ActiveCell, LookIn:=xlFormulas, _
　　　　LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
　　　　MatchCase:=False).Activate

'ラベル名の右にアドレスが記入されている。
ActiveCell.Offset(0, 1).Activate
ActiveCell.Copy

Sheets("検索結果").Select
Cells(i, 2).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
　　　　False, Transpose:=False
GoTo 次へ

ERR:
Sheets("検索結果").Select
Cells(i, 2) = ""
次へ:

i = i + 1　'行数カウンタ
Loop

End Sub

1 hits

▼

【20815】エラーの回避について VBA初心者 04/12/20(月) 23:18

≪