Sub ReplaceSamp1() strSamp = "123456789" strSamp = Replace(strSamp, "123", "000") '000456789を返す Range("A1:A6").Select '---置き換え対象範囲を選択します With Selection .Replace What:=1, Replacement:="1:北海道", LookAt:=xlWhole '---完全に一致するものだけ置き換えます .Replace What:=2, Replacement:="2:青森県" '---2回目以降はLookAtには前回と同じものが使用されるため、省略が可能です .Replace What:=3, Replacement:="3:秋田県" .Replace What:=4, Replacement:="4:岩手県"