用VBA两种方法计算AF列每一行的和

laoau123

用VBA两种方法计算AF列每一行的和

Excel学徒123

1. Sub 数组方法()
   
2.     Dim arrSrc, arrRst()
   
3.     Dim iCol%, iRow%
   
4.     Dim temSum%
   
5.     arrSrc = Range("a11:f18").Value
   
6.     ReDim arrRst(1 To UBound(arrSrc), 1 To 1)
   
7.     For iRow = 1 To UBound(arrSrc)
   
8.         For iCol = 1 To UBound(arrSrc, 2)
   
9.             temSum = temSum + arrSrc(iRow, iCol)
   
10.         Next
    
11.         arrRst(iRow, 1) = temSum
    
12.         temSum = 0
    
13.     Next
    
14.     Range("h11").Resize(UBound(arrSrc)) = arrRst
    
15. End Sub
    

复制代码

1. Option Explicit
   
2. 
   
3. Sub 字典法()
   
4.     Dim objdic As Object
   
5.     Dim arrSrc
   
6.     Dim iRow%, iCol%
   
7.     Dim temSum%
   
8.     arrSrc = Range("a11:f18").Value
   
9.     Set objdic = CreateObject("scripting.dictionary")
   
10.     For iRow = 1 To UBound(arrSrc)
    
11.         For iCol = 1 To UBound(arrSrc, 2)
    
12.             temSum = temSum + arrSrc(iRow, iCol)
    
13.         Next
    
14.         If Not objdic.exists(iRow) Then
    
15.             objdic.Add iRow, temSum
    
16.         End If
    
17.         temSum = 0
    
18.     Next
    
19.     Range("i11").Resize(objdic.Count) = Application.Transpose(objdic.items)
    
20. End Sub
    

复制代码