Как разделить длинный столбец на несколько столбцов в 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. Появится диалоговое окно для выбора списка данных. Нажмите ОК, затем укажите в следующем диалоговом окне, сколько строк должно быть в одном столбце, и снова нажмите ОК. После этого выберите ячейку для вывода результата. См. снимки экрана:
 |
 |
 |
|
 |
4. Нажмите ОК, и вы увидите, что длинный столбец разделён на несколько столбцов, каждый из которых содержит по 15 ячеек.
Разделение длинного столбца на несколько столбцов с помощью Kutools для Excel
Возможно, некоторым пользователям неудобно работать с кодом VBA. К счастью, вы можете воспользоваться утилитой Преобразовать диапазон из набора Kutools для Excel, чтобы быстро и легко преобразовать длинный столбец в фиксированное количество столбцов.
После установки Kutools для Excel выполните следующие действия:
1. Выделите столбец с данными, которые нужно разделить, затем нажмите Kutools > Диапазон > Преобразовать диапазон. См. снимок экрана:
2. В появившемся диалоговом окне установите флажок напротив параметра Одна колонка в диапазон, затем выберите опцию Фиксированное значение и укажите в текстовом поле нужное количество столбцов. См. снимок экрана:
3. Нажмите ОК и выберите ячейку для размещения результата разделения данных. См. снимок экрана:
4. Нажмите ОК, чтобы завершить операцию. Теперь данные из длинного столбца разделены на три столбца.
Разве это не проще, чем использовать код VBA? С помощью утилиты «Преобразовать диапазон» вы легко преобразуете строку в диапазон, диапазон в строку или в один столбец.
Лучшие инструменты повышения продуктивности в Office
Раскройте весь потенциал Excel с помощью Kutools для Excel и ощутите эффективность как никогда раньше.Kutools для Excel предлагает более 300 расширенных функций для повышения продуктивности и Экономия времени.Нажмите здесь, чтобы получить нужную Вам функцию…
Office Tab добавляет в Office вкладки и значительно упрощает Вашу работу
- Включите редактирование и чтение во вкладках в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Открывайте и создавайте несколько документов во вкладках одного окна — вместо того чтобы использовать отдельные окна.
- Повышает вашу продуктивность на 50 % и экономит сотни кликов мышью каждый день!
Все надстройки Kutools — один установщик
Kutools for Office — набор надстроек для Excel, Word, Outlook и PowerPoint, а также Office Tab Pro, идеально подходящий командам, работающим с разными приложениями Office.
- Единый комплект— надстройки для Excel, Word, Outlook и PowerPoint + Office Tab Pro
- Один установщик, одна лицензия— настройка занимает считанные минуты (готово для MSI)
- Лучше работать вместе— оптимизированная продуктивность во всех приложениях Office
- 30-дневная полнофункциональная пробная версия— без регистрации и кредитной карты
- Лучшее соотношение цены и качества— экономия по сравнению с покупкой отдельных надстроек