用vba 在excel中自动填写3d全部号码

发布网友发布时间：2023-06-22 05:07

共2个回答

热心网友时间：2024-11-25 20:35

在VBE中插入模块，以下代码复制到该模块中，运行即可。
Sub fill()
n = 1
For i = 0 To 9
For j = 0 To 9
For k = 0 To 9
Cells(n, 1) = i
Cells(n, 2) = j
Cells(n, 3) = k
n = n + 1
Next
Next
Next
End Sub

热心网友时间：2024-11-25 20:35

把第一列设置为文本格式,输入000,拖动一1000排,再分列.就完了,这哪用什么VBA

声明：本网页内容为用户发布，旨在传播知识，不代表本网认同其观点，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。E-MAIL:11247931@qq.com