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
- Riutilizza qualsiasi cosa: Aggiungi le formule, i grafici e qualsiasi altra cosa più usati o complessi ai tuoi preferiti e riutilizzali rapidamente in futuro.
- Più di 20 funzioni di testo: Estrai numero dalla stringa di testo; Estrai o rimuovi parte di testi; Converti numeri e valute in parole inglesi.
- Unisci strumenti: Più cartelle di lavoro e fogli in uno; Unisci più celle / righe / colonne senza perdere dati; Unisci righe duplicate e somma.
- Strumenti di divisione: Suddivisione dei dati in più fogli in base al valore; Una cartella di lavoro su più file Excel, PDF o CSV; Da una colonna a più colonne.
- Incolla Salto Righe nascoste / filtrate; Count And Sum di Background Color; Invia e-mail personalizzate a più destinatari in blocco.
- Super filtro: Crea schemi di filtri avanzati e applicali a qualsiasi foglio; Riordina per settimana, giorno, frequenza e altro; Filtro in grassetto, formule, commenti ...
- Più di 300 potenti funzionalità; Funziona con Office 2007-2021 e 365; Supporta tutte le lingue; Facile implementazione nella tua azienda o organizzazione.
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 > Moduloe 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:
