Come trasporre facilmente e rapidamente un intervallo e impilare i dati in Excel?

Ad esempio, ci sono alcuni dati visualizzati in gruppi e ora voglio trasporre l'intervallo e impilare i dati di ogni colonna, come mostrato nello screenshot sottostante. In questo articolo, introdurrò i metodi per svolgere questa operazione in Excel.

Trasponi e impila i dati con VBA

Trasponi e impila i dati con la funzione Trasponi Dimensione Tabella di Kutools

Trasponi e impila i dati con VBA

Puoi applicare un codice VBA per trasporre e impilare i dati.

1. Seleziona i dati escludendo le intestazioni delle colonne e premi i tasti Alt + F11 per abilitare la finestra Microsoft Visual Basic for Applications.

2. Clicca su Inserisci > Modulo e incolla il seguente codice nel Modulo.

VBA: Trasponi e Impila dati

Sub ConvertTableToList()
'UpdatebyExtendoffice20161121
Const TEST_COLUMN As String = "A"
Dim i As Long, j As Long
Dim iLastRow As Long
Dim iLastCol As Long
Application.ScreenUpdating = False
With ActiveSheet
iLastRow = .Cells(.Rows.Count, TEST_COLUMN).End(xlUp).Row
For i = iLastRow To 2 Step -1
iLastCol = .Cells(i, .Columns.Count).End(xlToLeft).Column
For j = iLastCol To 3 Step -1
.Rows(i + 1).Insert
.Cells(i + 1, 2).Value = .Cells(i, j).Value
.Cells(i, j).Value = ""
Next j
Next i
.Rows(1).Delete
End With
Application.ScreenUpdating = True
End Sub

3. Premi F5 tasto, quindi i dati verranno trasposti e impilati. Vedi screenshot:

Nota: Nel codice VBA, A indica di posizionare i dati trasposti nella colonna A del foglio di lavoro corrente e sostituire i dati originali della colonna A.

Trasponi e impila i dati con la funzione Trasponi Dimensione Tabella di Kutools

Se vuoi trasporre rapidamente e facilmente un intervallo e impilare i dati senza utilizzare il codice VBA, puoi applicare l'utilità Trasponi Dimensione Tabella di Kutools per Excel.

1. Seleziona i dati che utilizzi, clicca Kutools > Intervallo > Converti Dimensione Tabella. Vedi screenshot:

2. Nella finestra di dialogo, seleziona Converti Tabella Bidimensionale in Tabella Unidimensionale opzione e seleziona una cella dove desideri posizionare i dati trasposti nell'area dei risultati Risultati (per cella) casella di testo. Vedi screenshot:

3. Clicca Ok. Ora l'intervallo è stato trasposto e impilato in colonne.

Demo: Trasponi Intervallo e Impila Dati con la funzione Trasponi Dimensione Tabella di Kutools