Как объединить столбцы слева направо в один столбец в Excel?
Предположим, у вас есть несколько столбцов, и задача состоит в том, чтобы объединить их слева направо в один столбец, как показано на скриншоте ниже. Кроме как вручную перемещать столбцы по одному, существуют ли какие-либо способы решить эту задачу в Excel?
Объединение столбцов слева направо в один с помощью VBA
Объединение столбцов слева направо в один с помощью Kutools для Excel
Объединение столбцов слева направо в один с помощью VBA
В Excel нет встроенной функции, которая могла бы справиться с этой задачей, но код VBA может помочь вам.
1. Нажмите клавиши Alt +F11, затем в окне Microsoft Visual Basic for Applications нажмите Вставить > Модуль, чтобы создать новый пустой модуль.
2. Скопируйте и вставьте следующий код в Модуль.
VBA: Объединение столбцов в один
Sub StackColumns()
'UpdatebyExtendoffice20180814
Dim xSRg, xDRg As Range
Dim xDWS As Worksheet
Dim xIntDR, xIntDC, xI As Long
Dim xFNumR, xFNumC As Long
On Error GoTo Err1
Set xSRg = Application.InputBox("Select Columns:", "Kutools for Excel", xTxt, , , , , 8)
If xSRg Is Nothing Then
Err1:
Application.ScreenUpdating = True
Exit Sub
End If
Set xDRg = Application.InputBox("Select a cell to place result:", "Kutools for Excel", xTxt, , , , , 8)
If xDRg Is Nothing Then
Exit Sub
End If
Application.ScreenUpdating = False
Set xDWS = xDRg.Worksheet
xIntDR = xDRg.Row
xIntDC = xDRg.Column
xI = 0
For xFNumC = 1 To xSRg.Columns.Count
For xFNumR = 1 To xSRg.Rows.Count
Set xDRg = xDWS.Cells(xIntDR + xI, xIntDC)
xDRg.Value = xSRg.Cells(xFNumR, xFNumC).Value
xI = xI + 1
Next xFNumR
Next xFNumC
Application.ScreenUpdating = True
End Sub
3. Нажмите F5 , чтобы запустить код. Появится диалоговое окно, в котором вы сможете выбрать столбцы, которые хотите объединить в один.
4. Нажмите OK, выберите ячейку для размещения результата.
5. Нажмите OK для завершения. Теперь выбранные столбцы были объединены в один столбец.
Объединение столбцов слева направо в один с помощью Kutools для Excel
Если у вас установлен Kutools для Excel, вы можете использовать инструмент Преобразовать диапазон для выполнения этой задачи.
После установки Kutools для Excel выполните следующие действия:
1. Выберите столбцы, которые вы хотите объединить, нажмите Kutools > Диапазон > Преобразовать диапазон.
2. В Преобразовать диапазон диалоговом окне отметьте Диапазон в одну строку флажок, нажмите Ok.
3. В появившемся диалоговом окне выберите ячейку для размещения результата, нажмите OK.
Теперь столбцы были преобразованы в одну строку.
4. Выберите единственную строку, нажмите Ctrl + C , чтобы скопировать её, и выберите другую ячейку, в которой будет размещен стековый столбец. Щелкните правой кнопкой мыши и выберите Транспонировать (T) в контекстном меню.
Теперь единственная строка была транспонирована в стековый столбец.
Лучшие инструменты для повышения продуктивности в 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-дневная полнофункциональная пробная версия — без регистрации и кредитной карты
- Лучшее соотношение цены и качества — экономия по сравнению с покупкой отдельных надстроек