【EXCEL VBA】０〜９、A～Zの全３６種を連続でセル上に取得するサンプル

Excel VBAを使用して、0から9までの数字とAからZまでのアルファベットを合わせた全36種を、シート上のセルに連続して取得するサンプルコードです。

想定環境・前提条件

• Microsoft Excel (すべてのバージョン)
• 標準モジュール、または対象のシートモジュール（Sheet1など）

サンプルコード

Sub 連番取得ゼロからキューの数値とAからZのアルファベットを表示()
    Dim i As Long
    Dim r As Range
    Set r = ActiveSheet.Range("A1")
    
    ' 0から9の文字コード（ASCII/JISコードの48 '0' からスタート）
    For i = 0 To 9
        r.Value = Chr(i + 48)
        Set r = r.Offset(1, 0)
    Next i

    ' AからZの文字コード（ASCII/JISコードの65 'A' からスタート）
    For i = 1 To 26
        r.Value = Chr(i + 64)
        Set r = r.Offset(1, 0)
    Next i
End Sub

使い方・実行手順

1. Excelを開き、Alt + F11 キーを押してVBAエディタ（VBE）を開きます。
2. メニューの「挿入」＞「標準モジュール」をクリックします。
3. 上記のコードを貼り付けます。
4. F5 キーを押すか、実行ボタンを押してコードを実行します。アクティブシートのA1セルから下に向かって36文字が連続して出力されます。

解説

Chr関数を利用して、文字コードの数値を文字に変換しています。

• 数字の「0」は文字コード 48 であるため、48 + i で 0〜9 を取得しています。
• アルファベットの「A」は文字コード 65 であるため、64 + i で A〜Z を取得しています。