今天小编给大家分享一段超短Excel VBA代码，主要用于：
Excel中让sheet2以后的工作表按照sheet1中的A列数据重命名（从sheet 2开始） 。
先看操作步骤，很简单 ， 主要分为三步：
①将要修改的sheet表名称复制到sheet1表A列中；
②将该段代码复制到开发工具——Visual Basic——点击sheet1右键插入模块，粘贴；
③运行宏 。
代码如下：
Sub 按A列数值批量修改sheet表名称()
Dim i%
For i = 2 To Sheets.Count
Sheets(i).Name = Cells(i -1, 1).Text
Next
End Sub
如果需要根据sheet1中A列数据重命名各sheet表（从sheet 1开始），可以将代码微调如下：
Sub 按A列数据批量修改表名称()
Dim i%
For i = 1 To Sheets.Count
Sheets(i).Name = Cells(i , 1).Text
Next
End Sub
怎么样，是不是超短？这段代码的使用场景多用于数据源的整理分类 ， 只需几秒钟就可以完成日常有些繁琐的小事情，快来get它吧~
【根据A列数值重命名各sheet表，这段超短Excel VBA代码可直接套用】本次更新内容到此结束，关注小编持续分享更多Excel数据小技巧哦~