Excel VBA Like演算子と条件分岐

特定の文字列を含むセルを指定するためLikeとIfを組み合わせる

A列の住所に「都島区」が含まれていたら、B列に「都島区」を入力する

条件設定

If ws.Cells(i, 1) Like "*都島区*" Then
    'A列に「都島区」が含まれていたら

プロシージャ

Sub HowToUseLike()

  Dim i As Long, LastRow As Long
  Dim ws As Worksheet
  Set ws = Sheets("Sheet5")
  LastRow = ws.Cells(Rows.Count, 1).End(xlUp).Row
  
  For i = 2 To LastRow
  
    If ws.Cells(i, 1) Like "*都島区*" Then
       ws.Cells(i, 2) = "都島区"
    End If
    
  Next i
  
End Sub

実行結果

参考ページ インストラクターのネタ帳
https://www.relief.jp/docs/excel-vba-if-like-instr.html