Come trasporre ogni 5 o n righe da una colonna a più colonne?

Supponendo di avere dati lunghi nella colonna A, e ora, vuoi trasporre ogni 5 righe dalla colonna A a più colonne, come trasporre da A1: A5 a C6: G6, A6: A10 a C7: G7 e così via come seguente schermata mostrata. Come potresti affrontare questa attività senza copiare e incollare ripetutamente in Excel?

Trasponi ogni 5 on righe da una colonna a più colonne con la formula

Trasponi ogni 5 on righe da una colonna a più colonne con codice VBA

Trasponi ogni 5 on righe da una colonna a più colonne con Kutools per Excel

Trasponi ogni 5 on righe da una colonna a più colonne con la formula

In Excel, puoi applicare la seguente formula per trasporre ogni n righe da una colonna a più colonne, fai come segue:

1. Immettere la seguente formula in una cella vuota in cui si desidera inserire il risultato, C1, ad esempio, = INDICE ($ A: $ A, RIGA (A1) * 5-5 + COLONNA (A1)), vedi screenshot:

Osservazioni:: Nella formula sopra, AA è il riferimento di colonna che si desidera trasporre e A1 è la prima cella della colonna utilizzata, il numero 5 indica il numero di colonne che i tuoi dati individueranno, puoi modificarle secondo le tue necessità. E la prima cella dell'elenco deve trovarsi nella prima riga del foglio di lavoro.

2. Quindi trascina il quadratino di riempimento a destra su cinque celle e continua a trascinare il quadratino di riempimento verso il basso nell'intervallo di celle finché non viene visualizzato 0, vedi screenshot:

Trasponi ogni 5 on righe da una colonna a più colonne con codice VBA

Se non puoi applicare correttamente la formula, anche il seguente codice VBA può aiutarti.

1. Tieni premuto il ALT + F11 chiavi per aprire il Microsoft Visual Basic, Applications Edition finestra.

2. Clic inserire > Moduloe incolla il codice seguente nel file Modulo Finestra.

Codice VBA: trasponi ogni 5 on righe da una colonna a più colonne:

Public Sub TransposeData()
'updateby Extendoffice
    Dim xLRow As Long
    Dim xNRow As Long
    Dim i As Long
    Dim xUpdate As Boolean
    Dim xRg As Range
    Dim xOutRg As Range
    Dim xTxt As String
    On Error Resume Next
    xTxt = ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("Please select data range(only one column):", "Kutools for Excel", xTxt, , , , , 8)
    Set xRg = Application.Intersect(xRg, xRg.Worksheet.UsedRange)
    If xRg Is Nothing Then Exit Sub
    If (xRg.Columns.Count > 1) Or _
       (xRg.Areas.Count > 1) Then
        MsgBox "the used range only contain one column", , "Kutools for Excel"
        Exit Sub
    End If
    Set xOutRg = Application.InputBox("please select output range(specify one cell):", "Kutools for Excel", xTxt, , , , , 8)
    If xOutRg Is Nothing Then Exit Sub
    Set xOutRg = xOutRg.Range(1)
    xUpdate = Application.ScreenUpdating
    Application.ScreenUpdating = False
    xLRow = xRg.Rows.Count
    For i = 1 To xLRow Step 5
        xRg.Cells(i).Resize(5).Copy
        xOutRg.Offset(xNRow, 0).PasteSpecial Paste:=xlPasteAll, Transpose:=True
        xNRow = xNRow + 1
    Next
    Application.ScreenUpdating = xUpdate
End Sub

3. Dopo aver incollato il codice, premere F5 tasto per eseguirlo e verrà visualizzata una finestra di messaggio per ricordarti di selezionare la colonna che desideri trasporre, vedi screenshot:

4. Quindi fare clic OKe seleziona una cella in cui vuoi inserire il risultato in un'altra casella spuntata, vedi screenshot:

5. E fare clic su OK, i dati nella colonna sono stati convertiti in cinque colonne di cui hai bisogno, vedi screenshot:

Osservazioni:: Nel codice sopra, puoi cambiare il numero 5 ad altro numero che ti serve.

Trasponi ogni 5 on righe da una colonna a più colonne con Kutools per Excel

Se si dispone di Kutools for Excel, Con la sua Trasforma intervallo utility, puoi trasporre rapidamente una colonna o una riga in più colonne e righe.

Dopo l'installazione Kutools for Excel, si prega di fare come segue:

1. Seleziona i dati nella colonna, quindi fai clic su Kutools > Range > Trasforma intervallo, vedi screenshot:

2. Nel Trasforma intervallo finestra di dialogo, selezionare Singola colonna nell'intervallo opzione sotto il Tipo di trasformazionee quindi controllare Valore fisso sotto il Righe per record, quindi specifica il numero di colonne in cui desideri trasporre nel file Valore fisso box, vedi screenshot:

3. E poi clicca Ok pulsante, nella casella spuntata, seleziona una cella per visualizzare il risultato, vedi screenshot:

4. Quindi fare clic OK e i dati della colonna sono stati trasposti ogni 5 righe come mostrato nella seguente schermata:

Scarica e prova gratuitamente Kutools per Excel ora!

Demo: trasponi ogni 5 on righe da una colonna a più colonne con Kutools per Excel

I migliori strumenti per la produttività in ufficio

Kutools per Excel risolve la maggior parte dei tuoi problemi e aumenta la tua produttività dell'80%

• Riutilizzo: Inserisci rapidamente formule complesse, grafici e tutto ciò che hai usato prima; Crittografa celle con password; Crea mailing list e invia email ...
• Super Formula Bar (modifica facilmente più righe di testo e formula); Layout di lettura (leggi e modifica facilmente un gran numero di celle); Incolla su intervallo filtrato...
• Unisci celle / righe / colonne senza perdere dati; Contenuto delle celle divise; Combina righe / colonne duplicate... Impedisci celle duplicate; Confronta intervalli...
• Seleziona Duplica o Unico Righe; Seleziona Righe vuote (tutte le celle sono vuote); Super Find e Fuzzy Find in molte cartelle di lavoro; Selezione casuale ...
• Copia esatta Più celle senza modificare il riferimento della formula; Riferimenti di creazione automatica a più fogli; Inserisci punti elenco, Caselle di controllo e altro ...
• Estrai testo, Aggiungi testo, Rimuovi per posizione, Rimuovi spazio; Creare e stampare totali parziali di paging; Converti contenuto e commenti tra celle...
• Super filtro (salva e applica schemi di filtri ad altri fogli); Ordinamento avanzato per mese / settimana / giorno, frequenza e altro; Filtro speciale in grassetto, corsivo ...
• Combina cartelle di lavoro e fogli di lavoro; Unisci tabelle in base a colonne chiave; Suddividi i dati in più fogli; Conversione in batch xls, xlsx e PDF...
• Più di 300 potenti funzionalità. Supporta Office / Excel 2007-2019 e 365. Supporta tutte le lingue. Facile distribuzione nella tua azienda o organizzazione. Funzionalità complete Prova gratuita di 30 giorni. Garanzia di rimborso di 60 giorni.

Leggi di più... Download gratuito... Acquista... 

---

Scheda Office porta l'interfaccia a schede a Office e semplifica notevolmente il 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 centinaia di clic del mouse ogni giorno!

Leggi di più... Download gratuito... Acquista...