Совет. Другие языки - Google-Translated. Вы можете посетить English версия этой ссылки.
Войти
x
or
x
x
Регистрация
x

or

Как складывать столбцы слева направо в один столбец в Excel?

Предположим, что существует несколько столбцов, задание состоит в том, чтобы стекировать столбцы слева направо в один столбец, как показано ниже. За исключением ручного перемещения столбцов один за другим, есть ли какие-либо трюки при решении этого вопроса в Excel?
столбцы стека документов слева направо 1

Столбы столбцов слева направо на один столбец с VBA

Столбы столбцов слева направо на один столбец с помощью Kutools for Excel


Столбы столбцов слева направо на один столбец с VBA

В Excel нет встроенной функции, которая может обрабатывать это задание, но код VBA может вам помочь.

1. Нажмите Alt + F11 , а затем в Microsoft Visual Basic для приложений окна, нажмите Вставить > модуль для создания нового пустого модуля.

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

столбцы стека документов слева направо 2

3. Нажмите F5 чтобы запустить код, появится диалоговое окно, в котором вы можете выбрать столбцы, которые вы будете складывать в один.
столбцы стека документов слева направо 3

4. Нажмите OK, выберите ячейку, чтобы поместить результат.
столбцы стека документов слева направо 4

5. Нажмите OK заканчивать. Теперь выбранные столбцы были уложены в один столбец.
столбцы стека документов слева направо 5


Столбы столбцов слева направо на один столбец с помощью Kutools for Excel

Если у вас есть Kutools for Excel установленных в Excel, вы можете использовать Transform Range утилита для выполнения этой задачи.

Kutools for Excel, с более чем 200 удобные функции, упрощают работу.

После установки Kutools для Excel, пожалуйста, сделайте следующее:(Скачать Kutools для Excel сейчас!)

1. Выберите столбцы, которые вы хотите уложить, нажмите Kutools > Transform Range.
столбцы стека документов слева направо 6

2. в Transform Range диалог, проверка Range to single row установите флажок, нажмите Ok.
столбцы стека документов слева направо 7

3. В диалоговом окне выбора выберите ячейку для размещения результата, нажмите OK.
столбцы стека документов слева направо 8

Теперь столбцы были преобразованы в одну строку.
столбцы стека документов слева направо 9

4. Выберите одну строку, нажмите Ctrl + C скопировать его и выбрать другую ячейку, которая поместит столбец стека, щелкните правой кнопкой мыши, чтобы выбрать Transpose(T) в контекстном меню.
столбцы стека документов слева направо 10

Теперь одна строка была перенесена в столбец стека.
Столбец doc стека слева направо 11


Просмотр вкладок и редактирование нескольких книг Excel / документов Word как Firefox, Chrome, Internet Исследуйте 10!

Возможно, вам знакомо просматривать несколько веб-страниц в Firefox / Chrome / IE и переключаться между ними, легко щелкая соответствующие вкладки. Здесь вкладка Office поддерживает аналогичную обработку, которая позволяет вам просматривать несколько книг Excel или документы Word в одном окне Excel или Word и легко переключаться между ними, нажимая их вкладки. Нажмите на бесплатную 45-дневную пробную версию Office Tab!

ot excel

Kutools для Excel - лучший инструмент для повышения производительности в офисе Повысьте производительность на 80%

  • Супер Формула Бар (легко редактировать несколько строк текста и формул); Макет чтения (легко читать и редактировать большое количество ячеек); Вставить в отфильтрованный диапазон...
  • Объединить ячейки / строки / столбцы и хранение данных; Содержание сплит-клеток; Объедините дублирующиеся строки и сумму / среднее... предотвратить повторяющиеся клетки; Сравнить диапазоны...
  • Выберите Дубликат или Уникальный Ряды; Выберите пустые строки (все ячейки пусты); Супер найти и нечеткая находка во многих рабочих тетрадях; Случайный выбор ...
  • Точная копия Несколько ячеек без изменения формулы ссылки; Автоматическое создание ссылок на несколько листов; Вставить пули, Флажки и многое другое ...
  • Любимые и быстро вставляемые формулы, Диапазоны, графики и рисунки; Шифрование ячеек с паролем; Создать список рассылки и отправлять электронные письма ...
  • Извлечение текстаДобавить текст, Удалить по позиции, Удалить пространство; Создание и печать промежуточных итогов подкачки; Преобразование содержимого ячеек и комментариев...
  • Суперфильтр (сохранить и применить схемы фильтров к другим листам); Расширенный поиск по месяцам / неделям / дням, частоте и более; Специальный фильтр жирным шрифтом, курсивом ...
  • Объединить рабочие тетради и рабочие листы; Объединение таблиц на основе ключевых столбцов; Разделить данные на несколько листов; Пакетное преобразование xls, xlsx и PDF...
  • Работает с Office 2007-2019 и 365 и поддерживает все языки. Это легко развернуть в вашей компании. Полнофункциональная 60-дневная бесплатная пробная версия.
вкладка kte 201905

Вкладка «Office» предоставляет интерфейс с вкладками для Office и упрощает работу

  • Включить редактирование и чтение с вкладками в Word, Excel, PowerPoint, Издатель, Доступ, Visio и Проект.
  • Открывайте и создавайте несколько документов в новых вкладках одного и того же окна, а не в новых окнах.
  • Увеличивает вашу производительность на 50% и уменьшает сотни щелчков мышью для вас каждый день!
нижняя часть офиса
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.