Удалить конкретное значение при использовании WorksheetFunction.Count

Question

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

'If not, add name, semi-colon and space to temporary name list
         If WorksheetFunction.CountIf(Range("C2:C" & x), Range("C" & x)) < 2 Then
             namelist_tmp = namelist_tmp & Range("C" & x) & "; "
         End If
      Next
'Strip last semi-colon & space off of temp list
          namelist = Left(namelist_tmp, Len(namelist_tmp) - 2)

Answer 1

Вы можете изменить вызов функции CountIf:

If WorksheetFunction.CountIf(Range("C2:C" & x), "<>" & "<UNASSIGNED>") < 2 Then
...