JAVA实现sheet页重命名_一句代码快速实现新建多张工作表并进行重命名

我们经常会在一张工作簿内新建多张工作表，并对其按照要求更改名称。如我们需要在一张工作簿中统计8月份的数据，里面每一页统计一天的数据，并按照8月1日、8月2日等规律重命名。这样的操作你是一张张的新建并重命名吗？这里教大家一种简单方法。▼增加31张工作表方法▼

(1)、点击文件—选项—常规—新增工作簿时—包含的表格数修改为31—确定。这时会新建一张有31张工作表的工作簿。如下图：

(2)、点击文件—新建，即可看到新增了一个包含31张工作表的工作簿。

▼如何对31张工作表进行重命名▼

思路：这里对代码进行重命名使用的是一段简单的VBA代码进行操作。

(1)、首先新建的工作簿sheet1当中，将8月1日-8月30日名称先进行输入。如下图：

(2)按住快捷键alt+F11，或者点击开发工具—点击Visual Basic，进入VBA代码窗口。点击左边工程窗口sheet页最下面的：Thisworkbook—右键—插入—模块。如下图：

(3)双击新建的模块，进入代码窗口。将以下代码输入代码窗口：

Sub 重命名()

Dim i%

For i = 2 To Sheets.Count

Sheets(i).Name = Cells(i + 1, 1).Text

Next

End Sub

(4)输入上面的代码后，关闭VBA窗口。在sheet1工作表中插入一个任意图形。点击插入—形状—图形(可以加一个名字，重命名)。右键点击新建的图形—指定宏，并选择里面的一个重名名代码，点击确定即可。

(5)点击刚指定了宏的图形，奇迹出现了，所有的工作表都按照前面填写的日期进行修改过来了。