亲，代码如下：
打开你的Excel文件，按“Alt+F11”打开VBA编辑窗口，然后在左侧对应的Sheet上双击，右侧空白处粘贴下面的代码。关闭VBA窗口。然后按“Alt+F8”打开宏窗口，选择刚插入的宏，点击“执行”。
Sub zh()
Dim i, j, k, l As Integer
Dim n As Long
For i = 1 To 19
For j = 1 To 19
For k = 1 To 19
For l = 1 To 19
n = n + 1
Cells(n, 1).Resize(1, 4).Value = Array(i, j, k, l)
Next l
Next k
Next j
Next i
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ号：24596024