Complement of Two Arrays

H

hurgadion

Active Member

Joined

Mar 19, 2010

Messages

426

• Jun 28, 2012

• #2

Hi,
try the macro in an empty WorkSheet:

Code:

Sub Complement()
Dim tbl(), tbl1, tbl2, i&, x&

tbl1 = Array("123-1", "345-6", "678-9")
tbl2 = Array("123-1", "345-6", "998-7")

For i = LBound(tbl2) To UBound(tbl2)
  If IsError(Application.Match(tbl2(i), tbl1, 0)) Then
    x = x + 1
    ReDim Preserve tbl(1 To x)
    tbl(x) = tbl2(i)
  End If
Next i

Cells(1, 1).Resize(UBound(tbl)) = Application.Transpose(tbl)
End Sub

Best regards.

 

Upvote 0

P

pratyu

New Member

Joined

Jun 25, 2012

Messages

13

• Jun 28, 2012

• #3

hurgadion, Thanks a lot!!! It worked.!

 

Upvote 0

P

pratyu

New Member

Joined

Jun 25, 2012

Messages

13

• Jun 28, 2012

• #4

Also, I'd just like to know what "i&" and "x&" mean.....
(Its the first time I'm seeing such kind of declaration)

 

Upvote 0

H

hurgadion

Active Member

Joined

Mar 19, 2010

Messages

426

• Jun 28, 2012

• #5

This shortly declaration is the same than the declaration x As Long. Supposeddly, my shorty declaration is a little obsolete, but I use this declaration (only for Long variables), because I like this type declaration and I use most often this type of declaration. Best regards.

 

Last edited: Jun 28, 2012

Upvote 0

P

pratyu

New Member

Joined

Jun 25, 2012

Messages

13

• Jun 28, 2012

• #6

Alright! I got to know something new today!
Thanks once again...Your code was of real great help!

 

Upvote 0