Macro per unire celle senza usare tab "Unisci Celle"

Question

Buongiorno,

su una stessa colonna excel ho vari nomi e cognomi 

Es.  cella A1 Mario Rossi

      cella A2 Mario Rossi

      cella A3 Giuseppe Bianchi

      cella A4 Giuseppe Bianchi   e così via..

I nomi uguali sono uno di seguito all'altro ( NON capita di avere un Mario Rossi alla riga A1 e un Mario Rossi alla riga A 20 per esempio).

vorrei che il sistema in modo automatico mi riconoscesse quando i nomi e cognomi sono uguali e li unisse in un unica cella.

é possibile?

volevo evitare così di andare ad unire le celle in modo manuale.

Grazie mille

Answer 1

Perfetto.

Ora puoi marcare come risposta la mia risposta per chiudere il post?

Grazie

Answer 2

Scusami ma sono ancora un principiante con excel.

Il codice che mi hai scritto è una macro? se non lo è come faccio ad utilizzarlo?

Scusami per l'ignoranza...

Answer 3

Prova con questo codice

Sub CentraUnisci()

    Dim cella As Range

    Dim intervallo As Range

    Dim celleUnite

    Dim ultima As Integer

    Dim inizio As Integer

    Dim fine As Integer

    ultima = Worksheets("dati").Range("a1").CurrentRegion.Rows.Count

    Application.DisplayAlerts = False

    Set intervallo = Worksheets("dati").Range("a2:a" & ultima)

    intervallo.Sort key1:=Range("a1"), Order1:=xlAscending, Header:=xlYes

    inizio = 2

    For Each cella In intervallo

        If cella <> cella.Offset(1, 0) Then

            fine = cella.Row

            Set celleUnite = Range("a" & inizio & ":A" & fine)

            inizio = fine + 1

            celleUnite.Select

            Selection.Merge

            Selection.VerticalAlignment = xlCenter

        End If

    Next

    Application.DisplayAlerts = True

End Sub

Answer 4

Mi sono spiegato male.

Ho due fogli sul file excel:

• Database
• Tabella finale

Nel database ho tutti i nomi ripetuti per ogni cella, mentre nella tabella finale per una questione di estetica (il file deve essere stampato) ho bisogno che siano uniti in una sola cella.

Sotto c'è l'esempio grafico che dovrebbe essere più chiaro.

Mi chiedevo se il passaggio dalla "versione 1" alla "versione 2" si può fare automaticamente senza modificare ogni singola cella con il tab " Unisci celle".

Grazie ancora!!!

Answer 5

Forse non capisco, ma ti basta rimuovere i duplicati.

Clicca nella colonna A e poi ti porti nella scheda Dati, quindi scegli Rimuovi duplicati.