Come dividere una lunga colonna in più colonne in Excel?
Dividi una lunga colonna in più colonne con VBA
Dividi una lunga colonna in più colonne con Kutools per Excel
Dividi una lunga colonna in più colonne con VBA
1. Premi contemporaneamente i tasti Alt + F11 per aprire la finestra Microsoft Visual Basic for Applications.
2. Clicca su Inserisci > Modulo e copia il seguente codice VBA nella finestra apparsa.
VBA: Dividi una lunga colonna 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. Clicca sul pulsante Esegui o premi il tasto F5 per eseguire il VBA, e apparirà una finestra di dialogo per selezionare l'elenco dei dati; quindi clicca OK per specificare quante righe vuoi in una colonna nella finestra successiva, poi clicca di nuovo OK e seleziona una cella per ottenere il risultato. Guarda gli screenshot:
 |
 |
 |
|
 |
4. Clicca OK, quindi vedrai che la lunga colonna è stata divisa in più colonne e ogni colonna contiene 15 celle.
Dividi una lunga colonna in più colonne con Kutools per Excel
Forse alcuni di voi non amano usare il codice VBA; fortunatamente, puoi utilizzare l'utilità Trasforma Intervallo di Kutools per Excel per convertire rapidamente e facilmente una lunga colonna in un numero fisso di colonne.
Dopo aver installato Kutools per Excel, procedi come segue:
1. Seleziona i dati della colonna che desideri dividere, quindi clicca Kutools > Intervallo > Trasforma Intervallo. Vedi screenshot:
2. Nella finestra di dialogo apparsa, seleziona Singola Colonna a Intervallo opzione, quindi seleziona Valore Fisso opzione e digita il numero di colonne necessarie nella casella di testo. Vedi screenshot:
3. Clicca Ok e seleziona una singola cella per inserire i dati divisi. Vedi screenshot:
4. Clicca OK per completare le operazioni. Ora i dati della lunga colonna sono stati suddivisi in tre colonne.
È più facile rispetto al codice VBA? Con l'utilità Trasforma Intervallo, puoi convertire una riga in un intervallo, un intervallo in una riga o in una colonna.
I 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 oltre300 funzionalità avanzate per aumentare la produttività e farti risparmiare tempo. Clicca qui per ottenere la funzione di cui hai più bisogno...
Office Tab porta le schede su Office e rende il tuo lavoro molto più semplice
- Abilita la modifica e lettura a schede in Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Apri e crea più documenti in nuove schede della stessa finestra invece che in nuove finestre.
- Aumenta la produttività del50% e riduce centinaia di clic del mouse ogni giorno!
Tutti gli add-in Kutools. Un solo programma di installazione
La suite Kutools for Office include add-in per Excel, Word, Outlook & PowerPoint più Office Tab Pro, ideale per i team che lavorano su più app di Office.
- Suite tutto-in-uno — Add-in per Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Un solo programma di installazione, una sola licenza — configurazione in pochi minuti (pronto per MSI)
- Funzionano meglio insieme — produttività ottimizzata su tutte le app Office
- Prova completa30 giorni — nessuna registrazione, nessuna carta di credito
- Massimo risparmio — costa meno rispetto all’acquisto singolo degli add-in