公式改到哭，那就用For Next循环全搞定！

VIP学员的问题，希望每个表都能自动根据工作表名称改变表头，专项自查整改工作表（网点：某某单位），某某单位这个是工作表名称，其他为固定的。

她原来的做法是，先将所有工作表名称提取在目录表。

然后每个表输入公式引用，因为单元格不同，每个表需要改一次单元格，实际表格非常多，操作很麻烦。

="专项自查整改工作表"&"（网点："&目录!B2&"）"

这种确实为难公式了，写VBA代码就很简单，一个循环语句就搞定，跟着卢子来看看。

点开发工具，VB，插入模块，将代码输入进去，点绿色按钮运行代码。

Sub 生成表头()

Dim i%

For i = 2 To Sheets.Count

Sheets(i).[a1] = "专项自查整改工作表" & "（网点：" & Sheets(i).Name & "）"

Next

End Sub

大概意思：

Sheets.Count判断有多少个工作表，Sheets(i).Name获取工作表名称，For Next就是从第2个表到最后一个表的A1都填写上表头。

假如现在要将工作表名称提取到目录表，稍微更改下就可以。

Sub 提取目录()

Dim i%

For i = 2 To Sheets.Count

Sheets(1).Range("b" & i) = Sheets(i).Name

Next

End Sub

其实，对于大多数人而言，学会循环语句和几个常用的代码就可以，关键时刻就能帮你大忙。

如果还需要创建超级链接，可以看看下面的文章：

作者：卢子，清华畅销书作者，《Excel效率手册 早做完，不加班》系列丛书创始人，个人公众号：Excel不加班（ID：Excelbujiaban）