Come suddividere una colonna lunga in più colonne in Excel?
Suddividi una colonna lunga in più colonne con VBA
Suddividi una colonna lunga in più colonne con Kutools per Excel
Suddividi una colonna lunga in più colonne con VBA
1. Premere contemporaneamente Alt + F11 per aprire la finestra Microsoft Visual Basic, Applications.
2. Fare clic su Inserisci > Modulo e copiare il seguente codice VBA nella finestra visualizzata.
VBA: suddivide una colonna lunga in più colonne.
Sub SplitColumn()
'Updateby20141106
Dim rng As Range
Dim InputRng As Range
Dim OutRng As Range
Dim xRow As Integer
Dim xCol As Integer
Dim xArr As Variant
xTitleId = "KutoolsforExcel"
Set InputRng = Application.Selection
Set InputRng = Application.InputBox("Range :", xTitleId, InputRng.Address, Type: = 8)
xRow = Application.InputBox("Rows :", xTitleId)
Set OutRng = Application.InputBox("Out put to (single cell):", xTitleId, Type: = 8)
Set InputRng = InputRng.Columns(1)
xCol = InputRng.Cells.Count / xRow
ReDim xArr(1 To xRow, 1 To xCol + 1)
For i = 0 To InputRng.Cells.Count - 1
xValue = InputRng.Cells(i + 1)
iRow = i Mod xRow
iCol = VBA.Int(i / xRow)
xArr(iRow + 1, iCol + 1) = xValue
Next
OutRng.Resize(UBound(xArr, 1), UBound(xArr, 2)).Value = xArr
End Sub
3. Fare clic sul pulsante Esegui o premere il tasto F5 per eseguire il codice VBA. Si aprirà una finestra di dialogo per selezionare l'elenco dati; fare quindi clic su OK per specificare, nella finestra successiva, il numero di righe desiderato per colonna. Cliccare infine su OK e selezionare una cella in cui visualizzare il risultato. Vedere le schermate:
 |
 |
 |
|
 |
4. Fare clic su OK, quindi si potrà osservare che la colonna lunga è stata suddivisa in più colonne, ognuna contenente 15 celle.
Suddividi una colonna lunga in più colonne con Kutools per Excel
Forse alcuni di voi non amano utilizzare il codice VBA; fortunatamente, è possibile usare l’utilità Trasforma Intervallo di Kutools per Excel per convertire rapidamente e facilmente una colonna lunga in un numero fisso di colonne.
Dopo aver installato Kutools per Excel, procedere come segue:
1. Seleziona i dati della colonna da suddividere, quindi fai clic su Kutools > Intervallo > Trasforma Intervallo. Guarda la schermata:
2. Nella finestra visualizzata, seleziona l’opzione Singola Colonna a Intervallo, quindi attiva l’opzione Valore Fisso e inserisci nel campo il numero di colonne desiderato. Guarda la schermata:
3. Fare clic su Ok e selezionare una singola cella in cui inserire i dati suddivisi. Vedere la schermata:
4. Fare clic su OK per completare le operazioni. Ora i dati della colonna lunga sono stati suddivisi in tre colonne.
È più semplice del codice VBA? Con l’utilità Trasforma intervallo puoi convertire una riga in un intervallo, un intervallo in una riga o in una singola colonna!
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