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

One way:

With Range("C1:C10")
.Formula = "=A1+B1"
.Value = .Value
End With


In article <CDC9E1F8-FDF6-4FF3-95F3-(E-Mail Removed)>,
Bharath Rajamani <(E-Mail Removed)> wrote:

> 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