excel表格怎么合并到一张表

1.Excel怎么把两个表文件合并成一张表

假设数据在A1:B10，如下图：

则D1输入下面的公式后下拉复制就可以了，如下图：

=OFFSET(A$1,TRUNC((ROW()-1)/2),MOD(ROW()-1,2))

知识扩展：

如果数据不止2列，假设为3列，则把公式中的2改为3就可以了，如果是4列多行就改为4，依此类推，3列多行结果如下图：

2.excel表格,如何将不同的***的excel文件合并到一个excel里?

使用粘贴链接的方法，可以使两表格数据联动。

Excel版本参考：2010

1、复制需要联动的数据-右击-复制（CTRL+C）;

2、切换表格到需要粘贴的位置，右击-选择性粘贴-粘贴链接；

3、修改数据源中的部分数据，进行测试（数据已联动）

3.如何将多张excel表格合成一张?

这个同我猜的就一样，需要VB来写了，抄袭下了 。

复制以下代码到宏，然后在要汇总的表上创建一个对象（文本框或者图片），然后在其身上点右键，指定宏，选择我们保存的宏，汇总时，点对象即可执行汇总操作。以下就是宏内容：

Sub 将同路径下的多张工作薄中的工作表合并到当前活动的工作表（）

Application.ScreenUpdating = False

Dim lj, dirname, nm

Dim a As Long

Dim i As Long

lj = ActiveWorkbook.Path

nm = ActiveWorkbook.Name

dirname = Dir(lj & "\*.xls")

Do While dirname <> ""

If dirname <> nm Then

Workbooks.Open Filename:=lj & "\" & dirname

a = Sheets.Count '读当前工作薄中的所有的工作表

Workbooks(nm).Activate

For i = 1 To a

Workbooks(dirname).Sheets(i).UsedRange.Copy Range("a65536").End(xlUp).Offset(1, 0) '复制新打开的工作簿的第一个工作表的已用区域到rng

Next i

Workbooks(dirname).Close False

End If

dirname = Dir

Loop

End Sub

4.如何将相同表格的 数据合并在一张表

解决方法如下：

1、准备工具

(1)excel表格

(2)公式函数

2、首先打开2个excel表格（如图一、图二），会发现这两个excel表格的A列是相同类型的，都是”百度ID号“，不同的是表格1有经验数量和财富值

(1)而表格2有的是最近拿好经验红包的数量，现在就是需要把2个excel合并成一个表格。

3、现在表格1的D列写上需要导入数据的列标题，或者直接从表格2中复制-粘贴过来也行。

4、然后将鼠标移动到D列的第二行，打开菜单栏的”公式“选项，在公式的工具中找到”插入函数“并点击。

5、在插入函数窗口页面，在搜索函数框中输入”vlookup"然后转到，在出现的结果函数中，点击vlookup函数，然后点确定。如图

(1)弹出来的函数参数中，在第一个填写框vlookup_value中直接点击A2的”张一”。如图

(2)在第二个填写框Table_array中全选表格2，表格2中A列和B列都包含了。（如下图）

6、在第三个填写框col_index_num 中直接填写2，表示选择第2列的数据，然后第四个填写框Range_lookup中填写0，表示大致匹配，然后填写完毕之后点击确定。

7、这时D列的D2显示5，表示张一拿到5红包，因为刚才的函数公式是跟张一对应的，所以出现了张一的数据

(1)想要其他人的数据时，可以把鼠标放到D2选项框的右下角，等到出现一个“+”号时，双击鼠标左键。

8、这时候所有的数据都出来了，成功将表格2的数据导入表格1，合并成一个表格数据。如图

(1)注意：将2个excel表格的数据合并成一个表格，需要两个表格中有相同列的数据；

以上就是将相同表格的数据合并在一张表方法步骤了

9、如果上述功能都无法使用，可能是程序出现了问题。建议重新下载安装试试，建议使用wps office2013:www.3322.cc/soft/20130705107.html

5.怎么把几张excel表格中的内容合并到一张表里

原发布者：百度—百家号

怎么把几张excel表格中的内容合并到一张表里可以利用VBA将多个格式相同的Excel表格数据快速合并到一张表格中。软件版本：Office2007方法如下：1.在当前工作簿中有多个格式万全相同，但数据不同的工作表，将其内容合并到SHeet1中：2.Alt+F11，输入代码如下：subm()foreachshinsheetsifsh.name>Sheets(1).namethensh.range("A2:B3").copysheets(1).range("A"&Sheets(1).range("A65536").end(4).row+1)endifnextendsub3.F5执行代码，得到结果如下：（本文内容由百度知道网友贡献）本文作者：百度知道知科技

6.如何快速的把多张表格合并成一张

用一个VBA就可以实现的，使用方法：

1、新建一个工作薄，将其命名为你合并后的名字。

2、打开此工作薄。

3、在其下任一个工作表标签上点击右键，选择“查看代码”。

4、在打开的VBA编辑窗口中粘贴以下代码：

Sub 工作薄间工作表合并（）

Dim FileOpen

Dim X As Integer

Application.ScreenUpdating = False

FileOpen = Application.GetOpenFilename(FileFilter:="Microsoft Excel文件（*.xls）,*.xls", MultiSelect:=True, Title：="合并工作薄"）

X = 1

While X <= UBound(FileOpen)

Workbooks.Open Filename:=FileOpen(X)

Sheets().Move After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)

X = X + 1

Wend

ExitHandler:

Application.ScreenUpdating = True

Exit Sub

errhadler:

MsgBox Err.Description

End Sub

5、关闭VBA编辑窗口。

6、在excel中，工具---宏---宏，选“工作薄间工作表合并”，然后“执行”。

7、在打开的对话窗口中，选择你要合并的300个工作薄。