|
VBA初心者です。
A列のセルの内の特定の文字の前のみを削除するような
マクロを作成したいのですが良い方法があったら
どなたかご教授お願いします。
例「ABCC999EDHIIJ」の「ED」の前を全て削除する
指定した文字を含む行ごと削除は下記の方法で
うまく処理できたのですが、上記については
わかりません。。よろしくお願いいたします。
---------------------------------------------------------
Sub test()
'特定の文字列を含む行を削除
Dim c As Variant, Object, Range
Workbooks.Open Filename:="book1.xls"
fndkey1 = "AAA"
fndkey2 = "BBB"
For Each c In Sheets(1).Range("a1:a4000")
'行削除
If c.Value Like "*" & fndkey1 & "*" Then Rows(c.Row).Delete Shift:=xlUp
If c.Value Like "*" & fndkey2 & "*" Then Rows(c.Row).Delete Shift:=xlUp
Next
ActiveWorkbook.Save
End Sub
---------------------------------------------------------
|
|