View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.programming
Bharath Rajamani Bharath Rajamani is offline
external usenet poster
 
Posts: 41
Default Add variant arrays (without loop)

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