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:
