EXCEL アルファベットで連続データ

*************************
横方向に入力したい場合

=SUBSTITUTE(ADDRESS(1,COLUMN(A1),4),1,)

セルのどこに入力しても上記のセル番地を変更する必要はありません。
ただ、アルファベットの途中から始めたい場合は変更が必要です。
例えば「F」から始めたい場合は「A1」のところを「F1」に変更してください。
他の数値は行や参照の型を指定しているものなので変更不要です。

縦方向に入力したい場合

=SUBSTITUTE(ADDRESS(1,ROW(A1),4),1,)

「COLUMN」のところを「ROW」に変更すればOKです。
アルファベットの途中から始めたい場合は、横方向の場合と違って行番号のところを変更します。
例えば「D」から始めたい場合、「A,B,C,D」と数えると「D」は4個目になるので「A1」のところを「A4」と変更すれば良いです。

**************************

今回は縦方向なので下の数式をある列に埋め込むと、その列はA,B,C,…とアルファベットが並ぶ。
100行ならは最後はCXになる。

そして実際に数式を入れたい列は、その列を参照しながらVBAで数式を当てはめてゆく

Sub 単価()

Dim ret As String
ret = MsgBox(“数式を入力します”, vbYesNo)
If ret = vbNo Then
Exit Sub
Else

Application.ScreenUpdating = False

Dim i As Integer
Dim COL As String

For i = 1 To 100
COL = Worksheets(“見積書”).Cells(i + 16, 12).Value

Worksheets(“見積書”).Cells(i + 16, 5).Formula = “=合計書!” & COL & “35”
Next i

Application.ScreenUpdating = True
MsgBox (“入力しました”)
Exit Sub
End If
End Sub