怎么把两张表格内容合并到一张纸上

Question

如题所述

Answer 1

1. 如何把几张表的内容合并在一张表上
简单点的就直接复制》粘贴就可以，这里面可能需要一个快捷键：ctrl+shift+方向键（这三键作用是选定一定范围的单元格区域）、或者ctrl+A（全选工作表）；

复杂点的可以用函数，可以用if+countif函数判断判断每个工作表中行列实际数据数量，甚至可以通过自定义一个函数X》“插入”》名称》名称设为“X"》引用位置：=GET.WORKBOOK(1)，以提取全部工作表名，再加以应用以省却单个输入类似于”SHEET2!A:A"之类的工作表引用；

当然，在高级一点可以编写一个vba，这个对我而言有难度了，不过你可以自行搜索相关宏程序。
2. 怎么把几张excel表格中的内容合并到一张表里
“几张excel表格合并到一张里”的操作步骤是： 1、以Excel 2016为例，打开Excel工作表； 2、由已知条件可知，在一个工作簿下，有多个工作表，工作表的结构都相同，但数据顺序不同，需要实现多个表格合并生成一个汇总表； 3、在“汇总表”中，点击“数据”选项下的“合并计算”； 4、根据数据合并的规则，选择“求和”，并将牵涉取合并的数据区域通过“引用位置”逐个添加进去，标签位置根据实际需要，勾选“首行”“最左列”； 5、按“确定”后，“汇总表”生成了合并计算的结果，完成了多表合并。

3. 怎么把几张excel表格中的内容合并到一张表里
用复制粘贴，也可以用VBA实现：按ALT+F11组合键，打开VB编辑器，插入--模块，把下面代码复制到右边窗口，光标定位到代码里，按F5运行。（要合并到那个工作表里就把那个工作表作为当前工作表）

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

Application.ScreenUpdating = False

For j = 1 To Sheets.Count

If Sheets(j).Name <> ActiveSheet.Name Then

X = Range("A1048576").End(xlUp).Row + 1

Sheets(j).UsedRange.Copy Cells(X, 1)

End If

Next

Range("B1").Select

Application.ScreenUpdating = True

MsgBox "当前工作簿下的全部工作表已经合并完毕！"， vbInformation， "提示"

End Sub