如何用vba来实现excel中如何31个工作组表中一次性输入1-31日

Question

如题所述

Answer 1

举例说明。

例如有空白表如图：

第一步：点击开发工具-插入模块-编写代码如下：

Sub test()
For i = 1 To 31
Sheets.Add After:=Sheets(Sheets.Count)
Sheets(Sheets.Count).Name = i
Next i
End Sub

如图：

第二步：运行该宏。结果如图：