excel表格数据太多怎么整合

1.EXCEL多个表数据合并

LZ 200表多个是一个个EXCEL表 还是在一个EXCEL 文件里面啊？

VB 可以解决但我不会

我的方子笨点 你的表名字应该是很规律的 因为那么多表放一起 我估计是时间吧 我就举例子1表 2表截图 1 2 表我放在右上了里面就2列数据

B2=INDIRECT(A2&"!a"&MOD(ROW(A1),10))

C2=INDIRECT(A2&"!b"&MOD(ROW(A1),10））我的意思是假设1 2 表里面最多9行数据吧 然后用引用的办法都把数据引过 最后出现错误是因为函数最后返回的是0,MOD(ROW(A1),10）是1 2 3 4 5 6 7 8 9 0 这样无限制循环下去的

最后你把错误的和0的行过滤掉就可以了

方法笨了点不知道你表里面行书多不多 多就要自己调MOD(ROW(A1),10） 如果是50行那就MOD(ROW(A1),51） 自己琢磨了看看

2.怎么合并多个excel表格数据

1、新建一个文件夹、将要合并的表格放到里面、新建一个表格、用excel打开、右击Sheet1

2、选择查看代码（PS:excel有着一项，WPS没有）

3、将下列代码复制到文本框中：

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

Dim MyPath, MyName, AWbName

Dim Wb As workbook, WbN As String

Dim G As Long

Dim Num As Long

Dim BOX As String

Application.ScreenUpdating = False

MyPath = ActiveWorkbook.Path

MyName = Dir(MyPath & "\" & "*.xls")

AWbName = ActiveWorkbook.Name

Num = 0

Do While MyName <> ""

If MyName <> AWbName Then

Set Wb = Workbooks.Open(MyPath & "\" & MyName)

Num = Num + 1

With Workbooks(1).ActiveSheet

.Cells(.Range("B65536").End(xlUp).Row + 2, 1) = Left(MyName, Len(MyName) - 4)

For G = 1 To Sheets.Count

Wb.Sheets(G).UsedRange.Copy .Cells(.Range("B65536").End(xlUp).Row + 1, 1)

Next

WbN = WbN & Chr(13) & Wb.Name

Wb.Close False

End With

End If

MyName = Dir

Loop

Range("B1").Select

Application.ScreenUpdating = True

MsgBox "共合并了" & Num & "个工作薄下的全部工作表。如下：" & Chr(13) & WbN, vbInformation， "提示"

End Sub

4、点击运行、一段时间（取决于表格的大小和多少）后，合并完成了。

3.如何把Excel表格的多列数据合并

把Excel表格的多列数据合并的方法：

以下图为例，现需将表格红色边框内的多列内容，合并在右侧枚红色边框的一列。

1.在F2表格内输入“=”。

2.输入完可以得到这样的效果。

3.逐步在F3输入“=B3&C3&D3&E3”,F4输入“=B4&C24&D4&E4”……可以得到相应效果。

4.还有简便的方式：拖拽格式，得到效果。选中表格，拖拽右下角的“+”往下拖拽即可。

4.excel怎么快速合并多个工作表数据

打开第一个表，右击sheet标签，查看代码，把下面代码贴进去，然后按F5。如果结果是你要的再把代码删掉正常保存表格。

提示，此操作无法回退，请在操作前提前保留副本

Sub hebing()

Dim sht As Worksheet, a As Integer, b As Integer, rng As Range

For Each sht In Worksheets

If sht.Name ActiveSheet.Name Then

Set rng = Range("a1").End(xlDown).Offset(1, 0)

a = sht.Range("a1").CurrentRegion.Rows.Count

b = sht.Range("a1").CurrentRegion.Columns.Count

sht.Range("a2").Resize(a - 1, b).Copy rng

End If

Next

End Sub