a~zまで、A~Zまでをセルに用意する【ExcelVBA】

Chr関数を使用して指定した文字セットと関連付けられている文字を返す

A~Zは65から90の為Chrを65-90まで

a~zは97-122の為Chrを97-122まで繰り返す形でセルにサクッと入れる

度々使用するのであれば、Excelのオプションの詳細設定のユーザー設定リストの編集から

ユーザー設定リストに入れておくとすぐ使える為便利

文字セット一覧

40 → ( 41 → ) 42 → * 43 → + 44 → , 45 → - 46 → . 47 → / 48 → 0 49 → 1 50 → 2 51 → 3 52 → 4 53 → 5 54 → 6 55 → […]

ーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーー

実際に使用したサンプルコード

Option Explicit
Public Sub sample()

Dim x As Long
Dim i As Long
i = 14

For x = 65 To 90
Cells(i, 6).Value = Chr(x) & "店"
i = i + 1
Next

End Sub

コメントを残す

メールアドレスが公開されることはありません。 が付いている欄は必須項目です