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

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

Sheet1に張り付けて使う。

Sub 連番取得ゼロからキューの数値とAからZのアルファベットを表示()

  Dim i As Long
  Dim r As Range: Set r = Me.Range("A1")
 
  ‘０から９
  For i = 1 To 10
    Debug.Print Chr(i + 47)
    r.Value = Chr(i + 47)
    Set r = r.Offset(1, 0)
  Next i

  ‘ＡからＺ
  For i = 1 To 26
   Debug.Print Chr(i + 64)
    r.Value = Chr(i + 64)
    Set r = r.Offset(1, 0)
 
  Next i

End Sub

JISコード表　より

０ｘ４８～１０つが数字の０〜９

０ｘ６５〜２６つがアルファベットのA～Z　に割り当てられているから

それを頭に入れFor文でインクリメントして取得。