Cum se împarte o coloană lungă în mai multe coloane în Excel?
Împarte coloana lungă în mai multe coloane cu VBA
Împărțiți o coloană lungă în mai multe coloane cu Kutools for Excel
Împarte coloana lungă în mai multe coloane cu VBA
1. presa Alt + F11 tastele împreună pentru a deschide fișierul Microsoft Visual Basic pentru aplicații fereastră.
2. clic Insera > Module și copiați următorul cod VBA în fereastra pop-out.
VBA: împarte coloana lungă în mai multe coloane.
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. clic Alerga sau apăsați F5 pentru a rula VBA și a apărut un dialog pentru selectarea listei de date, apoi faceți clic pe OK pentru a specifica câte rânduri dintr-o coloană aveți nevoie în dialogul următor, apoi faceți clic pe OK și selectați o celulă pentru a obține rezultatul. Vedeți capturi de ecran:
 |
 |
 |
|
 |
4. clic OK, apoi puteți vedea coloana lungă este împărțită în mai multe coloane și fiecare coloană are 15 celule.
Împărțiți o coloană lungă în mai multe coloane cu Kutools for Excel
Poate că unora dintre voi nu le place să utilizeze codul VBA, din fericire, puteți utiliza Gama de transformare utilitatea Kutools for Excel pentru a converti rapid și ușor o coloană lungă în număr fix de coloane.
| Kutools for Excel, cu mai mult de 300 funcții la îndemână, vă face munca mai ușoară. |
După instalare Kutools for Excel, vă rugăm să faceți după cum urmează:(Descărcare gratuită Kutools for Excel Acum!)
1. Selectați datele coloanei pe care doriți să le împărțiți, apoi faceți clic pe Kutools > Gamă > Gama de transformare. Vedeți captura de ecran:
2. În dialogul pop-out, bifați O singură coloană pentru a varia opțiune, apoi bifați Valoare fixa și introduceți numărul de coloane de care aveți nevoie în caseta de text. Vedeți captura de ecran:
3. clic Ok și selectați o singură celulă pentru a afișa datele împărțite. Vedeți captura de ecran:
4. clic OK pentru a termina operațiunile. Acum, datele coloanei lungi au fost împărțite în trei coloane.
Este mai ușor decât codul VBA? Cu TRansform Range utilitar, puteți converti un rând în interval, un interval într-un rând sau o coloană.
Transpuneți o singură coloană / rând într-un interval sau invers
Împarte rapid o celulă în coloane sau rânduri pe baza delimitatorului
|
| În Excel, împărțirea unei celule în coloane este obositoare cu Expertul pas cu pas. Dar cu Kutools for Excel's Celule divizate utilitar, puteți: 1, converti o celulă în coloane sau rânduri pe baza delimitatorului; 2, converti șirul în text și număr; 3, convertiți șirul pe baza lățimii specifice, cu clicuri. Faceți clic pentru o versiune de încercare gratuită de 30 de zile! |
 |
| Kutools for Excel: cu mai mult de 300 de programe de completare Excel la îndemână, încercați fără limitări în 30 de zile. |
Cele mai bune instrumente de productivitate de birou
Îmbunătățiți-vă abilitățile Excel cu Kutools for Excelși experimentați eficiența ca niciodată înainte. Kutools for Excel Oferă peste 300 de funcții avansate pentru a crește productivitatea și a economisi timp. Faceți clic aici pentru a obține funcția de care aveți cea mai mare nevoie...
Office Tab Aduce interfața cu file la Office și vă face munca mult mai ușoară
- Activați editarea și citirea cu file în Word, Excel, PowerPoint, Publisher, Access, Visio și Project.
- Deschideți și creați mai multe documente în filele noi ale aceleiași ferestre, mai degrabă decât în ferestrele noi.
- Vă crește productivitatea cu 50% și reduce sute de clicuri de mouse pentru dvs. în fiecare zi!
