希望大虾写好宏后，再讲解一下步骤(就是打开excel后，在哪里输入宏，然后又怎么呢？然后又怎么呢......)。。。。我是十足小菜鸟~~~
Sub Macro1()
m = 2
For x = 1 To 9
For y = 1 To 9
For z = 1 To 9
For a = 1 To 9
Cells(m, 1) = x: Cells(m, 2) = y: Cells(m, 3) = z: Cells(m, 4) = a: m = m + 1
Next
Next
Next
Next
End Sub
1、打开EXCEL
2、工具、桐御宏、VB编辑器
3、点左岩皮边VBAProject Book1
4、插入模块
5、把上面的代码粘贴进局枣岩去
6、运行
1111 增加序列到银塌9999
查找 0 替换 ##
对序列排序（#会集中）
删掉带# 的 剩下就是你要的了
干吗非要写宏锋兄圆？很简单的事情别复尘带杂化