[已解决]删除汇总和为零的分类行

victory610

由于特殊的要求，需要将汇总和为零的分类行删除掉，只保留汇总和不为零的行。

请VBA大神帮忙。

非常感谢。

最佳答案

月排行榜 / 总排行榜

那么的帅

2014-3-15 00:26

1. Sub test()
   
2.     Dim d, k%, tmp
   
3.     Set d = CreateObject("scripting.dictionary")
   
4.     arr = Range("a1:b" & Cells(Rows.Count, 1).End(3).Row)
   
5.     For k = 3 To UBound(arr)
   
6.         If Not d.exists(arr(k, 1)) Then
   
7.             d(arr(k, 1)) = arr(k, 2)
   
8.         Else
   
9.             d(arr(k, 1)) = d(arr(k, 1)) + arr(k, 2)
   
10.         End If
    
11.     Next
    
12.     tmp1 = d.items
    
13.     tmp2 = d.keys
    
14.     For k = d.Count - 1 To 0 Step -1
    
15.         If tmp1(k) = 0 Then
    
16.             arr = Range("a1:b" & Cells(Rows.Count, 1).End(3).Row)
    
17.             For i = UBound(arr) To 3 Step -1
    
18.                 sss = d(arr(k, 1))
    
19.                 If arr(i, 1) = tmp2(k) Then Cells(i, 2).EntireRow.Delete
    
20.             Next i
    
21.         End If
    
22.     Next k
    
23. End Sub

复制代码

跳转到最佳答案楼层

那么的帅

1. Sub test()
   
2.     Dim d, k%, tmp
   
3.     Set d = CreateObject("scripting.dictionary")
   
4.     arr = Range("a1:b" & Cells(Rows.Count, 1).End(3).Row)
   
5.     For k = 3 To UBound(arr)
   
6.         If Not d.exists(arr(k, 1)) Then
   
7.             d(arr(k, 1)) = arr(k, 2)
   
8.         Else
   
9.             d(arr(k, 1)) = d(arr(k, 1)) + arr(k, 2)
   
10.         End If
    
11.     Next
    
12.     tmp1 = d.items
    
13.     tmp2 = d.keys
    
14.     For k = d.Count - 1 To 0 Step -1
    
15.         If tmp1(k) = 0 Then
    
16.             arr = Range("a1:b" & Cells(Rows.Count, 1).End(3).Row)
    
17.             For i = UBound(arr) To 3 Step -1
    
18.                 sss = d(arr(k, 1))
    
19.                 If arr(i, 1) = tmp2(k) Then Cells(i, 2).EntireRow.Delete
    
20.             Next i
    
21.         End If
    
22.     Next k
    
23. End Sub

复制代码

victory610

大神太厉害啦，这么快就给出答案啦。

锋速vba

26分钟搞掂，帅哥强

张雄友

110005        2000.00
110005        1000.00

这样也算汇总求和？