【原】抱怨加班之前，先看看这6个Excel多表批量处理会不会？

1.多表替换

Ctrl+H这个应该很熟悉了，而如果是针对1000多张工作表，怎么一次性替换某个字符呢？

输入查找内容，替换内容，范围选择工作簿，这样就可以一次性将整个工作簿全部工作表都进行替换。小小变动，就由原来需要替换1000多次，变成替换1次。

2.多表输入相同抬头

几十张工作表，怎么输入相同的抬头？

右键，选定全部工作表，输入抬头的单位，相当于全部工作表同时输入。

比如另外一个学员遇到的问题，在第一张表输入内容，后面的表也跟着输入，就是选定全部工作表导致。

如果要取消，右键，取消组合工作表，这样就恢复正常。

3.多表输入不相同抬头

案例2的拓展，工作表名称跟抬头对应，比如工作表名称叫Excel不加班，抬头就叫Excel不加班。

这种技巧几乎实现不了，需要借助VBA代码。点开发工具，VB，插入模板，输入代码，运行。

Sub 抬头()

    Dim i%

        For i = 1 To Sheets.Count

            Sheets(i).Range("a2") = Sheets(i).Name

        Next

End Sub

运行完，每个工作表就分别得到相应的抬头。

如果前面内容需要加编制单位：也很简单，代码稍微改动下就可以。

"编制单位：" & Sheets(i).Name

既然聊到VBA，就顺便再说一些相关的案例。

4.批量更改工作表名称

有12个工作表，怎么将名称修改成1-12月？

使用代码：

Sub 批量更改工作表名称()

    For i = 1 To 12

        Sheets(i).Name = i & "月"

    Next

End Sub

5.制作目录

当工作表很多的时候，就要制作一个目录，方便后期查找。

使用代码：

Sub 制作目录()

    For i = 1 To Sheets.Count

        Range("A" & i) = Sheets(i).Name

    Next

End Sub

6.综合运用，现金日记账汇总

每一家银行日记账格式都一样，余额都放在E列，现在要实现将银行还有对应的最后余额提取到汇总表。

先来看最终效果，点下汇总按钮，1秒钟就搞定，还给你一个提示对话框"报告卢子，提取完毕"。

使用代码：

Sub 汇总()

    Dim i As Integer

        For i = 2 To Sheets.Count

            Range("a" & i) = Sheets(i).Name

            Range("b" & i) = Sheets(i).Range("E60000").End(xlUp).Value

        Next

    MsgBox "报告卢子，提取完毕"

End Sub

陪你学Excel，一生够不够？

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