Add variant arrays (without loop)

  • Thread starter Bharath Rajamani
  • Start date
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
 
J

JE McGimpsey

One way:

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

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top