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

Trasporre ogni 5 o n righe da una singola colonna in più colonne in Excel può essere molto utile quando si riorganizzano i dati per l'analisi o la creazione di report. Supponiamo di avere una lunga serie di dati nella colonna A, e ora si desidera trasporre ogni 5 righe dalla colonna A a più colonne, ad esempio trasporre A1:A5 in C6:G6, A6:A10 in C7:G7, e così via come mostrato nello screenshot a sinistra. Questo compito può essere affrontato utilizzando diversi metodi, ognuno con i propri vantaggi. Vediamo una guida dettagliata passo dopo passo su come realizzare ciò.

Trasporre ogni 5 o n righe da una colonna a più colonne

• Usa una formula
• Usa uno strumento potente - Kutools per Excel
• Usa il codice VBA

 Trasporre ogni 5 o n righe da una colonna a più colonne con una formula

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

1. Inserisci la seguente formula in una cella vuota dove desideri inserire il risultato.

=INDEX($A:$A,ROW(A1)*5-5+COLUMN(A1))

2. Quindi trascina la maniglia di riempimento verso destra fino a cinque celle, e continua a trascinare la maniglia di riempimento verso il basso fino all'intervallo di celle finché non vengono visualizzati 0, vedi screenshot:

 Trasporre ogni 5 o n righe da una colonna a più colonne con Kutools per Excel

Sei frustrato nel trasporre i dati di Excel da una colonna a più colonne? La funzione "Trasforma Intervallo" di "Kutools per Excel" è qui per risolvere i tuoi problemi! Che tu abbia bisogno di trasporre ogni 5 righe o un numero personalizzato di righe, ci pensiamo noi. La conversione flessibile delle righe ti permette di scegliere liberamente il numero di righe da trasporre da una colonna a più colonne. È semplice e veloce, non richiede operazioni complesse—bastano pochi clic per completare.

Dopo aver installato "Kutools per Excel", procedi come segue:

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

2. Nella finestra di dialogo "Trasforma Intervallo", seleziona l'opzione "Singola Colonna a Intervallo" sotto "Tipo di Trasformazione", quindi seleziona "Valore Fisso" sotto "Righe per record", quindi specifica il numero di colonne in cui desideri trasporre i dati nella casella "Valore Fisso", vedi screenshot:

3. Quindi fai clic sul pulsante "Ok", nella finestra pop-up, seleziona una cella per l'output del risultato, vedi screenshot:

4. Poi fai clic sul pulsante "OK", e i dati della colonna sono stati trasposti ogni 5 righe come mostrato nello screenshot seguente:

 Trasporre ogni 5 o n righe da una colonna a più colonne con il codice VBA

Se non riesci ad applicare correttamente la formula, il seguente codice VBA può aiutarti.

1. Tieni premuti i tasti "ALT" + "F11" per aprire la finestra "Microsoft Visual Basic for Applications".

2. Fai clic su "Inserisci" > "Modulo", e incolla il seguente codice nella finestra "Modulo".

Codice VBA: Trasporre ogni 5 o n 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, premi il tasto "F5" per eseguirlo, e apparirà una finestra di promemoria per ricordarti di selezionare la colonna che desideri trasporre, vedi screenshot:

4. Poi fai clic su "OK", e seleziona una cella dove vuoi inserire il risultato in un'altra finestra pop-up, vedi screenshot:

5. E fai clic su "OK", i dati nella colonna sono stati convertiti in cinque colonne che ti servono, vedi screenshot:

Per trasporre ogni 5 o n righe da una colonna a più colonne in Excel, questo articolo introduce tre metodi efficaci. Ognuno di questi metodi offre un approccio diverso per riorganizzare i dati in Excel, adattandosi a vari livelli di familiarità degli utenti con gli strumenti di Excel e la programmazione. Se sei interessato a esplorare altri suggerimenti e trucchi di Excel, il nostro sito web offre migliaia di tutorial.