Skip to main content

Come unire ogni seconda riga o cella in Excel?

Author: Sun Last Modified: 2025-08-06
merge every other row sample data

Se hai un elenco di dati e desideri combinare ogni altra riga o cella come mostrato di seguito, sai come farlo? In Excel, puoi utilizzare una formula o VBA per unire ogni altra riga o cella.

Usa la formula per unire ogni seconda riga o cella in Excel

Usa il codice VBA per unire ogni seconda riga o cella in Excel

Usa la formula per unire ogni seconda riga o cella in Excel

Seleziona una cella vuota, inserisci la seguente formula e premi il tasto "Invio".

=OFFSET(A$1,(ROW()-1)*2,0)&" "&OFFSET(A$1,((ROW()-1)*2)+1,0)
Nota: A$1 indica il primo dato nella tua lista, puoi modificarlo secondo necessità.

Quindi trascina il quadratino di riempimento verso il basso per riempire l'intervallo a cui desideri applicare questa formula.

merge every other row with formula

Usa il codice VBA per unire ogni seconda riga o cella in Excel

Se sei abituato a usare VBA, puoi anche eseguire il seguente VBA per unire ogni altra riga.

1. Tieni premuto il pulsante "ALT" e premi "F11" sulla tastiera per aprire una finestra "Microsoft Visual Basic for Application".

2. Clicca su "Inserisci" > "Modulo", e copia il VBA nel modulo.

VBA: Unisci ogni altra riga/cella

Sub CombineCells()
'Updateby20140314
Dim rng As Range
Dim InputRng As Range, OutRng As Range
xTitleId = "KutoolsforExcel"
Set InputRng = Application.Selection
Set InputRng = Application.InputBox("Range :", xTitleId, InputRng.Address, Type:=8)
Set OutRng = Application.InputBox("Out put to (single cell):", xTitleId, Type:=8)
For i = 1 To InputRng.Rows.Count Step 2
    For j = 1 To InputRng.Columns.Count
        OutRng.Value = InputRng.Cells(i, j).Value & InputRng.Cells(i + 1, j).Value
        Set OutRng = OutRng.Offset(0, 1)
    Next
    Set OutRng = OutRng.Offset(1, (InputRng.Columns.Count * -1))
Next
End Sub

3. Clicca su "Esegui" per eseguire il codice VBA, e apparirà una finestra di dialogo "KutoolsforExcel" per selezionare un intervallo di celle che desideri unire per ogni altra riga. Vedi screenshot:

merge every other row with vba code 1

4. Clicca su "OK", apparirà un'altra finestra di dialogo per selezionare una singola cella in cui inserire il risultato unito. Vedi screenshot:

merge every other row with vba code 2

5. Clicca su "OK", e potrai vedere il risultato:

merge every other row with vba code result

Articoli correlati:

I migliori strumenti per la produttività in Office

🤖 Kutools AI Aide: Rivoluziona l’analisi dei dati grazie a: Esecuzione intelligente | Genera codice | Crea formule personalizzate | Analizza dati e genera grafici | Richiama Funzioni avanzate…
Funzionalità popolari: Trova, evidenzia o identifica duplicati | Elimina righe vuote | Combina colonne o celle senza perdere dati | Arrotonda…
Super RICERCA.VERT: Ricerca con criteri multipli  |   Ricerca valori multipli  |   Ricerca su più fogli   |   Corrispondenza approssimativa ....
Elenco a discesa avanzato: Crea rapidamente un elenco a discesa | Elenco a discesa dipendente | Elenco a discesa a selezione multipla….
Gestione colonne: Aggiungi un numero specifico di colonne | Sposta colonne | Cambia lo stato di visibilità delle colonne nascoste | Confronta intervalli e colonne...
Funzionalità in evidenza: Attenzione della griglia | Visualizzazione di progettazione | Barra delle formule avanzata | Gestione Cartella di lavoro & Foglio di lavoro | Libreria AutoText | Selettore di data | Unisci dati | Crittografa/Decrittografa celle | Invia Email da elenco | Super Filtri | Filtro speciale (filtra grassetto/corsivo/barrato...)...
I15 migliori kit di strumenti:12 strumenti di testo (Aggiungi testo, Elimina Caratteri Specifici, ...) | Oltre50 tipi di grafici (Diagramma di Gantt, ...) | Oltre40 formule utili (Calcola l'età in base alla data di nascita, ...) |19 strumenti di inserimento (Inserisci codice QR, Inserisci immagine dal percorso, ...) |12 strumenti di conversione (Converti in parole, Conversione valuta, ...) |7 strumenti per unire & dividere (Unione avanzata righe, Dividi celle, ...) | ...e altro ancora
Usa Kutools nella lingua che preferisci – supporta Inglese, Spagnolo, Tedesco, Francese, Cinese e oltre40 altre!

Migliora le tue competenze su Excel con Kutools per Excel e sperimenta un nuovo livello di efficienza. Kutools per Excel offre oltre300 funzionalità avanzate per aumentare la produttività e risparmiare tempo. Clicca qui per ottenere la funzione di cui hai più bisogno...

Office Tab porta l’interfaccia a schede su Office, rendendo il tuo lavoro molto più semplice

  • Abilita la modifica a schede e la lettura in Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
  • Apri e crea più documenti in nuove schede della stessa finestra, invece che in nuove finestre.
  • Aumenta la tua produttività del50% e ti fa risparmiare centinaia di clic ogni giorno!