Excel devo unire due righe di dati diversi in una sola

Question

Buongiorno,

Ho due righe di dati, esempio:

Nome cognome compleanno e-mail cellulare

Nome cognome compleanno e-mail cellulare

Solo che magari nella prima riga manca il compleanno e nella seconda manca il cellulare. Io vorrei unirle in una sola riga e che Excel prendesse il dato mancante da entrambe le righe, senza sdoppiare dati che ci sono sempre come nome e cognome. Spero di essere stata chiara, grazie mille!

Elena

Answer 1

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

Answer 2

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.

Answer 3

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));"")

Answer 4

Excel 2019

Answer 5

ciao Elena

che versione hai di excel