论坛帮助 |
社区圈子 |
日历事件 |
2024-10-08, 22:14 | 只看该作者 #3 | |||
|
||||
正式会员
等级: 六袋长老
|
Sub FillSeriesWithLeadingZeros() Dim i As Integer For i = 1 To 100 Cells(i, 1).Value = "固定内容" & Format(i, "000") Next i End Sub 按下 Alt + F11 键打开VBA编辑器,在“插入”菜单中选择“模块”来创建一个新的模块。在模块窗口中复制并粘贴上面的代码。按下 F5 键或点击运行按钮来执行宏。 需要修改1 To 100, "固定内容" & Format(i, "000")。 |
|||
回复时引用此帖 |
右列会员因为此帖价值甚高向 mxjs 表示感谢: |
print-no (2024-10-09)
|