[已解决]如何对每一行数据进行求和操作

ccc919

            ar2 = Sheet2.Range("i3:i" & Sheet2.[a65536].End(3).Row)
            ar3 = Sheet2.Range("j3:j" & Sheet2.[a65536].End(3).Row)
            ar4 = Sheet2.Range("k3:k" & Sheet2.[a65536].End(3).Row)
            ar5 = ar2 + ar3 + ar4
            Sheet1.Range("v6").Resize(UBound(ar2), 1) = ar5

该表达式 对 I列J列和K列 的每一行进行求和并把求和的结果分别写入到工作表1 V列！我这样红色处好像写的不对求解。
谢谢

最佳答案

月排行榜 / 总排行榜

gufengaoyue

2016-4-25 11:39

1. Sub XXX()
   
2. Dim arr
   
3. arr = Sheet2.Range("i3:k" & Sheet2.[a65536].End(3).Row)
   
4. ReDim Preserve arr(1 To UBound(arr), 1 To 4)
   
5. For a = 1 To UBound(arr)
   
6.      arr(a, 4) = WorksheetFunction.Sum(Application.Index(arr, a, 0))
   
7. Next
   
8. Sheet1.Range("v6").Resize(UBound(arr)) = Application.Index(arr, , 4)
   
9. End Sub
   

复制代码

跳转到最佳答案楼层

gufengaoyue

数组不能这么用。不可以这样求和。
要么在表格中求和后，再转移到别的表。
或者变成数组后，在数组内遍历计算后才可以。

爱疯

这个上传附件，好说些。

PS：如果有传附件，说不定已解决

gufengaoyue

1. Sub XXX()
   
2. Dim arr
   
3. arr = Sheet2.Range("i3:k" & Sheet2.[a65536].End(3).Row)
   
4. ReDim Preserve arr(1 To UBound(arr), 1 To 4)
   
5. For a = 1 To UBound(arr)
   
6.      arr(a, 4) = WorksheetFunction.Sum(Application.Index(arr, a, 0))
   
7. Next
   
8. Sheet1.Range("v6").Resize(UBound(arr)) = Application.Index(arr, , 4)
   
9. End Sub
   

复制代码

ccc919

爱疯 发表于 2016-4-25 11:34
这个上传附件，好说些。

PS：如果有传附件，说不定已解决

附件.rar (7.54 KB, 下载次数: 22)

2016-4-25 11:51 上传

点击文件名下载附件

ccc919

gufengaoyue 发表于 2016-4-25 11:39

请问如果需要分别将  I列*14 J列*16 K列*14 之后在求和怎么表示？谢谢

gufengaoyue

arr(a, 4) = arr(a, 1) * 14 + arr(a, 2) * 16 + arr(a, 3) * 14

ccc919

gufengaoyue 发表于 2016-4-25 12:13
arr(a, 4) = arr(a, 1) * 14 + arr(a, 2) * 16 + arr(a, 3) * 14

感谢！