多张相同的电子表格(项目一样,数据不同),数据相加

多张相同的电子表格(项目一样,数据不同),我需要把这些张表格中的两项放到一张表中放到一张表中,就是姓名和工资这两项,放到一张表中,姓名有重复,但是工资不一样,那位高手帮帮忙,急!!!

编写一个VBA来实现。
例:
Dim fs, f, f1, fc, s

Set fs = CreateObject("Scripting.FileSystemObject")
Dim fd As FileDialog
Set fd = Application.FileDialog(msoFileDialogFolderPicker)
fd.Show
s = fd.SelectedItems(1)

Set f = fs.GetFolder(s)
Set fc = f.Files

For Each f1 In fc
Range("U4") = Range("U4") + Workbooks(2).Sheets("DailyReport").Cells(3, 7)
Next
温馨提示:答案为网友推荐,仅供参考
第1个回答  2010-11-03
没明白你的问题,如有需求可加QQ:113952476
相似回答