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