Skip to main content

Kutools per Office — Una Suite. Cinque Strumenti. Ottieni di Più.

Come unire ogni seconda riga o cella in Excel?

Author Sun Last modified
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 crea grafici | Attiva Funzioni avanzate
Funzionalità più usate: Trova, evidenziazione o contrassegna duplicati | Elimina righe vuote | Unisci colonne o celle senza perdere dati | Arrotonda senza formula...
Super RICERCA.VERT: Ricerca VERT per criteri multipli | Ricerca VERT per 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 multi-selezione...
Gestore colonne: Aggiungi un numero specifico di colonne | Sposta colonne | Cambia stato di visibilità delle colonne nascoste | Confronta intervalli & colonne...
Funzionalità in primo piano: Attenzione della griglia | Visualizzazione di progettazione | Barra delle formule avanzata | Gestore di cartelle di lavoro & fogli | Libreria AutoText | Selettore di data | Unisci dati | Crittografa/Decrittografa celle | Invia Email per elenco | Super Filtri | Filtro speciale (filtra grassetto/corsivo/barrato...)...
Top15 strumenti:12 strumenti Testo (Aggiungi testo, Elimina Caratteri Specifici, ...) |50+ tipi di grafico (Diagramma di Gantt, ...) |40+ formule pratiche (Calcola letà in base alla data di nascita, ...) |19 strumenti di inserimento (Inserisci codice QR, Inserisci Immagine da percorso, ...) |12 strumenti di conversione (Converti in parole, Conversione valuta, ...) |7 strumenti Unione & Dividi (Unione avanzata righe, Dividi celle, ...) | ... e altro ancora
Usa Kutools nella lingua che preferisci – supporta Inglese, Spagnolo, Tedesco, Francese, Cinese e oltre40 altre lingue!

Potenzia le tue competenze in Excel con Kutools per Excel e sperimenta un'efficienza mai vista prima. Kutools per Excel offre oltre300 funzionalità avanzate per aumentare la produttività e farti risparmiare tempo. Clicca qui per ottenere la funzione di cui hai più bisogno...


Office Tab porta le schede su Office e rende il tuo lavoro molto più semplice

  • Abilita la modifica e lettura a schede 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 produttività del50% e riduce centinaia di clic del mouse ogni giorno!

Tutti gli add-in Kutools. Un solo programma di installazione

La suite Kutools for Office include add-in per Excel, Word, Outlook & PowerPoint più Office Tab Pro, ideale per i team che lavorano su più app di Office.

Excel Word Outlook Tabs PowerPoint
  • Suite tutto-in-uno — Add-in per Excel, Word, Outlook & PowerPoint + Office Tab Pro
  • Un solo programma di installazione, una sola licenza — configurazione in pochi minuti (pronto per MSI)
  • Funzionano meglio insieme — produttività ottimizzata su tutte le app Office
  • Prova completa30 giorni — nessuna registrazione, nessuna carta di credito
  • Massimo risparmio — costa meno rispetto all’acquisto singolo degli add-in