如何批量删除汇总行？

bourne85

遇到个问题：从公司系统里导出的数据，老是带有一行汇总的行，就是把同类的数求个和放在该类别最上头。系统调整不了导出表的格式，只能手工处理，求助一个处理办法，多谢！

范例文件请见附件，请高人指点！

Chip_Kenny

1. Sub zz()
   
2. Dim n&, b(), k
   
3. a = Range("a2:b" & [a1048576].End(3).Row).Value
   
4. ReDim b(1 To UBound(a), 1 To UBound(a, 2))
   
5. k = a(1, 1)
   
6. For i = 2 To UBound(a)
   
7.     If a(i, 1) = k Then
   
8.         n = n + 1
   
9.         For j = 1 To UBound(a, 2)
   
10.             b(n, j) = a(i, j)
    
11.         Next
    
12.     Else
    
13.         k = a(i, 1)
    
14.     End If
    
15. Next
    
16. [a2].Resize(i - 1, 2).Clear
    
17. [a2].Resize(n, 2) = b
    
18. End Sub

复制代码