excel vba

yanghua118

每个业务员下都有自己的客户，先每个月汇总一下，再总的汇总一下。用VBA怎么做？谢谢

yanghua118

每个业务员的客户还会增加

yanghua118

朱荣兴 发表于 2019-3-12 10:31
模拟效果连个列标题都没有，根本弄不明白你需要汇总那些数据

销售汇总工作薄里小明工作表第一列是月分1月、2月..........，汇总小明名下的客户每个月的销售金额，然后在汇总到各月销售汇总表里每个月所有客户的销售金额。这个表就是客户发生了业务就要记录在这个客户的工作表里，然后数据会自动的分配到销售汇总工作薄业务员的工作表中。再汇总到各月销售汇总表中。

yanghua118

帮忙写一下吧

autolzg

太复杂了
不同工作簿汇总，还要按月统计，数据源看着也不太整齐
你重新设计一下数据源格式  再汇总  再用透视表  估计能搞定

autolzg

1. 
   

复制代码

1. Sub 一键汇总()
   
2.    Call 按业务员汇总
   
3.     Dim d As Object, sumx, i%, j%, k, rowx
   
4.     Dim sht As Worksheet
   
5.     Set d = CreateObject("Scripting.Dictionary")
   
6.    
   
7.     For Each sht In Worksheets
   
8.         If sht.Name <> "各月销售汇总" Then
   
9.             
   
10.             k = Cells(1000, 1).End(3).Row + 1
    
11.             
    
12.             For i = 1 To 12
    
13.                 sumx = 0
    
14.                 For j = 1 To k
    
15.                     sumx = sumx + sht.Cells(j + 1, i + 1)        'N列
    
16.                 Next j
    
17.                 d(i) = d(i) + sumx
    
18.                
    
19.             Next i
    
20.             Debug.Print d.Count
    
21.             
    
22.             With ThisWorkbook.Worksheets("各月销售汇总")
    
23.                 rowx = .Cells(19, 1).End(3).Row + 1
    
24.                 .Cells(rowx, 1) = sht.Name
    
25.                 For i = 1 To 12
    
26.                     .Cells(rowx, i + 1) = d(i)
    
27.                 Next i
    
28.             End With
    
29.             d.RemoveAll
    
30.         End If
    
31.     Next sht
    
32. End Sub
    
33. 
    
34. Sub 按业务员汇总()
    
35.    
    
36.     Dim d As Object, Mth, countx, RowY%
    
37.     Dim i%, j%, lj$, FN$, nm$
    
38.     Dim sh As Worksheet
    
39.     Application.ScreenUpdating = False
    
40.     Application.DisplayAlerts = False
    
41.     Set d = CreateObject("Scripting.Dictionary")
    
42.     lj = ActiveWorkbook.Path
    
43.     nm = ActiveWorkbook.Name
    
44.    
    
45.     For Each sh In Worksheets
    
46.         If sh.Name <> "各月销售汇总" Then
    
47.             FN = Dir(lj & "\" & sh.Name & "\*.xls*")
    
48.             
    
49.             Do While FN <> ""
    
50.                 Workbooks.Open filename:=lj & "\" & sh.Name & "\" & FN                   '打开要汇总的工作簿
    
51.                
    
52.                 With Workbooks(FN).Worksheets("sheet1")
    
53.                     j = 3
    
54.                     Do While Range("C" & j + 1).Value <> ""
    
55.                         j = j + 1
    
56.                     Loop
    
57.                     For i = 4 To j
    
58.                         Mth = Month(Cells(i, 3))
    
59.                         countx = Cells(i, 14)                    'N列
    
60.                         d(Mth) = d(Mth) + countx
    
61.                     Next i
    
62.                 End With
    
63.                
    
64.                 Workbooks(FN).Close True
    
65.                
    
66.                 With Workbooks(nm).Worksheets(sh.Name)
    
67.                     RowY = .Cells(10000, 1).End(3).Row + 1
    
68.                     .Cells(RowY, 1) = Left(FN, Len(FN) - 4)
    
69.                     For i = 1 To 12
    
70.                         .Cells(RowY, i + 1) = d(i)
    
71.                     Next i
    
72.                 End With
    
73.                
    
74.                 d.RemoveAll
    
75.                
    
76.                 FN = Dir
    
77.             Loop
    
78.             
    
79.         End If
    
80.     Next sh
    
81.    
    
82.     Application.ScreenUpdating = True
    
83.     Application.DisplayAlerts = True
    
84.    
    
85. End Sub
    

复制代码

未经严格测试
客户0000.rar (101.64 KB, 下载次数: 3)

2019-3-13 13:50 上传

点击文件名下载附件

yanghua118

上边的没有表达清楚，再表达一下：
业务员有销售，就将销售填写在相应的业务员文件夹中客户工作薄中（新客户需添加，原有客户可接在客户薄中填写），填写完后：1、将业务员文件夹中相应客户工作薄中A1列（客户名称）放入‘’销售汇总工作薄‘’相应业务员A列。2、根据客户工作薄中C列2019年的月份汇总N列到“销售汇总工作薄”相应业务员相应客户相应的月份中。