如何利用 VBA求和，谢谢！

mymotoe6

如何利用 VBA求和，谢谢！

游帅帅

1. 
   
2. Sub 汇总()
   
3.     On Error Resume Next '出错执行下一步
   
4.     Dim i, i2, i3, 最后一行行号
   
5.     最后一行行号 = ActiveSheet.UsedRange.Row + ActiveSheet.UsedRange.Rows.Count
   
6.     i2 = 最后一行行号
   
7.     For i = 最后一行行号 To 2 Step -1
   
8.         
   
9.         If LCase(Trim(Range("a" & i).Value)) = "c" Then '清空空格及转换大小写
   
10.             i3 = Application.WorksheetFunction.Sum _
    
11.                 (Range(Cells(i2, 2), Cells(i + 1, 2)))
    
12.             Range("a" & i).Offset(0, 1) = i3
    
13.             i2 = i - 1
    
14.         ElseIf LCase(Trim(Range("a" & i).Value)) = "b" Then
    
15.             
    
16.             
    
17.             i3 = Application.WorksheetFunction.Sum _
    
18.                 (Range(Cells(i2, 2), Cells(i + 1, 2)))
    
19.             Range("a" & i).Offset(0, 1) = i3
    
20.             i2 = i - 1
    
21.         ElseIf LCase(Trim(Range("a" & i).Value)) = "a" Then
    
22.             
    
23.             
    
24.             i3 = Application.WorksheetFunction.Sum _
    
25.                 (Range(Cells(i2, 2), Cells(i + 1, 2)))
    
26.             Range("a" & i).Offset(0, 1) = i3
    
27.         End If
    
28.     Next
    
29. End Sub
    

复制代码