录制一个宏，在宏中写如下代码，即可实现
Sub Macro1()
Dim i As Integer
Dim b As Integer
Dim s As Integer
Dim g As Integer
i = 1
For b = 1 To 5
For s = 1 To 5
For g = 1 To 5
Cells(i, 1) = b * 100 + s * 10 + g
i = i + 1
Next g
Next s
Next b
End Sub