1

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

Это означает, что мы должны сравнить столбец Номер CU + Номер счета Cu из 1-го списка с теми же двумя столбцами из второго списка, так как мы обнаружили, что есть расхождения и смеси номера CU и неправильный номер счета CU рядом с ними: Список 1:

CU name     CU number    CU billing number
Aert        BR345        3456
Bert        BR456        2345
Port        BR567        5678

Список 2:

CU name     CU number    CU billing number
Aert        BR345        3456
Bert        BR344        2345
Port        BR567        5678

Не могли бы вы посоветовать, какая формула может помочь мне перепроверить 2 столбца из Списка 1 с двумя столбцами из Списка 2?

2 ответа2

1

Это делает это

Sub EeekPriates()

Dim row As Integer
row = 2

Dim cols(2) As String
cols(0) = "A"
cols(1) = "B"
cols(2) = "C"

Dim i As Integer
For i = 0 To UBound(cols)

Dim col As String
col = cols(i)

Do While (Worksheets("Sheet1").Range(col & row).Value <> "")

    Dim ws1value As String
    Dim ws2value As String

    ws1value = Worksheets("Sheet1").Range(col & row).Value
    ws2value = Worksheets("Sheet2").Range(col & row).Value

    If (ws1value <> ws2value) Then
        Worksheets("Sheet1").Range(col & row).Interior.ColorIndex = 3
    End If

row = row + 1
Loop
row = 2
Next i

End Sub

Я скопировал свои данные в 2 листа

Итак, Лист1

Sheet2

После запуска макроса sheet2 остается таким же, как на скриншоте выше, вот как выглядит Sheet1

1

Прежде всего, обратите внимание на комментарий CharlieRB, в вашем вопросе недостаточно подробностей, поэтому я основываю свой ответ на некоторых предположениях. Во-вторых, это очень элементарный подход к проверке ваших данных, но он сделает работу сравнительно быстро.

Предполагая, что столбцы вашей примерной таблицы - A, B и C соответственно, и строка 1 используется для этих заголовков; Добавьте заголовки "Проверка столбца B" к E1 и "Проверка столбца C" к F1 (см. изображение ниже).

Теперь, используя тот же макет, вставьте резервные данные на отдельном листе той же книги.

Вернитесь к исходному листу и введите эту формулу в E2:

=IF($B2=Sheet2!$B2, "Good", "Bad")

Тогда эта формула в F2:

=IF($C2=Sheet2!$C2, "Good", "Bad")

Примечание. Очевидно, что если ваш лист назван по-другому или ваши начальные ячейки находятся в разных местах, вам нужно будет изменить формулу, чтобы отразить ее.

Перетащите заполнить оба столбца до последней строки таблицы. Наконец, если вы хотите раскрасить его, вы можете использовать условное форматирование.

Опять же, это ОЧЕНЬ элементарный способ сделать это, и могут быть лучшие решения, но это сработает, если все, что вы делаете, это сравнение двух столбцов данных друг с другом.

Всё ещё ищете ответ? Посмотрите другие вопросы с метками .