Сравнение ячеек с одинаковыми/разными значениями

Question

У меня есть проблема в сравнении ячеек с разным значением, но он работает, если сравнимое значение одинаково. Проблема, с которой я столкнулся, заключается в сравнении между ячейкой A1: A100 в рабочем листе1 и ячейкой B3: B1000 на листе 2. Если значение в рабочем листе1 и рабочем листе равно равное, оно будет вставлено в ячейку A на рабочем листе3, которое я могу сделать. Если значение не равно, оно будет вставлено в ячейку B в рабочем листе3, это проблема, с которой я столкнулся. Это мой код.

Private Sub CommandButton1_Click()

дим знач1, знач2 As String

Для я = 1 К 100

знач1 = Worksheets ("Лист1"). Клетки (я, 1)

For j = 3 To 1000 
val2 = Worksheets("Sheet2").Cells(j, 2) 

    If (val1 = val2) Then 
    Worksheets("Sheet3").Cells(i, 1) = val2 

    ElseIf (val1 <> val2) Then 
    Worksheets("Sheet3").Cells(i, 2) = val2 

    End If 

    Next 

Следующая

End Sub

Answer 1

Вы на самом деле означает ..... «для каждого значения в колонке B в листе 2, если найден в диапазоне A1: A100» ...

Наконец получил вас. Посмотрите, поможет ли это.

Sub test() 
    Dim val As Variant 
    Dim found As Integer, notFound As Integer 

    found = 0 
    notFound = 0 

    For j = 3 To 1000 
     val = Worksheets("Sheet2").Cells(j, 2).Value 
     If Not IsError(Application.Match(val, Worksheets("Sheet1").Range("A1:A100"), 0)) Then 
      'Comment this line if you don't want to paste the values that are the same 
      'Worksheets("Sheet3").Range("A1").Offset(found) = val 
      found = found + 1 
     Else 
      Worksheets("Sheet3").Range("B1").Offset(notFound) = val 
      notFound = notFound + 1 
     End If 
    Next 
End Sub