[已解决]如何按要求汇总显示

shuizhongdaisha

因销售是要求的每年一个一作簿，现要把每年未收款的明细汇在一个总表上，收款在明细表录入后总表相对应的未收款也不在显示已收回款的明细，请大家给帮忙看看，谢谢。

最佳答案

月排行榜 / 总排行榜

grf1973

2014-5-21 11:37

请看附件。

跳转到最佳答案楼层

ppp710715

是只汇总未收款的明细吗？

grf1973

首先把所有要汇总的表放到一个文件夹里。

1. Sub 导入文件()
   
2.     Application.ScreenUpdating = False
   
3.     Dim filename, wb As Workbook, Sht As Worksheet
   
4.     filename = Dir(ThisWorkbook.Path & "\*.xls")
   
5.     Set sh = ActiveSheet
   
6.     Do While filename <> ""
   
7.         If filename <> ThisWorkbook.Name Then
   
8.             fn = ThisWorkbook.Path & "" & filename
   
9.             Set wb = Workbooks.Open(fn)
   
10.             Set Sht = wb.Worksheets(1)
    
11.             r = Sht.[a65536].End(3).Row
    
12.             r1 = sh.[a65536].End(3).Row
    
13.             Sht.Range("a2:L" & r).Copy sh.Cells(r1 + 1, 1)   '把所有文件内容复制到当前工作表
    
14.             wb.Close False
    
15.         End If
    
16.         filename = Dir
    
17.     Loop
    
18.     Set Sht = Nothing
    
19.     With sh   '把当前工作表中欠款为0的行去掉
    
20.         r = .[a65536].End(3).Row
    
21.         Set delrng = .Rows(r + 1)
    
22.         For i = 3 To r
    
23.             If Val(.Cells(i, "L")) = 0 Then Set delrng = Union(delrng, .Rows(i))
    
24.         Next
    
25.         delrng.Delete
    
26.     End With
    
27.     Application.ScreenUpdating = True
    
28. End Sub
    

复制代码

grf1973

请看附件。

shuizhongdaisha

grf1973 发表于 2014-5-21 11:37
请看附件。

如果一直点按纽一的话会一直出来也重复了

shuizhongdaisha

ppp710715 发表于 2014-5-21 11:31
是只汇总未收款的明细吗？

是的，如果明细那边收回了，汇总这边就不在显示已收回的

ppp710715

shuizhongdaisha 发表于 2014-5-22 08:43
如果一直点按纽一的话会一直出来也重复了

要解决“如果一直点按纽一的话会一直出来也重复了”这个问题，可在Do循环前加上这句：
sh.Range("3:20000").Clear

grf1973

7楼正解。一开始把要显示部分内容清空就行了。