久々のVBA だったので メモ

Sub gogo()

Dim i As Integer

Dim Kusrasu As String
Kusrasu = "tukioka"

Dim num_1 As Integer
Dim num_2 As Integer

Dim loop_num As Integer

num_1 = 1 ' 学年
num_2 = 1 ' クラス

loop_num = 23 'クラス人数

'Trim(str(num_1)) Trim => スペース削除 str => integer -> 文字列へパース

For i = 1 To loop_num

If i < 10 Then

Cells(i, 1).Value = Kusrasu + "-" + Trim(str(num_1)) + "-" + Trim(str(num_2)) + "-" + "0" + Trim(str(i))

Else

Cells(i, 1).Value = Kusrasu + "-" + Trim(str(num_1)) + "-" + Trim(str(num_2)) + "-" + Trim(str(i))

End If


Next i

End Sub