excel「マクロ」 置換えで困っています。
いつも皆様には大変お世話になっております、回答者の皆様ありがとう御座います。
早速ですが質問させて頂きます。
初めてexcelにて 「置換え」 マクロを組んでいます、置き換えなければいけない候補が多いので
Sub okikae()
Dim myRng As Range
Selection.SpecialCells(xlCellTypeConstants, 2).Select
For Each myRng In Selection
myRng.Value = StrConv(myRng.Value, vbUpperCase + vbNarrow)
Next myRng
Dim aa, zz As Integer, a, za As Integer
aa = Array("-10", "P10", "P-10")
a = Array("-1", "P1", "P01", "P-1", "G1", "G01", "G-1", "-")
For zz = 0 To UBound(aa)
Selection.Replace What:=aa(zz), Replacement:="@10", _
LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False
Next zz
For za = 0 To UBound(a)
Selection.Replace What:=a(za), Replacement:="", _
LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False
Next za
end sub
上記の様なマクロを永遠と入力しました。(実際にはもっと長いです。(入力を多数の人数で行っている為、同じP1やP10がイロイロな形式で入力されています。)
セルを選択しマクロを実行したところ、うまく置換えが出来たり出来なかったりするセルが出てきて困っています。
どこに不具合があり、置換え出来なくなっているのかすら分からない状態に陥っています。
アドバイスありましたら宜しくお願いいたします、説明に不明な点があれば再度補足させて頂きます。
お礼
早速の回答ありがとうございました for nextでまわしていくことが出来るのですね！ 細かい記述内容をまたべんきょうさせていただきます ありがとうございました