Likeの使い方

シートの2行目から最後の行まで繰り返し処理を行い、「0120」から始まる電話番号のみを黄色で塗りつぶします

Sub Like使い方()

    Dim i As Long, LastRow As Long
    
    'A列の最終行を取得します
    LastRow = Cells(Rows.Count, "A").End(xlUp).Row
    
    '2行目から最終行まで繰り返し、0120から始まる番号の場合黄色で塗りつぶします
    For i = 2 To LastRow
        If Cells(i, "A").Value Like "0120*" Then
            Cells(i, "A").Interior.Color = RGB(255, 255, 0) 'RGB(255,255,0)=黄色
        End If
    Next i
    
End Sub
        

実行結果

電話番号が「0120」から始まる箇所のみを黄色で塗りつぶせました

ワイルドカード説明

ワイルドカード「*」の意味
   「*」はどんな内容が入っていても条件が満たされます。
       例）0120*の場合
          0120-000-000 〇
          電話番号は0120-000-000 ✕

       例）*0120*の場合
          0120-000-000 〇
          電話番号は0120-000-000 〇


ワイルドカード「?」の意味
   「?」は?となっている文字のみしか条件が満たされません
       例）0120-???-000の場合
          0120-000-000 〇
          0120-00-000 ✕

関連記事