VBA如何计算两列数据差的平方和
答案:2 悬赏:70 手机版
解决时间 2021-01-30 03:28
- 提问者网友：龅牙恐龙妹
- 2021-01-29 07:05
VBA如何计算两列数据差的平方和
最佳答案
- 五星知识达人网友：duile
- 2021-01-29 07:39
Sub test()
Dim arr, k
arr = Range("A1:B" & Range("A65536").End(xlUp).Row)
For x = 1 To UBound(arr)
k = k + (arr(x, 1) - arr(x, 2)) ^ 2
Next x
MsgBox "差的平方和为" & k
End Sub
Dim arr, k
arr = Range("A1:B" & Range("A65536").End(xlUp).Row)
For x = 1 To UBound(arr)
k = k + (arr(x, 1) - arr(x, 2)) ^ 2
Next x
MsgBox "差的平方和为" & k
End Sub
全部回答
- 1楼网友：想偏头吻你
- 2021-01-29 07:56
用公式也可以实现呀，假设列为A和B
在C列输入公式，=power(abs(a1-b1),2),然后下拉公式复制
在D1中输入公式，=sum(c:c),即可
在C列输入公式，=power(abs(a1-b1),2),然后下拉公式复制
在D1中输入公式，=sum(c:c),即可
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
点此我要举报以上问答信息
大家都在看
推荐资讯