新建的excel中，默认有3个工作表：Sheet1，Sheet2，Sheet3 ，如果需要新添加工作表，其默认命名为Sheet4...如此类推。

但是为了显示的方便，我们往往都需要修改工作表的名称。方便快速查找内容。

如何快速批量修改工作表的名称呢？如下图，按单元格内容重新命名工作表

这里我们用Excel VBA处理。通过遍历Sheets，把当前工作表编辑的列内容赋值工作表名

Public Sub Changesheet()     Dim i As Integer     For i = 1 To Sheets.Count - 1         Sheets(i).Name = Cells(i, 2).Value     Next i End Sub

效果图：