Come unire ogni altra riga / cella in Excel?

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

Unisci ogni altra riga / cella con la formula in Excel

Unisci ogni altra riga / cella con VBA

Unisci ogni altra riga / cella con la formula in Excel

Seleziona una cella vuota e digita =OFFSET(A$1,(ROW()-1)*2,0)&" "&OFFSET(A$1,((ROW()-1)*2)+1,0) (A $ 1 indica i primi dati nella tua lista, puoi cambiarli quando necessario) e premere il tasto Invio. Quindi trascina la maniglia di riempimento per riempire l'intervallo necessario per applicare questa formula. Vedi screenshot:

Unisci ogni altra riga / cella con VBA

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

1. Aspetta ALT pulsante e premere F11 sulla tastiera per aprire un file Microsoft Visual Basic per l'applicazione finestra.

2. Clic inserire > Modulie 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. Clic Correre per eseguire il codice VBA e un file Kutools per Excel si apre la finestra di dialogo per selezionare un intervallo di celle che si desidera unire a ogni altra riga. Vedi screenshot:

4. Clic OK, viene visualizzata un'altra finestra di dialogo in cui selezionare una singola cella per mettere in evidenza il risultato unito. Vedi screenshot:

5. Clic OKe puoi vedere il risultato:

Articoli relativi:

• Seleziona ogni altra o ennesima riga in Excel
• Copia ogni altra riga
• Elimina ogni altra riga