excel宏合并表格数据(怎么用宏合并excel多个表)

1. 怎么用宏合并excel多个表

通过EXCEL宏功能实现打印选定内容的具体步骤如下：

1、首先打开需要编辑的Excel表格，进入到编辑页面中，打开开发工具中的“插入”，选择第一个图标。

2、然后框选出一个按钮，右键单击该按钮选择打开“指定宏”。

3、然后在弹出来的窗口中点击打开“编辑”选项。

4、然后在弹出来的窗口中点击输入代码如下： Sub 按钮8_Click() For i = Range('I1') To Range('I2') Range('H1') = i ActiveSheet.PrintOut Next End Sub 输完后，单击按钮即可。

2. excel表格合并宏代码

　　简单说，宏是用来录制你的操作过程的，是excel的一种功能扩展。　　宏是一些存储了一系列命令的程序。当创建一个宏时，您只是将键盘操作按顺序组合成一个简单的命令，您以后可以“回演”这个命令。宏可以减少完成复杂任务的步骤，因此使用宏可以显著地减少创建、设置格式、修改和打印工作表的时间。　　Excel 提供了很多内置且省时的功能使工作变得更快更灵活。在决定使用宏来自动化工作表任务前，确保没有已有的内置功能来执行这项任务。当需要反复地完成一些操作，或者Excel没有提供内置的工具完成这项工作时，就创建宏。宏可以自动化工作表中的任何部分。例如，创建宏在工作表中输入标题或者用新标签替换列标题实现自动化数据录入。宏也可以检查工作表所选区域里的重复值。使用宏，不仅可以快速地将格式应用到多个工作表，也可以合并不同的格式，例如字体、颜色、边框和阴影等。即使Excel有优秀的图表功能，但如果想要将图表创建和图表格式设置自动化，那么宏是一个好方法。当开始设置打印区域、页边距、页眉和页脚、以及选择特殊的打印选项时，宏可以节省键盘操作的时间。

3. excel 宏 合并单元格

系统本身没有快捷方式，一般都是利用录制宏来新建快捷键的选择两个单元格点。工具->宏->录制新宏弹出小窗口。填上要的快捷键（如ctrl+w）操作一次合并点小窗口停止录制那么之后用到合并就按设置的快捷键（如ctrl+w）写得应该算明白，不过还是存在点限制（只针对工作表）。

4. 合并宏怎么用

通过组合键设置可以对键盘的100多个字键进行自定义编程，如复合键的功能在单字键上实现、单键操作实现打开/关闭电脑某个程序或文件的功能

5. 合并sheet的宏代码

看到Excel多表合并，其实常见的有2种场景

场景一：多个Excel文件需要合并为1个Excel文件（多个工作簿合并为1个工作簿）

场景二：1个Excel文件种有多个工作表，需要合并为1个工作表

首先来看下，场景一（多个Excel文件合并为1个文件），都有哪些方法可以实现？

场景描述：如图所示，在文件夹中，有4个Excel文件，每个Excel文件的数据格式都一致，需要把4个Excel文件合并到1个Excel文件中。

每个工作簿中的内容格式都一样，为了区分，我把工作簿1中的 位置 数据，标为了“工作簿1”；工作簿2中的数据标为了“工作簿2”...以此类推。

下面雷哥推荐几种方法来实现多个Excel文件合并为1个文件

方法1：PowerQuery

Step1：单击 【数据】- 【新建查询】 - 【从文件】- 【从文件夹】

Step2：单击 【浏览】，选择文件夹路径

Step3：选择【合并并加载】

最终的效果如图所下图所示。自动增加了

Source.Name

数据列，可以很方便看到数据来自于哪个工作簿

方法2：使用CMD命令，1s搞定合并

Step1：需要把文件格式修改为 csv文件格式。打开文件，另存为csv文件即可

Step2：在文件所在路径，按【shift】+右键，点击【此处打开命令窗口】，输入

copy *.csv out.csv， 即把该路径下所有的csv文件合并到out.csv文件中。

下面来看下，场景二（多个Excel工作表合并为1个Excel工作簿），都有哪些方法可以实现？

场景描述：如图所示，1个excel文件中，有多个工作表，需要合并到1个工作表中。

方法1：PowerQuery法

Step1：单击 【数据】- 【新建查询】 - 【从工作簿】

Step2：选择需要合并的工作表

Step3：在追加查询中，单击【将查询追加为新查询】

Step4：选择所需的工作表

Step5：单击关闭并上载

最终的效果如图所示

方法2：使用宏

Step1：按【Alt】+【F11】

Step2：输入代码，并单击三角形图标运行

Application.ScreenUpdating = False For j = 1 To Sheets.Count If Sheets(j).Name <> ActiveSheet.Name Then X = Range("A60000).End(xlUp).Row + 1 Sheets(j).UsedRange.Copy Cells(X, 1) End If Next Range("B1").Select Application.ScreenUpdating = True MsgBox "小主，数据合并结束啦！", vbInformation, "提示" End Sub

运行效果如下图所示，后续我们删去多余的标题行即可~

方法3：插件法 - 最简单

Step1：使用【方方格子】插件，单击【合并工作表】

Step2：选择汇总区域后，单击确定

最终的效果如下

还是插件最简单，分分钟搞定哈~

雷哥：自媒体【雷哥office】创始人，《竞争力：玩转职场Excel，从此不加班》作者，微软Excel专家认证，office培训师，职场老司机，分享职场经验 / 办公技能 / 提高职场效率！

6. 合并所有excel 宏

看图：

1、2、3、不止合并居中，其他常用的键你也可以这样设置。在我这里，合并居中的快捷键就是ALT+5。ps：延伸，如果你每次要表头合并居中并且设置字体字号颜色，可以选择录制一个宏，定义一个快捷键。

我经常要把这些表格复制到word中，录一个宏统一格式并全部选择复制。很方便。