Перевірка даних в Excel - всі значення в списку, розділеному комами, в межах діапазону комірок

У мене є довідкова таблиця записок і деяка інформація про них, включаючи, які інші нагадування вони посилаються і на які посилаються. Я хочу створити правило перевірки даних, яке стане червоним, якщо будь-яке значення в списку посилань, обмежених комами, не міститься в моєму списку нагадувань (іншими словами, нам не вистачає інформації або користувач, можливо, зробив друкарські помилки). Будь-яка кількість інших приміток може бути посилається. Нотатки нагадувань для кожного запису містяться у стовпці А, посилання - у стовпці G. Рядок заголовків А, дані у наступних рядках, які слід регулярно додавати.

А ............ Г

LF100009 ....... 400 <- червоний

HS100011 .......

RT100012 ....... LF100009

LA100015 ....... LF100009, RT100012

ME100020 ....... HS100011, RT1000012, LA100015 <- червоний

KE100050 ....... LA100011, LA100015 <- червоний

Це зовсім не елегантно, але це може працювати до трьох посилань. Можна комбінувати з умовним форматуванням за потребою або помістити в помічник стовпця.

=IF(IF(IF(G2="",TRUE,LEN(G2)-LEN(SUBSTITUTE(G2,",",""))+1)=TRUE,1,
IF(IF(G2="",TRUE,LEN(G2)-LEN(SUBSTITUTE(G2,",",""))+1)=1,COUNTIF(A:A,G2),
IF(IF(G2="",TRUE,LEN(G2)-LEN(SUBSTITUTE(G2,",",""))+1)=2,SUMPRODUCT((COUNTIF(A:A,LEFT(G2,FIND(",",G2)-1)))*(COUNTIF(A:A,MID(G2,FIND(",",G2)+2,LEN(G2))))),
IF(IF(G2="",TRUE,LEN(G2)-LEN(SUBSTITUTE(G2,",",""))+1)=3,SUMPRODUCT((COUNTIF(A:A,LEFT(G2,FIND(",",G2)-1)))*(COUNTIF(A:A,MID(G2,FIND(",",G2)+2,LEN(G2)-FIND("@",SUBSTITUTE(G2,",","@",IF(G2="",TRUE,LEN(G2)-LEN(SUBSTITUTE(G2,",",""))+1)-1))-1)))*(COUNTIF(A:A,MID(G2,FIND("@",SUBSTITUTE(G2,",","@",IF(G2="",TRUE,LEN(G2)-LEN(SUBSTITUTE(G2,",",""))+1)-1))+2,LEN(G2))))),
FALSE
))))=1,TRUE)

І ось UDF, який вводить значення TRUE / FALSE у клітинку помічника. Формула виглядала б так=testReferences(G2,A:A,", ")

Наступний код вставляється в редактор VBA. Він працює для необмежених посилань.

Function testReferences(text As Range, list As Range, delimiter As String)
    Dim arr() As String
    Dim found As Boolean

    If text = "" Then
        found = True
    Else
        arr = Split(text, delimiter)            
        For i = LBound(arr) To UBound(arr)
            If Application.WorksheetFunction.CountIf(list, arr(i)) = 1 Then
                found = True
            Else
                found = False
                Exit For
            End If
        Next
    End If

    testReferences = found
End Function