エクセルで置換のマクロの際

質問

Selection.Replace What:="あ", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False

エクセルのマクロで置換をする際に
自動記録で書くとこうなります。

「あ」を「(空白)」におきかえる内容ですが
置き換え候補がたくさんある場合は
上記の記述をくりかえし記述するしかないのでしょうか？
例　「あ」を「」に　「い」「」に
　　というような具合です

回答No.1

papayuka · ベストアンサー

置き換え候補の量にもよります。
ソースに直書き出来るなら、

Sub Test()
Dim s, i As Integer
s = Array("あ", "い", "え")
　For i = 0 To UBound(s)
　　Selection.Replace What:=s(i), Replacement:="", _
　　　LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False
　Next i
End Sub

お礼

早速の回答ありがとうございました

for nextでまわしていくことが出来るのですね！
細かい記述内容をまたべんきょうさせていただきます
ありがとうございました