【VBA】F列とT列に全国の住所が入力されています。入力されている住所から都道府県名だけを削除したいです。 (例)北海道札幌市~ → 札幌市~

Visual Basic | Excel51閲覧

ベストアンサー

1

1人がナイス!しています

その他の回答(1件)

0

F列とT列の 最終行は 同じとすれば For I = 2 To Cells(Rows.Count, "F").End(xlUp).Row If Mid(Cells(I, "F"), 4, 1) = "県" Then Cells(I, "F") = Right(Cells(I, "F"), Len(Cells(I, "F")) - 4) End If If Mid(Cells(I, "F"), 3, 1) = "県" Or Mid(Cells(I, "F"), 3, 1) = "都" Or Mid(Cells(I, "F"), 3, 1) = "府" Then Cells(I, "F") = Right(Cells(I, "F"), Len(Cells(I, "F")) - 3) End If If Mid(Cells(I, "T"), 4, 1) = "県" Then Cells(I, "T") = Right(Cells(I, "T"), Len(Cells(I, "T")) - 4) End If If Mid(Cells(I, "T"), 3, 1) = "県" Or Mid(Cells(I, "T"), 3, 1) = "都" Or Mid(Cells(I, "T"), 3, 1) = "府" Then Cells(I, "T") = Right(Cells(I, "T"), Len(Cells(I, "T")) - 3) End If Next で いいかと