久々の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