excel批量插入工作表并批量命名

[复制链接]

11 |

2 | 2011-2-13 12:18:23 | 显示全部楼层 |阅读模式

如何在excel中批量插入工作表并批量命名，比如在一张excel表格中插入30个工作表，并批量命名为1月1日、1月2日、1月3日……1月30日。

使用道具举报

千问 | 2011-2-13 12:18:23 | 显示全部楼层

在visual basic编辑器中插入一个模块，把以下代码粘进去，运行就可以了。Sub Macro1() a = Sheets.Count
For i = a + 1 To a + 30
Sheets.Add After:=Sheets(Sheets.Count)
'Sheets("Sheet4").Select
Sheets(i).Name = "1月" & i - a & "日" NextEnd Sub

使用道具举报