请大神指点下如何用VBA实现模糊分类汇总

bluevelvet15

想根据科目代码前两位进行汇总，如附件，
将表"明细科目"中科目代码前两位为“01”对应的金额，汇总至表“汇总”中的活期存款对应的金额中
将表"明细科目"中科目代码前两位为“01“02”的科目代码所对应的金额，汇总至表“汇总”中的期存款对应的金额中
请大神们指点下，如何用VBA代码实现？

wangpbm

1. Sub 分类汇总()
   
2.     Dim arr, i As Integer, sum As Double, sums As Double
   
3.     arr = Worksheets("科目明细").Range("a1").CurrentRegion.Value
   
4.     For i = 2 To UBound(arr)
   
5.         If arr(i, 1) Like "01" & "*" Then
   
6.             sum = sum + arr(i, 3)
   
7.         ElseIf arr(i, 1) Like "02" & "*" Then
   
8.             sums = sums + arr(i, 3)
   
9.         End If
   
10.     Next i
    
11.     Worksheets("汇总").Range("B2").Value = sum
    
12.     Worksheets("汇总").Range("B3").Value = sums
    
13. End Sub

复制代码

bluevelvet15

wangpbm 发表于 2017-3-14 23:22

非常感谢。那如果定期存款那行的数据是需要包括科目"02”和特定科目“01003”的值，
怎么修改比较好一点
谢谢。

wangpbm

1. Sub 分类汇总()
   
2.     Dim arr, i As Integer, sum As Double, sums As Double
   
3.     arr = Worksheets("科目明细").Range("a1").CurrentRegion.Value
   
4.     For i = 2 To UBound(arr)
   
5.         If arr(i, 1) Like "01" & "*" And arr(i, 1) <> "01003" Then
   
6.             sum = sum + arr(i, 3)
   
7.         ElseIf arr(i, 1) Like "02" & "*" Or arr(i, 1) = "01003" Then
   
8.             sums = sums + arr(i, 3)
   
9.         End If
   
10.     Next i
    
11.     Worksheets("汇总").Range("B2").Value = sum
    
12.     Worksheets("汇总").Range("B3").Value = sums
    
13. End Sub

复制代码

bluevelvet15

wangpbm 发表于 2017-3-15 17:44

谢谢~~~~~~~~~~