Excel vba сравнить массивы

Edit1: I’ve re-written your loop a bit which is the cause of the problem I think. Ubound and Lbound assumes the first dimension if it is not supplied. So the way you do it and below should return the correct upper and lower bounds. But of course, it is better to be explicit when you’re dealing with 2D arrays. Also vArray3 should be Dimensioned. I didn’t see it in your code. Also added a Boolean variable.

ReDim vArray3 (1 to 10, 1 to 2) '~~> change to suit
Dim dup As Boolean: k = 1
For i = LBound(vArray1, 1) To UBound(vArray1, 1) '~~> specify dimension
    dup = False
    For j = LBound(vArray2, 1) To UBound(vArray2, 1) '~~> specify dimension
        If vArray1(i, 1) = vArray2(j, 1) Then
            dup = True: Exit For
        End If
    Next j
    If Not dup Then '~~> transfer if not duplicate
        vArray3(k, 1) = vArray1(i, 1)
        k = k + 1
    End If
Next I

Or you can use match like this:

'~~> Use 1D array instead by using Transpose
vArray2 = Application.Transpose(wb1.Worksheets(2).Range("B1:B" & lRow1))
For i = LBound(vArray1, 1) To UBound(vArray1, 1) '~~> specify dimension
    If IsError(Application.Match(vArray1(i, 1), vArray2, 0)) Then
        vArray3(k, 1) = vArray1(i, 1)
        k = k + 1
    End If
Next i

Option Explicit  

  ‘Макросом —  
‘1.два диапазона в два массива  
‘2.создание массива для результатов  
‘3.один перебор n значений массива в словарь  
‘4.m проверок массива на наличие в словаре и заполнение данными массива результата  
‘5.выгрузка результатов (тут нет предварительной очистки диапазона)  

  Sub compare()  
   Dim a(), b(), c(), i As Long, ii As Long  

     ‘1.  
   a = [d3].CurrentRegion.Value
   b = [f3].CurrentRegion.Value

     ‘2.  
   ReDim c(1 To UBound(a), 1 To 1)  

     With CreateObject(«Scripting.Dictionary»)  

         ‘3.  
       For i = 1 To UBound(b)  
           .Item(b(i, 1)) = 0&  
       Next  

         ‘4.  
       For i = 1 To UBound(a)  
           If Not .exists(a(i, 1)) Then ii = ii + 1: c(ii, 1) = a(i, 1)  
       Next  

             End With  

     ‘5.  
  [h3].Resize(ii, 1) = c

  End Sub

If you want to go row by row (i.e. compare row 1 of array A to row 1 of array B), one way is to use VBA to loop through each row and compare the values. You can output the result in a new array (maybe you can call it array D since you have three input arrays).

In the VBA code, first identify how many rows of data.

firstrow = 1
lastrow = ActiveSheet.UsedRange.Row + ActiveSheet.UsedRange.Rows.Count - 1

In the following code I’m going to assume:
array A is columns 1-3
array B is columns 4-6
and I’ll output array D to columns 10-12

for i = firstrow to lastrow:
   'compare array A value 1 to array B value 1
   If ActiveSheet.cells(i, 1).value == ActiveSheet.cells(i, 4).value Then 
       'Write result for array D value 1 if equal
       ActiveSheet.cells(i, 10).value = "A & B are equal"
   Else 
       'Write result for array D value 1 if unequal
       ActiveSheet.cells(i, 10).value = "A & B are NOT equal"

   'Make comparison between array A value 2 to array value 2
   If ActiveSheet.cells(i, 2).value == ActiveSheet.cells(i, 5).value Then 
       'Write result for array D value 2 if equal
       ActiveSheet.cells(i, 11).value = "A & B are equal"
   Else 
       'Write result for array D value 2 if unequal
       ActiveSheet.cells(i, 11).value = "A & B are NOT equal"    

   'Make comparison between array A value 3 to array value 3
   If ActiveSheet.cells(i, 3).value == ActiveSheet.cells(i, 6).value Then 
       'Write result for array D value 3 if equal
       ActiveSheet.cells(i, 12).value = "A & B are equal"
   Else 
       'Write result for array D value 3 if unequal
       ActiveSheet.cells(i, 12).value = "A & B are NOT equal"    
next i