Excel VBA質問箱 IV

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

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


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

11750 / 76734

←次へ　｜　前へ→


	【70516】削除

next - 11/11/23(水) 13:24 -


	引用なし

	パスワード

Private sub 特定文字なら行削除（）
Dim nn As Range
Dim bb As Variant
Application.ScreenUpdating = False
　For Each nn In ActiveSheet.UsedRange
　　For Each bb In Array("名称", "工事番号", "小計")
　　　If nn.Value = bb Then
　　　　　nn.EntireRow.Delete
　　　End If
　　Next bb
　Next nn
Application.ScreenUpdating = True
MsgBox "完了"
End Sub

名称、工事番号、小計が含まれる行を削除したいのですがエラーがでます。
理由がわかりまんせん。
if nn.value=bb then
ここが悪いみないなのですが。

4 hits

▼

【70516】削除 next 11/11/23(水) 13:24

≪