Excel VBA質問箱 IV

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

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


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

47534 / 76737

←次へ　｜　前へ→


	【34158】【至急】部分一致の検索削除

初心者2

- 06/1/27(金) 14:42 -


	引用なし

	パスワード

大至急教えていただけると助かります。
以下のように書くと、完全一致のデータのみ
削除されますが、部分的に一致する場合も
削除したいと思います。
どのように書いたらいいでしょうか？

よろしくお願いします。

Sheets("Sheet2").Select
　　Cells.Select
　　Selection.Copy
　　Sheets("Sheet1").Select
　　Cells.Select
　　ActiveSheet.Paste
　　検索データ = "epmap"
　　ActiveSheet.Range("A" & Rows.Count).End(xlUp).Select
　　LastRowNo = ActiveCell.Row
　　For I = 1 To LastRowNo
　　　　For J = 1 To 256
　　　　　　If Cells(I, J).Value = 検索データ Then
　　　　　　　　MsgBox 検索データ & "を" & I & "行" & J & "列で検出しました" _
　　　　　　　　　　　　& vbCrLf & I & "行を削除します"
　　　　　　　　Range(I & ":" & I).Select
　　　　　　　　Selection.Delete
　　　　　　　　I = I - 1
　　　　　　　　J = 256
　　　　　　End If
　　　　Next J
　　Next I
　　MsgBox "検索削除処理が終了しました"
　　Cells.Select
　　Selection.Delete

0 hits

▼

【34158】【至急】部分一致の検索削除 初心者2 06/1/27(金) 14:42

≪