请问如何用宏合并（追加而不是罗列）各工作簿中各工作表中的数据

[em10][em10]

呼唤山菊花伸出援助之手

我刚才发出的求助问题http://club.excelhome.net/viewthread.php?tid=296441&replyID=&skin=0和你的很相似，但还是有不同。

希望能得到帮助！

o(∩_∩)o..已经给山版悄悄话了，===回音ing

Kta3S3n9.zip (22.84 KB, 下载次数: 247)

谢谢山版热心相助，点击追加成绩之后，实现效果如下（并不是此问题所需效果）

这个效果跟你解决LangQueS的问题一样了，能否修改一下，不让列标题重复附后罗列，期待==

需改进问题

1、第一次追加之后，kh1中没有721110010这一行；

2、可否实现数据从“语文”——“地理”列“选择性粘贴”中“运算-加”的效果？

D0mbt0iv.rar (63.77 KB, 下载次数: 66)

2008-1-28 09:29 上传

点击文件名下载附件

贴出山版提供的代码

Private Sub CommandButton1_Click()
Dim Sh As Worksheet
For Each Sh In Worksheets
Sh.Range("a2:k65536").ClearContents
Next
End Sub

Private Sub CommandButton2_Click()
Dim Sh As Worksheet, MyName$, ShName$, nRow%
Application.DisplayAlerts = False
Application.ScreenUpdating = False
On Error Resume Next
MyName = Dir(ThisWorkbook.Path & "\*.xls")
Do While MyName <> ""
If MyName <> ThisWorkbook.Name Then
Workbooks.Open ThisWorkbook.Path & "\" & MyName
With Workbooks(MyName)
For Each Sh In .Worksheets
nRow = Sh.Range("a65536").End(xlUp).Row
arr = Sh.Range("a2:k" & nRow)
ThisWorkbook.Sheets(Sh.Name).Range("a65536").End(xlUp).Offset(1).Resize(nRow - 1, 11) = arr
Next
.Close
End With
End If
MyName = Dir
Loop
Me.Activate
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub

如果格式一样,用SQL汇总,非常方便

你的格式不一样,那就要分两步来执行

先把多个工作薄合并成一个工作薄,

再用合并计算

6m0eAG5r.rar (101.2 KB, 下载次数: 220)