[求助] 用vba实现：表格中的一列按条件来统计并写入新的sheet

boysoft

如题，详见附件里的说明


表格的A列代表的名字，并且实际也不止4个人，如下表。附件已更新

张某        1        15.1
张某        1        2.5
张某        1        8
张某        2        3.1
张某        2        5
张某        3        1
李四        1        3.3
李四        1        2.1
李四        2        2.2
王某        1        1
王某        1        5.5
赵某        2        3.3
赵某        4        3.6

719404338

1. Sub t()
   
2. Dim i, j, d
   
3. Set d = CreateObject("Scripting.Dictionary")
   
4. For i = 1 To 13
   
5. d(Range("a" & i).Value & Range("b" & i).Value) = d(Range("a" & i).Value & Range("b" & i).Value) + Range("c" & i)
   
6. Next
   
7. k = 1
   
8. Sheet2.Activate
   
9. For i = 65 To 70
   
10.    For j = 1 To 5
    
11.       If d.Exists(Chr(i) & j) Then
    
12.         Sheet2.Range("a" & k) = Chr(i)
    
13.         Sheet2.Range("b" & k) = j
    
14.         Sheet2.Range("c" & k) = d(Chr(i) & j)
    
15.         k = k + 1
    
16.        End If
    
17.     Next j, i
    
18. End Sub

复制代码

08yj2001

数据透视表分分名搞定，一定要用VBA吗

boysoft

719404338 发表于 2019-1-12 13:59

谢谢

只是我的表达引起了歧义，A列的数据不只是A,B,C,这些字母

比如像下面的这样的表格，怎么实现？


张某        1        15.1
张某        1        2.5
张某        1        8
张某        2        3.1
张某        2        5
张某        3        1
李四        1        3.3
李四        1        2.1
李四        2        2.2
王某        1        1
王某        1        5.5
赵某        2        3.3
赵某        4        3.6