前言

Excel简单宏定义（快速合并多个表格，合并多个工作表，合并特定工作表）

具体操作

合并当前工作簿下的所有工作表

Sub 合并当前工作簿下的所有工作表()
On Error Resume Next
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set st = Worksheets.Add(before:=Sheets(1))
st.Name = "合并"
For Each shet In Sheets:
If shet.Name <> "合并" Then
i = st.Range("A" & Rows.Count).End(xlUp).Row + 1
shet.UsedRange.Copy
st.Cells(i, 1).PasteSpecial Paste:=xlPasteAll
End If
Next
Application.DisplayAlerts = True
Application.ScreenUpdating = True
MsgBox "已完成"
End Sub

合并当前目录下工作簿中特定工作表

Sub 合并当前目录下工作簿中特定工作表()
Application.ScreenUpdating = FalseDim wb, wb1 As Excel.WorkbookDim sh As Excel.Worksheets = Split(ThisWorkbook.Name, ".")(1)f = Dir(ThisWorkbook.Path & "\*" & s) '生成查找EXCEL的目录Do While f <> "" '在目录中循环If f <> ThisWorkbook.Name Then  '如果不是打开的工作簿Set wb = Workbooks.Open(ThisWorkbook.Path & "\" & f)wb.Worksheets("sheet2").Copy after:=ThisWorkbook.Worksheets(ThisWorkbook.Worksheets.Count)ActiveSheet.Name = Split(wb.Name, ".")(0)wb.CloseEnd Iff = DirLoopThisWorkbook.Worksheets("汇总").ActivateApplication.ScreenUpdating = TrueEnd Sub

合并当前目录下所有工作簿的全部工作表

Sub 合并当前目录下所有工作簿的全部工作表()Dim MyPath, MyName, AWbNameDim Wb As Workbook, WbN As StringDim G As LongDim Num As LongDim BOX As StringApplication.ScreenUpdating = FalseMyPath = ActiveWorkbook.PathMyName = Dir(MyPath & "\" & "*.xls")AWbName = ActiveWorkbook.NameNum = 0Do While MyName <> ""If MyName <> AWbName ThenSet Wb = Workbooks.Open(MyPath & "\" & MyName)Num = Num + 1With Workbooks(1).ActiveSheet.Cells(.Range("B65536").End(xlUp).Row + 2, 1) = Left(MyName, Len(MyName) - 4)For G = 1 To Sheets.CountWb.Sheets(G).UsedRange.Copy .Cells(.Range("B65536").End(xlUp).Row + 1, 1)NextWbN = WbN & Chr(13) & Wb.NameWb.Close FalseEnd WithEnd IfMyName = DirLoopRange("B1").SelectApplication.ScreenUpdating = TrueMsgBox "共合并了" & Num & "个工作薄下的全部工作表。如下：" & Chr(13) & WbN, vbInformation, "提示"End Sub

总结

Excel简单宏定义（快速合并多个表格，合并多个工作表，合并特定工作表）

Excel简单宏定义（快速合并多个表格，合并多个工作表，合并特定工作表）相关推荐

Excel通过宏实现数据的填充和表格的复制
Excel查看资源 --> 整改资产明细-模板 Sub 按钮1_Click() i = 2 colNum = 13 oneRowNum = 25 a1 = "1" Sheet ...
excel导航窗格_Excel小技巧16：在每天的某个时刻自动打开特定工作簿
学习Excel技术,关注微信公众号: excelperfect 我想要在每天下班前,将自已一天的工作进行整理并简短记录在一个Excel工作簿中.然而,有时候忙,可能会忘记:有时候到下班时间了,急于下班 ...
C 语言编程 — 宏定义与预处理器指令
目录文章目录目录前文列表宏预处理器预处理器指令预处理器指令示例预处理器指令运算符宏定义简单宏定义带参数的宏定义符号吞噬问题使用 do{}while(0) 结构预定义的宏常 ...
C语言常用宏定义(#define)使用方法
· 正 · 文 · 来 · 啦 · 前言 ------在上篇文章里面,我们分析了预处理的一个完整过程,这能够让我们理解一个写好的程序,在生成一个可执行文件,到底发生了什么,对我们在大型 ...
c int最小值的宏_C语言宏定义的妙用！用完软硬件效率蹭蹭涨！
1 概述在工程规模较小,不是很复杂,与硬件结合紧密,要求移植性的时候,可采用宏定义简化编程,增强程序可读性. 当宏作为常量使用时,C程序员习惯在名字中只使用大写字母.但是并没有如何将用于其他目的的宏 ...
【⚠️阴沟里翻船，这题都做错了！⚠️】C语言宏定义
前言快答题!直接上题,10秒之内报出a的值是多少! #include<stdio.h> #define SQR(x) x*x int main() {int a = 10, k = 2, ...
转 C++宏定义详解
来自:传送门 C++宏定义详解一.#define的基本用法 #define是C语言中提供的宏定义命令,其主要目的是为程序员在编程时提供一定的方便,并能在一定程度上提高程序的运行效率,但学生在学习时往 ...
宏定义Define的一些用法
---转载百度文库一. #define是C语言中提供的宏定义命令,其主要目的是为程序员在编程时提供一定的方便,并能在一定程度上提高程序的运行效率,但学生在学习时往往不能理解该命令的本质,总是在此处 ...
C语言中宏定义的使用
1. 引言 1.1 宏定义的基本语法 1.2 宏定义的优点 1.3 宏定义的缺点 1.4 宏还是函数 2 使用宏时的注意点 2.1 算符优先级问题 2.2 分号吞噬问题 2.3 宏参数重复调用 2.4 ...

Excel简单宏定义（快速合并多个表格，合并多个工作表，合并特定工作表）

文章目录

前言

具体操作

总结

Excel简单宏定义（快速合并多个表格，合并多个工作表，合并特定工作表）相关推荐

最新文章

热门文章