EXCEL VBAで教えてください。

EXCEL　VBAで教えてください。
A列の７桁の数字の一番左の数字をアルファベットに変換したい。
１の場合はA、２の場合はB、３の場合はC…
（例）1314567→A314567
　　　2567568→B567568

とりあえず以下の方法で出来ました。
①A列の一番左の数字をLEFTでB列に表示し、select case でアルファベットに置換
②A列の数字の左から２番目から７番目までをC列に表示（MID）
③D列にB列とC列を＆でつなげる
（do untilを使用）

もっと簡単に高速に処理できる方法を教えてください。
（A列は1万行ぐらいあります）

No.1 ベストアンサー 回答者： mygoonickname 回答日時： 2022/12/22 07:51

おはようございます！

一例になりますが、例えば下記はどうでしょうか？

Sub test()
Dim myrng As Range
For Each myrng In Range("A1:A2") ’←ここにセル範囲を入れる。
With myrng
.Value = Chr(64 + Left(.Value, 1)) & Right(.Value, 6)
End With
Next
End Sub

この回答へのお礼

mygoonicknameさん、ご回答ありがとうございました。
エラーが出ましたが、結果はうまく出来ました。
（On Error Resume Next で回避しました）
ありがとうございました。

お礼日時：2022/12/22 20:51