VBA 特定の文字の検索方法

VBA初心者です。

c列に入力されている「01-」～「09-」までのうち
「02-」で始まるものを探し、その行のA・B・C列を削除し
上につめたいのですが、うまくいきません。

「02-」の後には何文字か入っています(例：02-AN003)
以下のように記述したのですが。。。
VBA初心者ですのでどなたかご教授下さい。

Sub sakujyo()

Dim i As Long
For i = Range("C" & Rows.Count).End(xlUp).Row To 2 Step -1
If Range("C" & i).Value = "02-*" Then Rows(i).Delete Shift:=xlUp
Next i

End Sub

No.2 回答者： imogasi 回答日時： 2009/05/12 23:09

>その行のA・B・C列を削除し,上につめたいのですが、うまくいきません

手操作でも出来ない原理的に出来ないことを書いていませんか。
A・B・C列しかないデータなのか。不用意にA・B・C列と書かないこと。
列の１部列と見てしまうよ。
ーー
やり方のヒントは
（１）C列１セルづつINSTR関数で聞いていって見つける
（２）C列でFind、FindNextメソッドを使う。初心者には向かない。
（３）セルの値そっくりの文字列を探すのでなく「含む」になるようだが、Like演算子を使う。Googleでも検索して勉強のこと）
＞If Range("C" & i).Value = "02-*" は経験の無いものの、無茶なやり方。
Instr関数なら
例データ
asder
adfert
asdcv
で
Sub test01()
For i = 1 To 3
p = InStr(Cells(i, "A"), "er")
MsgBox p
Next i
End Sub
で可能。４，４，０になる。
＞02-」で始まるものとは、先頭から02-なら、Left（Cells(i,"C"),3)="02-j"で良い。

No.1 ベストアンサー 回答者： myRange 回答日時： 2009/05/12 22:30

　

●Like演算子を使う

Sub sakujyo()
　Dim i As Long
　For i = Range("C" & Rows.Count).End(xlUp).Row To 2 Step -1
　　If Range("C" & i).Value Like "02-*" Then Rows(i).Delete
　Next i
End Sub


●Instr関数を使う

If InStr(Range("C" & i).Value, "02-") > 0 Then Rows(i).Delete Shift:=xlUp

　

この回答へのお礼

出来ました！　
Like演算子ですね。
調べて理解しました。ありがとうございました。

お礼日時：2009/05/12 23:25