Warning: file_get_contents(/data/phpspider/zhask/data//catemap/5/excel/29.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181

Warning: file_get_contents(/data/phpspider/zhask/data//catemap/0/vba/16.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
Excel 如何在VBA中求两个范围向量的和?_Excel_Vba - Fatal编程技术网

Excel 如何在VBA中求两个范围向量的和?

Excel 如何在VBA中求两个范围向量的和?,excel,vba,Excel,Vba,我有两个向量的表: vec1 = Sheets("1").Range("C2:C13") vec2 = Sheets("2").Range("B2:B13") 如何求和 vec3 = vec1 + vec2 -不起作用 另外,我想得到这样的结果: 1 + 1 = 2 1 + 2 = 3 1 + 3 = 4 Range 1 = [1,1,1] Range 2 = [1,2,3] Range 3 = [2,3,4]

我有两个向量的表:

vec1 = Sheets("1").Range("C2:C13")
vec2 = Sheets("2").Range("B2:B13")
如何求和

vec3 = vec1 + vec2
-不起作用

另外,我想得到这样的结果:

1 + 1 = 2
1 + 2 = 3
1 + 3 = 4

Range 1 = [1,1,1]
Range 2 = [1,2,3]
Range 3 = [2,3,4]

您可以循环两个原始数组,并将每个元素的总和存储在新数组中:

Dim newVec As Variant
ReDim newVec(1 to Ubound(vec1, 1))

Dim i As Long
For i = 1 To Ubound(vec1, 1)
    newVec(i) = vec1(i, 1) + vec2(i, 1)
Next

请注意,
vec1
vec2
是二维数组(基于一个数组),而上述方法中的
newVec
是一维数组(但很容易成为二维数组)。

循环数组,并将每个元素求和的结果放入一个新数组中。可以不循环求解吗?为什么?循环既快又容易。你能在我的情况下演示如何循环吗?我不明白为什么它不起作用——我得到的所有值都是一样的