求助，EXCEL里如何将多张工作表合成一张

我这个有点麻烦，论文数据要用，找的数据多个来源，因此要整合，多张表格，每张表格的列项比如说公司代码不尽相同，我就是想把每张表里相同的公司代码连同代码的那一行数据都提取出来，搜了下还要用到宏什么的，表示迷惑，网上也没教程什么的，求助求助，帮忙给个思路或列个公式，

打开excel，按alt+f11，在sheet1（sheet）右边的框框里面copy下面这些代码，再点击开始运行，就是类似△的这个标志，就可以了，后面你照着弹出来框框操作就行了。
宏：多个文件表合到一个文件表的多个SHEET中
Sub CombineWorkbooks()
Dim FilesToOpen, ft
Dim x As Integer

Application.ScreenUpdating = False
On Error GoTo errhandler

FilesToOpen = Application.GetOpenFilename _
(FileFilter:="Micrsofe Excel文件(*.xls), *.xls", _
MultiSelect:=True, Title:="要合并的文件")

If TypeName(FilesToOpen) = "boolean" Then
MsgBox "没有选定文件"
'GoTo errhandler
End If
x = 1
While x <= UBound(FilesToOpen)
Set wk = Workbooks.Open(Filename:=FilesToOpen(x))
wk.Sheets().Move after:=ThisWorkbook.Sheets _
(ThisWorkbook.Sheets.Count)
x = x + 1
Wend

MsgBox "合并成功完成！"

errhandler:
'MsgBox Err.Description
'Resume errhandler
End Sub

多表汇总和多表合并 可以用VBA解决

你好 你的问题必须上传你的数据文件 才能帮你实现 建议把你的文件打包发我邮箱（lbwdz_1984@126.com） 我帮你看下

你好 你的问题必须上传你的数据文件 才能帮你实现 建议把你的文件打包发我邮箱（lbwdz_1984@126.com） 我帮你看下 仅代表个人观点，不喜勿喷，谢谢。

你可以在你的表格里面建立空白档，先把要的那张合并过来，再改成相同格式