用VBA字典进行分类汇总

aroundrain

楼上各位大神，能否用VBA字典实现我现在用公式来实现的内容？请见附件，有牢各位了！

ivccav

这种问题，在本论坛随便一搜，都是几百个。楼主不要太懒了，总想让别人写好给你就能用。那样是学不到东西的。VBA本来就非常简单，是为非CS专业准备的不算计算机语言的语言

Ace.Excel

如果要接触VBA，那么字典求和是基本操作。

【当然我也没去看附件】

lsc900707

学习也要有个循序渐进的过程。初学者对字典知识一下子搞懂恐怕有点难：

1. Sub gj23w98()
   
2.     Set d = CreateObject("Scripting.Dictionary")
   
3.     Set d1 = CreateObject("Scripting.Dictionary")
   
4.     With Sheets("台账")
   
5.         r = .Cells(.Rows.Count, 1).End(3).Row
   
6.         arr = .Range("a2:o" & r)
   
7.         For i = 2 To UBound(arr)
   
8.             If arr(i, 1) = "p" Then
   
9.                 d(arr(i, 4)) = d(arr(i, 4)) + arr(i, 15)
   
10.             End If
    
11.             If arr(i, 1) = "f" Then
    
12.                 d1(arr(i, 4)) = d1(arr(i, 4)) + arr(i, 15)
    
13.             End If
    
14.         Next
    
15.     End With
    
16.     With Sheets("供应商账务汇总")
    
17.          r = .Cells(.Rows.Count, 2).End(3).Row
    
18.          .Range("d3:o" & r).ClearContents
    
19.          For i = 3 To r
    
20.              If d.exists(.Cells(i, 2).Value) Then
    
21.                  .Cells(i, 4) = d(.Cells(i, 2).Value)
    
22.                  .Cells(i, 5) = d1(.Cells(i, 2).Value)
    
23.              End If
    
24.         Next
    
25.     End With
    
26. End Sub

复制代码

LMY123

同薄字典或SQL分类汇总

abc123281

还是版主老师说得对

uynayna

新人还行，论坛混几年还不懂字典，真不知道说什么好。

jjmysjg

版主了解初学者情况

cn6181

lsc900707 发表于 2017-12-7 17:39
学习也要有个循序渐进的过程。初学者对字典知识一下子搞懂恐怕有点难：

顶一下版主，说的别人心坎里去了

aroundrain

ivccav 发表于 2017-12-7 16:45
这种问题，在本论坛随便一搜，都是几百个。楼主不要太懒了，总想让别人写好给你就能用。那样是学不到东西的 ...

我找了好多，并且很久了啊，但一直没学会，不过也没有我这么复杂的汇总哦