Risolto Valori Unici in colonna separati da spazi

[Gian Paolo]

Ciao a tutti,
vorrei calcolare i valori unici per ogni gruppo separato dallo spazio e nello spazio inserire il conteggio dei numeri unici.
Io ho iniziato per le prime 100 righe a mano ma rischio di sbagliare.
Come posso fare?
Allego parte del file.
Grazie

 

[Terio]

vorrei calcolare i valori unici per ogni gruppo separato dallo spazio e nello spazio inserire il conteggio dei numeri unici

Gentilmente, prima di continuare, chiudi la precedente che sembra risolta,
grazie

 

[Terio]

Risolta la precendente, prova questa in A2
=MAP(A2:A1040;LAMBDA(c;LET(i;A1:SCARTO(c;-1;);SE(c="";RIGHE(UNICI(INDIRETTO("A"&MAX(SE(i="";RIF.RIGA(i)))+1&":A"&RIF.RIGA(c)-1)));c))))

Ciao.

 

[ipolito]

ciao a tutti
alternativa B2
=MAP(A1:A1040;LAMBDA(v;SE(SCARTO(v;1;)="";RIGHE(UNICI(INCLUDI(A2:v;-(RIF.RIGA(v)-CONFRONTA.X(VERO;$A$1:v="";0;-1)))));SCARTO(v;1;))))

 

[scossa]

Mi sia concesso proporre un'alternativa in VBA, magari ad altri utenti potrebbe tornare utile:

Sub CountUniqueInArea()
  Dim rng As Range, rArea As Range
 
  Set rng = Foglio1.UsedRange.Columns(1).SpecialCells(xlCellTypeConstants, xlTextValues)
 
  For Each rArea In rng.Areas
    With rArea
      .Offset(.Rows.Count).Resize(1).Value = CountUnique(.Cells)
    End With
  Next rArea
 
  Set rng = Nothing
End Sub


Public Function CountUnique(ByVal RngA As Range) As Long
    CountUnique = Evaluate("=SUMPRODUCT(1/COUNTIF(" & RngA.Address & "," & RngA.Address & "))")
End Function