4段宏代码让你工作效率提高100倍

1、4 段宏代码，让你工作效率提高100 倍excel 为我们提供了很多好用的功能和函数，但还是有很多工作无法用现有功能和函数批量完成，比如多个excel表格的合并与拆分。而借助VBA 语言编写的宏代码，这些看似无法批量处理或无法完成的事情，瞬间变得只是小菜一碟，也许你不懂VBA ，也建议先收藏起来这些代码备用。（第 1 个示例中，演示了VBA 代码的使用方法，后面示例均和第 1 个类似，不再具体演示）1、一次取消所有工作表的隐藏Excel可以一次隐藏多个工作表，但取消工作表隐藏却需要一个个的设置，用VBA编写一段代码，一秒完成！注意要想使用VBA功能，需要把代码粘贴到添加的模块中，详见动画演示要

2、想保存VBA代码，需要把文件另存为xlsm 格式文件，详见动画演示动画演示：代码： Sub 取消隐藏 ()For x = 1 To Sheets.CountIf Sheets(x).Name <> ' 总表 'ThenSheets(x).Visible = -1End IfNext xEnd SubSub 隐藏 ()For x = 1 To Sheets.CountIf Sheets(x).Name<> ' 总表 ' ThenSheets(x).Visible = 0End IfNextxEnd Sub2、

3、根据模板批量生成日报表根据模板批量生成报表，没什么好方法， 只能一个一个的复制然后修改名称。但这对 VBA来说，只需点一下按钮即可瞬间完成。代码： Sub 生成报表 ()Dim x As Integer Dim sh As Worksheet For x = 1 To 31Set sh = Sheets.Add With sh .Name = x & ' 日' Sheets(' 日报模板 ').Range('1:15').Copy sh.Range('A1')End With Next xEnd Sub3、拆分工作

4、表为单独的excel 文件把当前excel 文件中除第1 个工作外的所有工作表，均保存为单独的excel 文件到 3月文件夹中。拆分演示（在拆分过程中会画面会停几秒，请耐心等待）代码：Sub拆分表格 ()Dim x As Integer Dim wb As WorkbookApplication.ScreenUpdating = False For x = 2 To 32Sheets(x).CopySet wb = ActiveWorkbookWithwb.SaveAs ThisWorkbook.Path & '/3月/' &Sheets(x).

5、Name & '.xlsx'.Close TrueEnd WithNext x Application.ScreenUpdating = TrueEnd Sub4、合并多个Excel 文件工作表到一个文件中3 月文件夹下有 N 张报表， 要求把该文件夹中所有excel 文件的第1 个工作表合并到当前的excel 文件中，以单独的工作表存放。代码： Sub合并表格 () Dim mypath As String Dim f AsString Dim ribao As Workbook Application.ScreenUpdating= False mypath = ThisWorkbook.Path & '/3月/' f =Dir(ThisWorkbook.Path & '/3月/*.xlsx') DoWorkbooks.Open (mypath & f)WithActiveWorkbook.Sheets(1).Moveafter:=ThisWorkbook.Sheets(Sh