作者：乔山办公网日期：
返回目录：excel表格制作
Sub mergeonexls() '合并多工作簿中指定工作表
On Error Resume Next
Dim x As Variant, x1 As Variant, w As Workbook, wsh As Worksheet
Dim t As Workbook, ts As Worksheet, l As Integer, h As Long
Application.ScreenUpdating = False
Application.DisplayAlerts = False
x = Application.GetOpenFilename(FileFilter:="Excel文件 (*.xls; *.xlsx),*.xls; *.xlsx,所有文件(*.*),*.*", _
Title:="Excel选择", MultiSelect:=True)
Set t = ThisWorkbook
Set ts = t.Sheets(1) '指定合并到的工作表，这里是第一张工作表
l = ts.UsedRange.SpecialCells(xlCellTypeLastCell).Column
For Each x1 In x
If x1 <> False Then
Set w = Workbooks.Open(x1)
Set wsh = w.Sheets(1) '指定所需合并工e799bee5baa6e997aee7ad94e4b893e5b19e363作表，这里是第一张工作表
h = ts.UsedRange.SpecialCells(xlCellTypeLastCell).Row
If l = 1 And h = 1 And ts.Cells(1, 1) = "" Then
wsh.UsedRange.Copy ts.Cells(1, 1)
Else
wsh.UsedRange.Copy ts.Cells(h + 1, 1)
End If
w.Close
End If
Next
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub
我曾经看到一个将十多个表格汇总到一个表格，用的是宏代码
首先更正楼主的一个错误，A1、B1叫单元格（每个行与7a64e58685e5aeb9338列交叉的小格叫单元格），而不是列（列应当用A、B...表示）。像你这样提问，很难让回答者明白你的意思。。
目前找不到太好的代码，先用下面的代码吧，速度可能稍慢些（视a.xls里面内容多少而定）~~
使用方法（代码中以A、B列理解的你的意思）：
1、打开 b.xls 需要输入型号的那张表，按 ALT + F11 组合键打开 VBA编码器
2、在编码器左侧双击与 b.xls 需要输入型号的那张表 对应的表
3、把下面的代码复制到右侧的代码区域
在 b.xls 需要输入型号的那张表的A列输入型号试试看哦。。
' 表更新事件
Private Sub Worksheet_Change(ByVal Target As Range)
' 把发生更新的单元格行号赋值给变量 i
i = Target.Row
' 如果A列数据发生更新
If Target.Column = 1 Then
' 如果单元格更新后的内容为空，则结束代码
If Cells(i, 1) = "" Then Exit Sub
' 先使更新单元格同行的B列值为空
Cells(i, 2) = ""
' a.xls 获得焦点
Windows("a").Activate
' 循环 a.xls 的各个表
For Each aws In Worksheets
' 循环 a.xls 中 aws 表的用户行
For j = 1 To aws.UsedRange.Rows.Count
' 如果 A列单元格 等于输入内容
If aws.Cells(j, 1) = Cells(i, 1) Then
Cells(i, 2) = aws.Cells(j, 2)
End If
Next j
Next aws
' b.xls 获得焦点
Windows("b").Activate
' 如果没有对应内容
If Cells(i, 2) = "" Then
MsgBox "对不起！没有找到你输入的内容...", , "波涛工作室"
End If
End If
End Sub
1、首先打开需要编辑的Excel表格，进入到编辑页面中。
2、然后度选择需要汇总的工作表。问选择打开主菜单栏数据中的“合并计算”答选项。
3、然后在弹出来的合并计算窗口专中，点击函数，选择“求和”，打开引用位置后面的按钮。
4、选中第一张工作表数据，并点击【属添加】按钮。
5、然后按照上一步骤的方法添加其他的工作表。
6、然后点击打勾左下角中的标签位置下方的两个选项，回车确定。
7、然后就完成了。