vba代码指定区域求和

陕西爱你的人

老师们下午好，新人求教问题，附件里有我自己写的vba代码求和，但是不尽人意，总是调试不好
还请师傅们不吝赐教，谢谢！

coolall

1. Sub calc()
   
2. Row = Cells(Rows.Count, 2).End(xlUp).Row
   
3.     For i = 1 To Row
   
4.         ad = Cells(i, 1).MergeArea.Address(1, 0)
   
5.         ad2 = Cells(i + 1, 1).MergeArea.Address(1, 0)
   
6.         If ad <> ad2 Then
   
7.             k = Str(i) & ";" & k
   
8.             k2 = Str(i + 1) & ";" & k2
   
9.         End If
   
10.     Next i
    
11.     arr = Split(k, ";")
    
12.     brr = Split(k2, ";")
    
13.     j = UBound(arr)
    
14.     For r = 0 To j - 2
    
15.         Cells(arr(r), 5) = "=SUM(D" & Trim(Str(brr(r + 1))) & ":D" & Trim(Str(arr(r))) & ")"
    
16.     Next r
    
17. End Sub

复制代码

看看是不是你的需求。