|
以下の件について教えてください。
B列に"ABC"をという文字があった時に、4列右隣に"★"
という文字を出すものを作りました。
この時、検索するものを"ABC"ではなく、A〜始まるものは"★"
にしたいのですが、Left をどうやってうまく入れたらよいですか。
コードは以下のように作っています。
5行目のFindの部分の条件をA〜始まるものに修正する方法を教えてください。
1Sub 仕分()
2 Dim myKekka As Range
3 Dim myFirst As String
4 With Range("B:B")
5 Set myKekka = .Find(What:="ABC")
6 If Not myKekka Is Nothing Then
7 myFirst = myKekka.Address
8 Do
9 myKekka.Offset(, 4).Value = "★"
10 Set myKekka = .FindNext(After:=myKekka)
11 Loop Until myKekka.Address = myFirst
12 Else
13 myKekka.Offset(, 4).Value = ""
14 End If
15 End With
16End Sub
|
|