Excel devo unire due righe di dati diversi in una sola

ciao Elena

che versione hai di excel

Excel 2019

ciao

ok usiamo formule "vintage"

in E2 da trascinare in basso

=SE.ERRORE(INDICE($A$2:$A$1000;CONFRONTA(0;INDICE(CONTA.SE(E$1:$E1;$A$2:$A$1000&""););0));"")

se cambi colonna varia la parte in verde

( questa formula necessita di una cella sopra meglio se vuota)

in F2 e la trascini a destra e in basso

=SE.ERRORE(INDICE(B$1:B$1000;AGGREGA(15;6;RIF.RIGA($1:$1000)/($A$1:$A$10=$E2)/(B$1:B$1000>0);1));"")

Per passare da una cosa del genere:

a questa:

possono bastare anche poche righe di codice:

Sub Raggruppa()

Dim lngRow As Long, lngC As Long

    With ActiveSheet

        For lngRow = .Cells(Rows.Count, 1).End(xlUp).Row To 2 Step -1

            If .Cells(lngRow - 1, 1).Value = .Cells(lngRow, 1).Value And .Cells(lngRow - 1, 2).Value = .Cells(lngRow, 2).Value Then

                For lngC = 3 To 5

                    If .Cells(lngRow, lngC).Value <> "" Then .Cells(lngRow - 1, lngC).Value = .Cells(lngRow, lngC).Value

                Next lngC

                .Cells(lngRow, 1).EntireRow.Delete

            End If

        Next lngRow

    End With

End Sub

Ciao.

Ciao,

volendo provare una soluzione tramite l'utilizzo di Power Query.

Partendo dai dati inseriti in una tabella:

e trattando i dati da "tabella/intervallo" ho effettuato il raggruppamento delle colonne Nome e Cognome facendo restituire il valore massimo delle colonne Compleanno, Email e Cellulare, ottenendo una tabella di dati come questa:

Questo il codice M per arrivare a questo risultato:

let 

    Origine = Excel.CurrentWorkbook(){[Name="Tabella1"]}[Content], 

    #"Modificato tipo" = Table.TransformColumnTypes(Origine,{{"Nome", type text}, {"Cognome", type text}, {"Compleanno", type date}, {"Email", type text}, {"Cellulare", type text}}), 

    #"Raggruppate righe" = Table.Group(#"Modificato tipo", {"Nome", "Cognome"}, {{"Compleanno", each List.Max([Compleanno]), type date}, {"Email", each List.Max([Email]), type text}, {"Cellulare", each List.Max([Cellulare]), type text}}) 

in 

    #"Raggruppate righe"

Naturalmente ci sarebbe la problematica di eventuali omonimie (per le quali occorrerebbe un qualche elemento di distinzione) e l'ipotesi che per un qualche nominativo vi fossero più email

Ciao