VBA批量修改工作表名称

新建的excel中，默认有3个工作表：Sheet1，Sheet2，Sheet3 ，如果需要新添加工作表，其默认命名为Sheet4...如此类推。但是为了显示的方便，我们往往都需要修改工作表的名称。方便快速查找内容。
如何快速批量修改工作表的名称呢？如下图，按单元格内容重新命名工作表

1516870198331516.png

这里我们用Excel VBA处理。通过遍历Sheets，把当前工作表编辑的列内容赋值工作表名PublicSubChangesheet()
DimiAsInteger
Fori=1ToSheets.Count-1
Sheets(i).Name=Cells(i,2).Value
Nexti
EndSub
效果图：

1516870520751033.png