Como exibir valores numéricos exclusivos de colunas diferentes em uma única célula (separados por vírgulas)

Question

Eu tenho um problema único que venho tentando resolver sem sucesso. Eu vasculhei a internet, mas encontrei apenas soluções parciais e não uma solução completa.

Estou procurando uma função (ou várias funções) para resolver esse problema sem adicionar referências.

Eu tenho 2 colunas (coluna A e coluna B).

Cada célula dessas colunas pode estar em branco ou conter 1 ou mais valores numéricos (os valores numéricos são separados por uma vírgula). O usuário irá inserir manualmente esses valores numéricos.

Exemplo:

Euprecisodeumafunçãoqueexibatodososvaloresnuméricosexclusivosemumaúnicacélulaesejaseparadaporvírgulas(emordemcronológica,sepossível).

Exemplo:

Agora,umavezqueissotenhasidoestabelecido,euprecisodeumafunçãoparacontaronúmerodevaloresnuméricosúnicosdessacélulaemoutracélula.

Exemplo:

Qualquer ajuda sobre isso seria muito apreciada.

    

Answer 1

Aqui está o lister:

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

Para contar os itens, basta contar as vírgulas e adicionar uma.