Как отобразить уникальные числовые значения из разных столбцов в одну ячейку (через запятую)

Question

У меня есть уникальная проблема, которую я пытался решить безрезультатно. Я искал через Интернет, но нашел только частичные решения, а не полное решение.

Я ищу функцию (или несколько функций) для решения этой проблемы без добавления ссылок.

У меня есть 2 столбца (столбец A и столбец B).

Каждая ячейка в этих столбцах может быть пустой или содержать 1 или более числовых значений (числовые значения разделяются запятой). Пользователь будет вручную вводить эти числовые значения.

Пример:

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

Пример:

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

Пример:

Любая помощь по этому вопросу будет принята с благодарностью.

Answer 1

Вот листер:

Public Function WhatsInThere(rng As Range) As String
   Dim r As Range, v As String, c As Collection, ary, a
   Set c = New Collection
   WhatsInThere = ""

   On Error Resume Next
      For Each r In rng
         v = r.Text
         If v <> "" Then
            If InStr(1, v, ",") = 0 Then
                c.Add v, CStr(v)
               If Err.Number = 0 Then WhatsInThere = WhatsInThere & "," & v
               Err.Number = 0
            Else
               ary = Split(v, ",")
               For Each a In ary
                     c.Add a, CStr(a)
                  If Err.Number = 0 Then WhatsInThere = WhatsInThere & "," & a
                  Err.Number = 0
               Next a
            End If
         End If
      Next r
   On Error GoTo 0
   WhatsInThere = Mid(WhatsInThere, 2)
End Function

Для подсчета предметов просто посчитайте запятые и добавьте один.