エクセルで複数文字を一括置換

merlionXXです。 こっちの方が2度置換えしないだけスマートかな。 Sub test03() Dim x As Variant Dim i As Integer x = Split("千代田区、中央区、港区、新宿区、文京区、台東区、墨田区、江東区、品川区、目黒区、大田区、世田谷区、渋谷区、中野区、杉並区、豊島区、北区、荒川区、板橋区、練馬区、足立区、葛飾区、江戸川区", "、") For i = LBound(x) To UBound(x) ActiveSheet.UsedRange.Replace What:=x(i), Replacement:=IIf(InStr("千代田区、中央区、港区", x(i)) > 0, "東京2", "東京"), LookAt:=xlPart Next End Sub