Хороший пример.Попробуйте и посмотрите, работает ли это:
Формула подсчитывает уникальные ячейки в другом списке.Уникальный список ожидает занять первую строку, несмотря ни на что.Также ожидается, что в вашем дубликате списка будет несколько значений.Если это не так, вы не можете сравнить, так как он ожидает дубликатов и выдает ошибку, # N / A.Это маска как пустая ячейка, поскольку она заключена в IFERROR:
«Уникальная формула» = IFERROR(INDEX(Tabel15[Plant],MATCH(0,COUNTIF($Q$1:Q2,Tabel15[Plant]), 0)),"")
Чтобы решить эту проблему, мы проверяем, сколько значений существует в нашем дублирующем списке:
=IF(COUNTA(Tabel15[Plant])>1,...
«Уникальная формула» ... ,Tabel15[Plant])
// *** //
Это даст нам этот результат.

Тогда вам, вероятно, не нужны дубликаты ...
Так что нам нужно проверить, содержат ли предыдущие строки какое-либо из значений, возвращаемых формулой.Формула VLOOKUP
делает это для нас, и в качестве значения поиска мы используем формулу выше // *** //, и диапазон поиска будет нашим текущим столбцом: $Q$1:Q2
. УВЕДОМЛЕНИЕ Это динамический диапазон, поэтому Q2 является относительным эталоном (не $) .
=IF(ISERROR(VLOOKUP(IF(COUNTA(Tabel15[Plant])>1,IFERROR(INDEX(Tabel15[Plant],MATCH(0,COUNTIF($Q$1:Q2,Tabel15[Plant]), 0)),""),Tabel15[Plant]),$Q$1:Q2,1,FALSE))
Итак, конечный результат, который нам нужно применить, это в ячейке Q3 :
=IF(ISERROR(VLOOKUP(IF(COUNTA(Tabel15[Plant])>1,IFERROR(INDEX(Tabel15[Plant],MATCH(0,COUNTIF(Analyses!$Q$1:Q2,Tabel15[Plant]), 0)),""),Tabel15[Plant]),Analyses!$Q$1:Q2,1,FALSE)),IF(COUNTA(Tabel15[Plant])>1,IFERROR(INDEX(Tabel15[Plant],MATCH(0,COUNTIF(Analyses!$Q$1:Q2,Tabel15[Plant]), 0)),""),Tabel15[Plant]),"")

Ошибка макроса может быть проигнорирована:
If Not IsError(Sheets("Hulpblad").Range("B6").Value) Then
t = Sheets("Hulpblad").Range("B6").Value
'Code...
End If