Excel VBA質問箱 IV

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

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


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

11748 / 76734

←次へ　｜　前へ→


	【70518】Re:削除

Blue - 11/11/23(水) 16:09 -


	引用なし

	パスワード

たぶん、 >nn.EntireRow.Delete が悪い。外のFor Eachの範囲が行を削除したことで変わってしまうため。 (ループの中でループ元を変更するとおかしくなる) 以下適当に変更。 Private Sub 特定文字なら行削除() Dim nn As Range Dim bb As Variant Dim r As New Collection Application.ScreenUpdating = False 　For Each nn In ActiveSheet.UsedRange 　　For Each bb In Array("名称", "工事番号", "小計") 　　　If nn.Value = bb Then 　　　　On Error Resume Next 　　　　　r.Add nn, Str(nn.Row) 　　　　On Error GoTo 0 　　　End If 　　Next bb 　Next nn 　 For Each nn In r 　nn.EntireRow.Delete Next 　 Application.ScreenUpdating = True MsgBox "完了" End Sub