compare 2 vba arrays

Andrew Poulsom

MrExcel MVP

Joined

Jul 21, 2002

Messages

73,092

• Mar 30, 2004

• #2

I don't know about more elegant, but it would be quicker to test for inequality and exit the loop when they don't match.

Code:

x = True
For i = LBound(array1) to UBound(array1)
   If array1(i) <> array2(i) Then
      x = False
      Exit For
   End If
Next i
If x = True Then
   MsgBox "Match"
Else
   MsgBox "Item " & i & " does not match"
End If

 

Upvote 0

P

peioz

Board Regular

Joined

Jul 17, 2002

Messages

78

• Mar 30, 2004

• #3

Yours look more robust to me.... I thought there would be some kind of match commando ...quess not.

Thanks !

 

Upvote 0

Andrew Poulsom

MrExcel MVP

Joined

Jul 21, 2002

Messages

73,092

• Mar 30, 2004

• #4

If you don't need to know which item mismatches you could use the Join function (Excel 2000 and above):

Code:

If Join(array1, "") = Join(array2, "") Then
   MsgBox "Match"
Else
   MsgBox "Mismatch"
End If

 

Upvote 0

R

r.v.srinvas

New Member

Joined

Jun 26, 2010

Messages

1

• Jun 26, 2010

• #5

hello guys... here i hav a small prb relatd to string arrays.
i have two string arrays as string1=F1,F2,F4,F16,F3
and string2= F2,F11,F7,F8,F12,F3.F21 (these two arrys need not be of same size)
plz suggest me a code to VBE(visual basic editor).
make it asap
thanks....!!!

 

Upvote 0

X

xl_User

New Member

Joined

Mar 8, 2012

Messages

1

• Mar 8, 2012

• #6

Andrew Poulsom said:

If you don't need to know which item mismatches you could use the Join function (Excel 2000 and above):

Code:

If Join(array1, "") = Join(array2, "") Then
   MsgBox "Match"
Else
   MsgBox "Mismatch"
End If

Click to expand...

I would reccomend to include such separator string (for example, "|" symbol) in Join function that prevents wrong answer.

 

Upvote 0