Come impilare le colonne da sinistra a destra in un’unica colonna in Excel?
Supponiamo che siano presenti più colonne e che l’obiettivo sia impilarle da sinistra a destra in un’unica colonna, come mostrato nell’immagine seguente. Oltre a spostarle manualmente una per una, esistono altri metodi per ottenere questo risultato in Excel?
Impila le colonne Da sinistra a destra in una colonna con VBA
Impila le colonne Da sinistra a destra in una colonna con Kutools per Excel
Impila le colonne Da sinistra a destra in una colonna con VBA
Excel non include una funzione integrata per gestire questa operazione, ma puoi risolvere facilmente il problema con del codice VBA.
1. Premere i tasti Alt + F11, quindi, nella finestra di Microsoft Visual Basic for Applications, fare clic su Inserisci > Modulo per creare un nuovo modulo vuoto.
2. Copia e incolla il codice seguente nel Modulo.
VBA: Impila le colonne in una sola
Sub StackColumns()
'UpdatebyExtendoffice20180814
Dim xSRg, xDRg As Range
Dim xDWS As Worksheet
Dim xIntDR, xIntDC, xI As Long
Dim xFNumR, xFNumC As Long
On Error GoTo Err1
Set xSRg = Application.InputBox("Select Columns:", "Kutools for Excel", xTxt, , , , , 8)
If xSRg Is Nothing Then
Err1:
Application.ScreenUpdating = True
Exit Sub
End If
Set xDRg = Application.InputBox("Select a cell to place result:", "Kutools for Excel", xTxt, , , , , 8)
If xDRg Is Nothing Then
Exit Sub
End If
Application.ScreenUpdating = False
Set xDWS = xDRg.Worksheet
xIntDR = xDRg.Row
xIntDC = xDRg.Column
xI = 0
For xFNumC = 1 To xSRg.Columns.Count
For xFNumR = 1 To xSRg.Rows.Count
Set xDRg = xDWS.Cells(xIntDR + xI, xIntDC)
xDRg.Value = xSRg.Cells(xFNumR, xFNumC).Value
xI = xI + 1
Next xFNumR
Next xFNumC
Application.ScreenUpdating = True
End Sub
3. Premere il tasto F5 per eseguire il codice; verrà visualizzata una finestra di dialogo in cui selezionare le colonne da impilare in un’unica colonna.
4. Fare clic su OK e selezionare una cella in cui inserire il risultato.
5. Fare clic su OK per completare. Ora le colonne selezionate sono state impilate in un’unica colonna.
Impila le colonne Da sinistra a destra in una colonna con Kutools per Excel
Se hai installato Kutools per Excel in Excel, puoi utilizzare lo strumento Transform Range per eseguire questa operazione.
Dopo aver installato Kutools per Excel, procedere come segue:
1. Seleziona le colonne da impilare, quindi fai clic su Kutools > Intervallo > Transform Range.
2. Nella finestra di dialogo Transform Range, seleziona la casella Range to single row, quindi fai clic su Ok.
3. Nella finestra di dialogo visualizzata, seleziona una cella in cui inserire il risultato e fai clic su OK.
Ora le colonne sono state unite in un’unica riga.
4. Seleziona l’unica riga, premi Ctrl + C per copiarla, seleziona un’altra cella in cui inserire la colonna impilata, fai clic con il pulsante destro del mouse e scegli Transpose (T) dal menu contestuale.
Ora l’unica riga è stata trasposta in una colonna impilata.
Migliori Strumenti per la Produttività in Office
Potenzia le tue competenze in Excel con Kutools per Excel e sperimenta un’efficienza mai vista prima.Kutools per Excel offre oltre 300 funzionalità avanzate per aumentare la produttività e Risparmia tempo.Clicca qui per ottenere la funzionalità di cui hai più bisogno...
Office Tab Porta l'interfaccia a schede in Office e rende il tuo lavoro molto più semplice
- 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 all’interno della stessa finestra, invece che in finestre separate.
- Aumenta la tua produttività del 50 % e risparmia centinaia di clic del mouse ogni giorno!
Tutti i componenti aggiuntivi di Kutools in un unico programma di installazione.
Kutools for Office è la suite che include componenti aggiuntivi per Excel, Word, Outlook e PowerPoint, oltre a Office Tab Pro: la soluzione ideale per i team che lavorano su diverse app di Office.
- Suite completa— componenti aggiuntivi per Excel, Word, Outlook e PowerPoint + Office Tab Pro
- Un unico programma di installazione, una sola licenza— configurazione in pochi minuti (pronto per MSI)
- Funziona meglio insieme— produttività ottimizzata tra le app di Office
- Prova gratuita di 30 giorni con tutte le funzionalità— nessuna registrazione, nessuna carta di credito
- Miglior rapporto qualità-prezzo— risparmia rispetto all’acquisto dei singoli componenti aggiuntivi