Проверка на совпадение данных и вывод сообщения

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Проверка на совпадение данных и вывод сообщения (Макросы/Sub)

dmtgrs

Дата: Среда, 30.09.2020, 09:09 | Сообщение № 1

Группа: Пользователи

Ранг: Новичок

Сообщений: 30

Репутация: 0 ±

Замечаний: 20% ±

Excel 2016

Добрый день!
Как сравнить две таблицы на совпадение данных в столбцах ФИО и если в 1й или 2й таблице не хватает ФИО, которая есть в другой таблице, вывести сообщение об этом?

К сообщению приложен файл: 8138101.xlsx (18.7 Kb)

Ответить

Pelena

Дата: Среда, 30.09.2020, 10:53 | Сообщение № 2

Группа: Админы

Ранг: Местный житель

Сообщений: 19404

Репутация: 4555 ±

Замечаний: ±

Excel 365 & Mac Excel

Здравствуйте.
Условным форматированием подкрасить не вариант?

К сообщению приложен файл: 8138101-1-.xlsx (13.0 Kb)

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816

Ответить

dmtgrs

Дата: Среда, 30.09.2020, 11:05 | Сообщение № 3

Группа: Пользователи

Ранг: Новичок

Сообщений: 30

Репутация: 0 ±

Замечаний: 20% ±

Excel 2016

1 Таблица
Васичкин
Сидоров
Иванов
Петров

2Таблица
Васичкин
Иванов
Петров

нужно именно сообщением, типа такого формата

Итого строк, которые есть только в Таблице: 1
Сидоров

Итого строк, которые есть только в Таблице 2: 0

Ответить

Nic70y

Дата: Среда, 30.09.2020, 12:24 | Сообщение № 4

Группа: Друзья

Ранг: Экселист

Сообщений: 9005

Репутация: 2369 ±

Замечаний: 0% ±

Excel 2010

[vba]

Код

Sub u_459()
    Application.ScreenUpdating = False
    aa = Application.CountA(Range("Вид1ТехникаКреативнаяПрическаМужскиеМастера33[ФИО]"))
    ba = Application.CountA(Range("Вид2ТехникаКлассическаяСтрижкаМужскиеМастера2334[ФИО]"))
    ab = Range("Вид1ТехникаКреативнаяПрическаМужскиеМастера33[ФИО]").Row
    bb = Range("Вид2ТехникаКлассическаяСтрижкаМужскиеМастера2334[ФИО]").Row
    ac = aa + ab - 1
    bc = ba + bb - 1
    ad = Range("Вид1ТехникаКреативнаяПрическаМужскиеМастера33[ФИО]").Address
    bd = Range("Вид2ТехникаКлассическаяСтрижкаМужскиеМастера2334[ФИО]").Address
    ae = InStrRev(ad, "$")
    be = InStrRev(bd, "$")
    af = Left(ad, ae) & ac
    bf = Left(bd, be) & bc
    ag = 0
    ah = ""
    For Each ai In Range(af)
        aj = Application.Match(ai, Range(bf), 0)
        ak = Application.IsNumber(aj)
        If ak = False Then
            ag = ag + 1
            ah = ah & Chr(10) & ai
        End If
    Next
    bg = 0
    bh = ""
    For Each bi In Range(bf)
        bj = Application.Match(bi, Range(af), 0)
        bk = Application.IsNumber(bj)
        If bk = False Then
            bg = bg + 1
            bh = bh & Chr(10) & bi
        End If
    Next
    Application.ScreenUpdating = True
    MsgBox "Итого строк, которые есть только в Таблице 1: " & ag & ah & _
            Chr(10) & "Итого строк, которые есть только в Таблице 2: " & bg & bh
End Sub

[/vba]