Как да разделя дълга колона на няколко колони в Excel?
Разделете дългата колона на няколко колони с VBA
Разделете дълга колона на няколко колони с Kutools за Excel
Разделете дългата колона на няколко колони с VBA
1. Натиснете Alt + F11 ключове заедно, за да отворите Microsoft Visual Basic за приложения прозорец.
2. кликване Поставете > Модули и копирайте следния VBA код в изскачащия прозорец.
VBA: Разделете дългата колона на няколко колони.
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. кликване бягане бутон или натиснете F5 за стартиране на VBA и се появява диалогов прозорец за избор на списък с данни, след което щракнете OK за да укажете колко реда в една колона ви трябват в следващия диалогов прозорец, след което щракнете OK и изберете клетка за извеждане на резултата. Вижте екранни снимки:
 |
 |
 |
|
 |
4. кликване OK, тогава можете да видите, че дългата колона е разделена на няколко колони и всяка колона има 15 клетки.
Разделете дълга колона на няколко колони с Kutools за Excel
Може би някои от вас не обичат да използват VBA код, за щастие можете да използвате Обхват на трансформация полезност на Kutools за Excel за бързо и лесно преобразуване на дълга колона във фиксиран брой колони.
| Kutools за Excel, с повече от 300 удобни функции, прави работата ви по-лесна. |
След инсталиране Kutools за Excel, моля, направете следното:（Безплатно изтегляне Kutools за Excel сега!)
1. Изберете данните в колоната, които искате да разделите, след което щракнете Kutools > Обхват > Обхват на трансформация. Вижте екранна снимка:
2. В изскачащия диалогов прозорец поставете отметка Единична колона към диапазон опция, след това проверете Фиксирана стойност и въведете необходимия брой колони в текстовото поле. Вижте екранна снимка:
3. кликване Ok и изберете една клетка, за да изведете разделените данни. Вижте екранна снимка:
4. кликване OK да завърши операциите. Сега данните от дългата колона са разделени на три колони.
По-лесно ли е от кода на VBA? с Тransform Range помощна програма, можете да конвертирате ред в диапазон, диапазон в ред или една колона.
Транспониране на една колона/ред в диапазон или обратно
Бързо разделете една клетка на колони или редове въз основа на разделител
|
| В Excel разделянето на клетка на колони е досадно със съветника стъпка по стъпка. Но със Kutools за Excel's Разделени клетки помощна програма, можете: 1, да конвертирате една клетка в колони или редове въз основа на разделител; 2, конвертиране на низ в текст и число; 3, конвертирайте низ въз основа на конкретна ширина, с щраквания. Щракнете за пълнофункционален 30-дневен безплатен пробен период! |
 |
| Kutools за Excel: с повече от 300 удобни добавки за Excel, безплатни за изпробване без ограничение за 30 дни. |
Най-добрите инструменти за продуктивност в офиса
Усъвършенствайте уменията си за Excel с Kutools за Excel и изпитайте ефективност, както никога досега. Kutools за Excel предлага над 300 разширени функции за повишаване на производителността и спестяване на време. Щракнете тук, за да получите функцията, от която се нуждаете най-много...
Раздел Office Внася интерфейс с раздели в Office и прави работата ви много по-лесна
- Разрешете редактиране и четене с раздели в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Отваряйте и създавайте множество документи в нови раздели на един и същ прозорец, а не в нови прозорци.
- Увеличава вашата производителност с 50% и намалява стотици кликвания на мишката за вас всеки ден!
