エクセルのマクロを教えてください。

シート1のH列に関東地方の都道府県名が入っています。
ただ、東京の場合は市区町村名が入っていることがあります。
東京以外は県名だけ入っています。
シート1のデータは日々増えていきます。


区別するためにフラグを立てたいです。
AC列に東京以外の県名に2を、東京もしくはその市区町村の場合は1とマークしたいです。


マクロのコードを教えてください。
宜しくお願いします。

No.2 ベストアンサー 回答者： t_fumiaki 回答日時： 2022/03/28 13:44

山梨は関東では無いけど・・・・・。

Dim WS As Worksheet
Dim Cnt As Long
Set SH = Worksheets("Sheet1")
END1 = SH.Range("H65536").End(xlUp).Row

For Cnt = 2 To END1

If (SH.Range("H" & Cnt).Value = "東京" Or SH.Range("H" & Cnt).Value = "神奈川" Or SH.Range("H" & Cnt).Value = "千葉" Or SH.Range("H" & Cnt).Value = "埼玉" Or SH.Range("H" & Cnt).Value = "群馬" Or SH.Range("H" & Cnt).Value = "茨城" Or SH.Range("H" & Cnt).Value = "栃木" Or SH.Range("H" & Cnt).Value = "山梨") Then

SH.Range("AC" & Cnt).Value = 2

Else

SH.Range("AC" & Cnt).Value = 1

End If

Next Cnt

この回答へのお礼

ありがとうございます！
これで先に進めるようになりました。

お礼日時：2022/03/28 14:23

No.1 回答者： よろずやkinchan 回答日時： 2022/03/28 13:18

46道府県の一覧を用意して、それと比較すればよろしいかと。