Come spostare ogni altra riga in colonna in Excel
Hai mai provato a spostare ogni altra riga di dati in una colonna in Excel, come spostare ogni riga dispari su una colonna e ogni riga pari sull'altra colonna, che sono mostrate come nell'immagine sottostante. Qui trovo alcuni trucchi che possono gestire questo problema.
Sposta ogni altra riga in colonna con la formula
Sposta ogni altra riga in colonna con VBA
Sposta ogni altra riga in colonna con Kutools per Excel
Sposta ogni altra riga in colonna con la formula
Per la maggior parte degli utenti di Excel, l'utilizzo della formula per risolvere il problema in Excel è il modo più semplice.
1. Seleziona una cella accanto ai tuoi dati e digita questa formula = SE (ISEVEN (ROW (B2)), B2, "") (B2 indica i dati che si desidera ottenere) in esso e premere entrare quindi trascina il riempimento automatico per riempire l'intervallo in cui desideri utilizzare questa formula. Ora ogni seconda riga di dati è stata ottenuta in questa colonna.
2. Quindi selezionare l'altra cella accanto alla colonna sopra e digitare questa formula = SE (ISODD (ROW (B3)), B3, "") (B3 è i dati che vuoi inserire) e premi entrare quindi trascina il riempimento automatico per riempire l'intervallo in cui desideri utilizzare questa formula. Ora ogni terza riga di dati è stata ottenuta in questa colonna.
Sposta ogni altra riga in colonna con VBA
Il seguente VBA può anche spostare ogni altra riga in colonna.
1. Stampa F11 + alt tasti insieme sulla tastiera per aprire il pulsante M.icrosoft Visual Basic per applicazioni finestra.
2. Quindi fare clic inserire > Moduli per inserire una nuova finestra del modulo. Quindi copia il seguente codice VBA nella finestra.
VBA: sposta ogni altra riga in colonna.
Sub MoveRange()
'Updateby20140730A
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)
Set InputRng = InputRng.Columns(1)
For i = 1 To InputRng.Rows.Count Step 2
OutRng.Resize(1, 2).Value = Array(InputRng.Cells(i, 1).Value, InputRng.Cells(i + 1, 1).Value)
Set OutRng = OutRng.Offset(1, 0)
Next
End Sub
3. Clic Correre pulsante o F5 sulla tastiera e viene visualizzata una finestra di dialogo per selezionare un intervallo da spostare. Vedi screenshot:
4. Quindi fare clic OK per mostrare l'altra finestra di dialogo per selezionare una cella per l'output del risultato. Vedi screenshot:
5. Clic OKe puoi vedere il risultato mostrato come di seguito:
Sposta ogni altra riga in colonna con Kutools per Excel
Oltre a formule e VBA, se hai installato Kutools for Excel, puoi usare il suo Trasforma intervallo funzione per spostare rapidamente ogni altra riga in colonna.
Kutools for Excel include più di 300 utili strumenti Excel. Prova gratuita senza limitazioni per 30 giorni. Get it Now
1. Selezionare l'intervallo che si desidera spostare a righe alterne e fare clic Kutools > Convertitore di gamma > Trasforma intervallo. Vedi screenshot:
2. Nel Trasforma intervallo dialogo, controlla Singola colonna nell'intervallo in Tipo di trasformazione sezione e controllare Valore fisso quindi selezionare o immettere 2 nell'elenco in Righe per record sezione. Vedi screenshot:
3. Clic Ok per aprire una finestra di dialogo per selezionare una singola cella per mettere fuori il risultato, vedi screenshot:
4. Quindi fare clic OK. Puoi vedere il risultato come mostrato di seguito:
Per ulteriori informazioni su Transform Range.
Articoli relativi:
I migliori strumenti per la produttività in ufficio
Potenzia le tue competenze di Excel con Kutools per Excel e sperimenta l'efficienza come mai prima d'ora. Kutools per Excel offre oltre 300 funzionalità avanzate per aumentare la produttività e risparmiare tempo. Fai clic qui per ottenere la funzionalità di cui hai più bisogno...
Office Tab porta l'interfaccia a schede in Office e semplifica notevolmente il tuo lavoro
- Abilita la modifica e la lettura a schede in Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Apri e crea più documenti in nuove schede della stessa finestra, piuttosto che in nuove finestre.
- Aumenta la produttività del 50% e riduce ogni giorno centinaia di clic del mouse!