VBA проверить и проверить, соответствует ли информация на одном листе информации на другом

Question

Мне нужен макрос VBA, чтобы сделать следующее:

У меня есть два листа, в sheet1 есть список в столбце A, который имеет номера деталей. На листе 2 столбца A у меня есть столбец, в который можно вводить номера деталей. Мне требуется, чтобы при вводе номера в столбце A листа 2 проверялся столбец A листа1, чтобы убедиться, что номер детали, введенный в листе 2, указан где-то в столбце A листа 1 ?????

Answer 1

Я хотел бы предложить вам следующий код VBA для сравнения двух рабочих листов, в пределах определенного диапазона данных для повторяющихся записей.

Позвольте мне сначала объяснить ситуацию с данными.

Лист 1 имеет данные в диапазоне A5:A10, а лист 2 имеет данные в диапазоне A10:A15.

Если диапазон листа A10:A15 равен РАВНОМУ диапазону листа 1 A5:A10, появится сообщение.

Private Sub CommandButton1_Click()

    Option Explicit

    Dim lngMyRow As Long
    Dim blnAllMatch As Boolean

    Application.ScreenUpdating = False


    For lngMyRow = 1 To 6
        If Sheets("Sheet1").Range("A" & lngMyRow + 4) = Sheets("Sheet2").Range("A" & lngMyRow + 9) Then
            MsgBox "Data is simillar.", vbExclamation
            blnAllMatch = False
            Exit For
        Else
            blnAllMatch = True
        End If
    Next lngMyRow

    If blnAllMatch = True Then
        MsgBox "Data is different !!", vbInformation
    End If

    Application.ScreenUpdating = True

End Sub

NB. Вам необходимо изменить значения в строках кода VBA 6 и 7 в соответствии с вашим диапазоном данных.Этот код также можно использовать как "Событие Worksheet_Change".

Обратите внимание, этот Код был протестирован мной, прежде чем я разместил его здесь.

Надеюсь, это поможет вам.