今天共享超短波Excel VBA代码，主要用于以下目的：

在Excel中，请根据工作表1中的列a数据(从工作表2开始)重命名工作表2之后的工作表。

先看操作阶段，很简单，主要分为三个阶段。

将要修改的图纸表名称复制到图纸1表a列。

将代码片段复制到开发工具——Visual Basic——，然后单击“图纸1”以右键插入和粘贴模块。

运行宏。

代码如下：

Sub根据列a的值成批修改图纸表名称()

Dim i%

For I=2 ~ s

Sheets (I)。name=cells (I-1，1)。text

next

End Sub

如果需要根据图纸1中的列a数据重命名每个图纸表(从图纸1开始)，可以按如下方式优化代码：

Sub根据列a数据成批修改表名()

Dim i%

For I=1至s

Sheets(i)。Name=Cells(i，1)。Text

next

End Sub

怎么样，是初团吗？这个代码的使用场景多用于数据源的整理分类，只要几秒钟就能完成日常繁琐的小事。快来get吧~

此次更新内容以此结束，重点是小编不断分享更多Excel数据诀窍~