B
Bharath Rajamani
How to add variant arrays in one-step { without any loop }
'----
Dim arr1()
Dim arr2()
Dim Result()
Redim arr1(1 to 10, 1 to 1)
Redim arr2(1 to 10, 1 to 1)
Redim Result(1 to 10, 1 to 1)
arr1 = Range ("A1:A10")
arr2 = Range("B1:B10")
Result = arr1 + arr2
' To add Result (x) = arr1(x) + arr2(x) x=1 to 10, without a loop ?
Range("C1:C10").Value2 = Result
'----
Dim arr1()
Dim arr2()
Dim Result()
Redim arr1(1 to 10, 1 to 1)
Redim arr2(1 to 10, 1 to 1)
Redim Result(1 to 10, 1 to 1)
arr1 = Range ("A1:A10")
arr2 = Range("B1:B10")
Result = arr1 + arr2
' To add Result (x) = arr1(x) + arr2(x) x=1 to 10, without a loop ?
Range("C1:C10").Value2 = Result