[求助]如何汇总复制多个工作簿内的明细数据？

lining

附件内A1南区、A1北区两个工作簿内的工作表结构完全一样，但其中的第I列数据有些行为0，有些行非0，请问如何将两个工作簿内第I列金额不为0的数据按明细整行自动复制到一个新的工作簿中去？

2011-9/20119622343140532.zip

[此贴子已经被作者于2011-9-6 22:35:25编辑过]

sunny_liu

不知我理解有没有错，你把这两个表I列非0的Fiter大于0的，直接COPY到一个新的工作表，就行了。1分钟都不用啊，为什么要自动复制了？

lining

你说的方法在我提供的范例里面是可以的，但当你遇到六七十个单位，每个单位都有一张，你不知道哪天哪个单位会改动一个数据重新报给你，这种情况下手工操作是很容易出错的

lining

有位老兄给了我一个excel文件，可以瞬间把同一目录下的表格全部复制到一个工作表里，虽然和我的要求还有点差距，没有把0都删掉，但至少减少了很大工作量了

大嘴

2011-9/20119710243763352.rar
2011-9/20119710244729244.rar
提供两种案例，第一种运用了编程，第二种是INDIRECT函数，没有现成的，参考一下吧！

[此贴子已经被作者于2011-9-7 10:26:40编辑过]

lining

以下是引用大嘴在2011-9-7 10:24:00的发言：

下载信息 [文件大小：7.2 KB 下载次数：1]

点击浏览该文件:indirect对定义名称再引用的分析.rar

下载信息 [文件大小：12.2 KB 下载次数：1]

点击浏览该文件:样本.rar

提供两种案例，第一种运用了编程，第二种是INDIRECT函数，没有现成的，参考一下吧！

[此贴子已经被作者于2011-9-7 10:26:40编辑过]

太笨了，没琢磨出来

大嘴

Sub 按钮1_单击()
Dim i As Integer
For i = 2 To Worksheets.Count
Sheets(1).Range("A" & i) = Sheets(i).Name
Sheets(1).Range("B" & i) = Sheets(i).Range("A6")
Sheets(1).Range("C" & i) = Sheets(i).Range("B6")
Sheets(1).Range("D" & i) = Sheets(i).Range("A9")
Sheets(1).Range("E" & i) = Sheets(i).Range("E9")
Sheets(1).Range("F" & i) = Sheets(i).Range("B9")
Next i
End Sub

lining

以下是引用大嘴在2011-9-7 14:25:00的发言：
Sub 按钮1_单击()
Dim i As Integer
For i = 2 To Worksheets.Count
Sheets(1).Range("A" & i) = Sheets(i).Name
Sheets(1).Range("B" & i) = Sheets(i).Range("A6")
Sheets(1).Range("C" & i) = Sheets(i).Range("B6")
Sheets(1).Range("D" & i) = Sheets(i).Range("A9")
Sheets(1).Range("E" & i) = Sheets(i).Range("E9")
Sheets(1).Range("F" & i) = Sheets(i).Range("B9")
Next i
End Sub

代码我之前在EXCEL里面也看过了，但我完全不懂，回头找点教程先学学

fairyfox

合并计算应该可以吧