Why can't you add 2 arrays using range?

N

nepai

New member
Joined
Feb 19, 2013
Messages
13
Reaction score
0
Points
0
I have this code:

Code: 
Sub AddArray()
    Dim A1 As Variant
    Dim A2 As Variant
    
    A1 = Range("A2:A6").Value
    A2 = Range("B2:B6").Value
  
    Range("C2:C6").Value = A1 + A2
        
End Sub

Is this really not possible?Or am I missing something?
Or else I really have to do it using loop.
 
a one liner?:
Code: 
Range("C2:C6").Value = [A2:A6+B2:B6]
 
Nice! Is it faster compared to using a loop?
I'm actually trying to add the absolute value of the 2 arrays.
 
I manage to add the absolute values of 2 arrays using your idea below:
Code: 
Sub AddArray()
 
   A = [(if(isnumber(A1:A6),abs(A1:A6),A1:A6)) + (if(isnumber(B1:B6),abs(B1:B6),B1:B6))]
  
   [F1:F6] = A
   
        
End Sub

But the problem is line in "A" will be too long if I add more arrays.
I tried to use this one but won't work:
Code: 
Sub AddArray()
 
   A = [(if(isnumber(A1:A6),abs(A1:A6),A1:A6)) 
   B =[(if(isnumber(B1:B6),abs(B1:B6),B1:B6))]
  
   [F1:F6] = [A+B]
   
        
End Sub

any suggestions?
 
Either loop, or put formulas into the target range and then replace them with values.
 
perhaps:
Range("C2:C6").Value = [INDEX(ABS(A2:A6),)+INDEX(ABS(B2:B6),)]

?
 
You must log in or register to reply here.
Back
Top