Excel: Allineare celle con uguale contenuto confrontando 2 colonne di lunghezza differente

Question

Vorrei sapere se qualcuno può aiutarmi per un problema che non riesco a risolvere.

Ho TRE colonne anzi SEI:

A	B	C	D	E	F
Arancio	descrizione 1	15	Verde	descrizione 7	65
Bianco	descrizione 2	18	Bianco	descrizione 2	12
Giallo	descrizione 3	2	Marrone	descrizione 4	8
Marrone	descrizione 4	5	Rosso	descrizione 6	6
Nero	descrizione 5	79
Rosso	descrizione 6	46
Verde	descrizione 7	25

Vorrei come recita il titolo riuscire ad "affiancare" (anche se non è il termine corretto) le celle delle colonne "A+B+C" con quelle di "D+E+F" nei casi in cui A è uguale a C. Per giungere a una cosa come sotto:

A	B	C	D	E	F
Arancio	descrizione 1	15
Bianco	descrizione 2	18	Bianco	descrizione 2	12
Giallo	descrizione 3	2
Marrone	descrizione 4	5	Marrone	descrizione 4	8
Nero	descrizione 5	79
Rosso	descrizione 6	46	Rosso	descrizione 6	6
Verde	descrizione 7	25	Verde	descrizione 7	65

Qualcuno può aiutarmi.Grazie

Answer 1

Vorrei come recita il titolo riuscire ad "affiancare" (anche se non è il termine corretto) le celle delle colonne "A+B+C" con quelle di "D+E+F" nei casi in cui A è uguale a C. Per giungere a una cosa come sotto:

Presumo quando A sia uguale a D

Qualcuno può aiutarmi.

Se è una domanda, direi di si, ma serve VBA:

Sub Sposta() 

Dim arrV, lngRow As Long, lngRows As Long, varM 

    With Foglio3 ' cambiare con il codename del foglio usato

        lngRows = .Cells(Rows.Count, 4).End(xlUp).Row 

        With .Range("D1:F" & lngRows) 

            arrV = .Value 

            .ClearContents 

        End With 

        lngRow = 1 

        Do Until .Cells(lngRow, 1).Value = "" 

            varM = Application.VLookup(.Cells(lngRow, 1).Value, arrV, 1, 0) 

            If Not IsError(varM) Then 

                .Cells(lngRow, 4).Value = varM 

                .Cells(lngRow, 5).Value = Application.VLookup(.Cells(lngRow, 1).Value, arrV, 2, 0) 

                .Cells(lngRow, 6).Value = Application.VLookup(.Cells(lngRow, 1).Value, arrV, 3, 0) 

            End If 

            lngRow = lngRow + 1 

        Loop 

    End With 

End Sub

Modifica il riferimento al foglio con il tuo dove ho commentato.

Ciao.

Answer 2

Buonasera,

come devo modificare il codice nel caso in cui nella colonna D ci siano righe che non trovano corrispondenza nella colonna A?

Vorrei che eventualmente queste righe vengano inserite alla fine dell'elenco sempre nelle colonne D E F partendo dalla riga vuota che nell'esempio è la numero 9.

Ringrazio anticipatamente.

Answer 3

Grazie a te per il riscontro, ricorda però di chiudere la discussione appena puoi,

ciao.

Answer 4

Funziona! Grazie mille!!!