[已解决]如何在VBA中把变量应用于这个函数

一字头螺丝

想把两列数据的乘积求和，假设是A1:A10,B1:B10的两列数据，可用函数SUMPRODUCT(A1:A10,B1:B10)实现。

现在要在VBA里实现这个功能，但一列数据的个数不定，可以先用变量i = Range("A65536").End(xlUp).Row求出数据列的最后一行，现在要用程序在B列的i+1行里输入一个函数，实现SUMPRODUCT的功能，要怎么写程序，谢谢！

注：一定必须是用函数，这样我在excel里要更改数据的时候，结果才会跟着改变。

最佳答案

月排行榜 / 总排行榜

枯禅

2010-3-15 10:27

Sub test()
Dim i%
i = [a65536].End(3).Row
Range("b" & i + 1).Formula = "=SUMPRODUCT(A1:A" & i & ",B1:B" & i & ")"
End Sub

跳转到最佳答案楼层

枯禅

Sub test()
Dim i%
i = [a65536].End(3).Row
Range("b" & i + 1).Formula = "=SUMPRODUCT(A1:A" & i & ",B1:B" & i & ")"
End Sub

坏多多

2楼和尚同学，为什么不写个自定义函数呢

一字头螺丝

非常感谢，是不是把变量转换成数值就要用这个符号 " &  & "