uohSauR.江浙
Sub 求和()
Dim i, n, arr
arr = [a1].CurrentRegion
For i = 2 To UBound(arr)
m = Split(arr(i, 1), Chr(10))
m1 = Split(arr(i, 2), Chr(10))
For k = 0 To UBound(m)
arr(i, 3) = arr(i, 3) + m(k) * m1(k)
Next
Next
[a1].CurrentRegion = arr
End Sub
我在打排位,你测试下