EXCEL2010 VBA 文字コード

質問

EXCEｌ2010のVBAで作成しています。

シート1のA１とA2に値を入力し、A1は行数を示しA2はアルファベットの数を表します。
値の分だけシート2のA1から下にアルファベットを表示していきます。
このアルファベットの表示を繰り返し処理でうまく作成したいと思っています。
アルファベットは文字コードがあり、そのコードの数に数字を加えたらAをBに変えるなどが
できるという話を聞いたことがあるのですが。。。
どなたか良い方法があれば教えてください。

(例)
シート1!A1：3
シート1!A2：4
の場合

シート2
A1：A
A2：A
A3：A
A4：B
A5：B
A6：B
A7：C
A8：C
A9：C
A10：D
A11：D
A12：D

回答No.1

keithin · ベストアンサー

ワークシート関数では
=CODE("A")
という関数でAという文字のコードが65だと判ります。（小文字のaはコードが違うのも確認しておいて下さい）
また
=CHAR(65)
という関数で，文字コード65の文字Aを計算できます。

マクロで使う関数は少しスペルが違いますが，次のようにします。
sub macro1()
　dim a, b, i
　a = worksheets("Sheet1").range("A1") '個数
　b = worksheets("Sheet1").range("A2") '種類の数
　for i = 0 To b - 1
　　worksheets("Sheet2").range("A1").resize(a, 1).offset(i * a) = chr(65 + i)
　next i
end sub

お礼

回答ありがとうございます。
いつもいつも助かります。
無事にできました。