Excel vba で1と10を正確に判断させる方法を教えてください。 TからU列に1と入力があれば

Excel vba で1と10を正確に判断させる方法を教えてください。

TからU列に1と入力があればＡに変換、10と入力があればＪに変換させたいのですが、下記のコードではうまくいかず、10なのにＡ0と表示されます。
上手く1を、1として判断させるコードをご教示いただけないでしょうか？
よろしくお願いします！！

Range(.Cells(2,”T”), .Cells(maxrow,”U”)).Replace What:=“1” , LookAt:=xlWhole, Replacement:=“A”

Range(.Cells(2,”T”), .Cells(maxrow,”U”)).Replace What:=“10” , LookAt:=xlWhole, Replacement:=“J”

No.3 回答者： rexfan 回答日時： 2023/01/03 08:06

ちょっと解せないですね。

LookAt:=xlWholeは完全一致指定ですから、１のみ対象で
10がA0にはなりません。
A0となるのはxlPart指定です。

試しに動かしましたが、正しく変換されました。
文字列対数値でも変換されました。
ここだけ切り出して試したことありますか？

他に似たようなロジックでxlParありませんか？

この回答へのお礼

ご回答ありがとうございます。
私もLookAt:=xlWholeは完全一致と覚えていたので、？？となったのですがもしかしたら前後のコードでおかしなところがあるのかも知れませんね。その辺を試してみようと思います。

お礼日時：2023/01/03 22:34

No.2 回答者： taglet 回答日時： 2022/12/27 20:38

解説すると、元のコードだと、「10」の１が１行目でAに変換されてしまう、ということですね。

No.1 回答者： taglet 回答日時： 2022/12/26 17:10

1行目と2行目の順番を逆にしてください。

この回答へのお礼

ご教示頂き、ありがとうございます！
そんな簡単な事だったんですね！

お礼日時：2022/12/27 20:35