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

or

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

в Excel функция Text to columns может разбивать ячейку на несколько столбцов на основе разделителя, но если есть какие-либо способы стекировать несколько столбцов в один столбец, как показано на скриншоте ниже? В этой статье я расскажу о некоторых трюках по быстрому решению этой задачи.
столбцы столбца документа в один 1

Уложите несколько столбцов в один с формулой

Уложите несколько столбцов в один с VBA

Уложите несколько столбцов в один с диапазоном преобразования хорошая идея3

Вкладка «Office» Включите редактирование и просмотр с вкладками в Office и упростите свою работу ...
Kutools для Excel переносит расширенные функции 300 в Excel и мгновенно повышает производительность
  • Super Formula Bar (легко редактировать несколько строк текста и формул); Чтение макета (легко читать и редактировать большое количество ячеек); Вставить в отфильтрованный диапазон ...
  • Объединить ячейки / строки / столбцы и хранение данных; Содержание сплит-клеток; Объединить дублирующиеся строки и сумму / среднее ... Предотвратить повторяющиеся клетки; Сравнить диапазоны ...
  • Выберите Дублировать или Уникальные строки; Выберите пустые строки (все ячейки пусты); Супер найти и нечеткая находка во многих книгах; Случайный выбор ...
  • Точное копирование нескольких ячеек без изменения ссылки на формулу; Автоматическое создание ссылок на несколько листов; Вставьте маркеры, флажки и многое другое ...
  • Любить и быстро вставлять формулы, диапазоны, графики и рисунки; Шифровать ячейки с помощью пароля; Создать список рассылки и отправлять электронные письма ...
  • Извлечь текст, Добавить текст, Удалить по позиции, Удалить пробел; Создание и печать промежуточных итогов подкачки; Преобразование содержимого ячеек и комментариев ...
  • Суперфильтр (сохранение и применение схем фильтрации к другим листам); Расширенный Сортировать по месяцу / неделе / ​​дню, частоте и многому другому; Специальный фильтр жирным шрифтом, курсив ...
  • Объединить рабочие тетради и рабочие листы; Объединение таблиц на основе ключевых столбцов; Разбить данные на несколько листов; Пакетное конвертирование xls, xlsx и PDF ...
  • Работает с Office 2007-2019 и 365 и поддерживает все языки. Это легко развернуть в вашей компании. Полнофункциональная 60-дневная бесплатная пробная версия.

Уложите несколько столбцов в один с формулой


1. Выберите диапазон, который вы хотите уложить, и перейдите к Имя Box чтобы присвоить этому диапазону имя и нажмите вводить ключ. Смотрите скриншот:
столбцы столбца документа в один 2

2. Затем выберите пустую ячейку, в которую вы хотите поместить результаты, введите эту формулу =INDEX(MyData,1+INT((ROW(A1)-1)/COLUMNS(MyData)),MOD(ROW(A1)-1+COLUMNS(MyData),COLUMNS(MyData))+1), Нажмите Enter и затяните дескриптор заполнения до появления ошибки. Смотрите скриншот:
столбцы столбца документа в один 3

В формуле MyData - это имя диапазона, указанное на шаге 1.

Уложите несколько столбцов в один с VBA

Вот код VBA, который может вам помочь.

1. Нажмите Alt + F11 клавиш для отображения Microsoft Visual Basic для приложений окна.

2. Нажмите Вставить > модуль, вставьте под кодом код модуль.

VBA: столбцы стека к одному

Sub ConvertRangeToColumn()
'UpdatebyExtendoffice
Dim Range1 As Range, Range2 As Range, Rng As Range
Dim rowIndex As Integer
xTitleId = "KutoolsforExcel"
Set Range1 = Application.Selection
Set Range1 = Application.InputBox("Source Ranges:", xTitleId, Range1.Address, Type:=8)
Set Range2 = Application.InputBox("Convert to (single cell):", xTitleId, Type:=8)
rowIndex = 0
Application.ScreenUpdating = False
For Each Rng In Range1.Rows
    Rng.Copy
    Range2.Offset(rowIndex, 0).PasteSpecial Paste:=xlPasteAll, Transpose:=True
    rowIndex = rowIndex + Rng.Columns.Count
Next
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub

столбцы столбца документа в один 4

3. Нажмите F5 для запуска кода, открывается диалоговое окно для выбора исходных данных и нажмите OK, чтобы выбрать ячейку для размещения результатов. Смотрите скриншот:
столбцы столбца документа в один 5

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


Уложите несколько столбцов в один с диапазоном преобразования

Применять Kutools for ExcelАвтора Диапазон преобразования утилита также может помочь вам быстро решить эту проблему.

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

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

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

1. Выберите данные столбцов, которые вы используете, и нажмите Kutools > Диапазон > Диапазон преобразования, Смотрите скриншот:
столбцы столбца документа в один 8

2. в Диапазон преобразования диалог, проверка Диапазон до одного столбца и нажмите Ok, затем выберите ячейку для размещения результатов. Смотрите скриншот:
столбцы столбца документа в один 9

3. Нажмите OK, Теперь столбцы укладываются в один столбец.
столбцы столбца документа в один 1


  • Супер Формула Бар (легко редактировать несколько строк текста и формул); Макет чтения (легко читать и редактировать большое количество ячеек); Вставить в отфильтрованный диапазон...
  • Объединить ячейки / строки / столбцы и хранение данных; Содержание сплит-клеток; Объедините дублирующиеся строки и сумму / среднее... предотвратить повторяющиеся клетки; Сравнить диапазоны...
  • Выберите Дубликат или Уникальный Ряды; Выберите пустые строки (все ячейки пусты); Супер найти и нечеткая находка во многих рабочих тетрадях; Случайный выбор ...
  • Точная копия Несколько ячеек без изменения формулы ссылки; Автоматическое создание ссылок на несколько листов; Вставить пули, Флажки и многое другое ...
  • Любимые и быстро вставляемые формулы, Диапазоны, графики и рисунки; Шифрование ячеек с паролем; Создать список рассылки и отправлять электронные письма ...
  • Извлечение текстаДобавить текст, Удалить по позиции, Удалить пространство; Создание и печать промежуточных итогов подкачки; Преобразование содержимого ячеек и комментариев...
  • Суперфильтр (сохранить и применить схемы фильтров к другим листам); Расширенный поиск по месяцам / неделям / дням, частоте и более; Специальный фильтр жирным шрифтом, курсивом ...
  • Объединить рабочие тетради и рабочие листы; Объединение таблиц на основе ключевых столбцов; Разделить данные на несколько листов; Пакетное преобразование xls, xlsx и PDF...
  • Работает с Office 2007-2019 и 365 и поддерживает все языки. Это легко развернуть в вашей компании. Полнофункциональная 60-дневная бесплатная пробная версия.
вкладка kte 201905
  • Включить редактирование и чтение с вкладками в 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.
  • To post as a guest, your comment is unpublished.
    Susan Millard · 2 months ago
    I am using the Stack Multiple Columns Into One With Formula method and it worked perfectly, but I want it to maintain the formatting, i.e. some columns were bold & 1 was hyperlinks. Is there something that can be added to the formula to make this happen?
    • To post as a guest, your comment is unpublished.
      Sunny · 15 days ago
      Hi, Susan Milard, their formula can meet your need, you can use the VBA or the Transpose Range tool,both of them can satisfy you.
  • To post as a guest, your comment is unpublished.
    Tom · 5 months ago
    I am attempting to do this over a very large table (100s of columns and rows that are all linked to formulas. My excel will keep loading and then ultimately go to not responding. Is there a way to get past this? Thanks
    • To post as a guest, your comment is unpublished.
      Sunny · 3 months ago
      Hi, Tom, which method you apply does not work? The method three, transform range tool must can work.
  • To post as a guest, your comment is unpublished.
    Chris Blackburn · 6 months ago
    Hi, I'm looking to go a step further with this. I've used Stack Multiple Columns Into One With VBA, code and this works. I've used Tables as the source with this code and I get the list. Is there a way to automate running the Macro? So that when I add a new entry into the table the Macro automatically runs and keeps the resulting list up to date?
    • To post as a guest, your comment is unpublished.
      Sunny · 5 months ago
      Hi, Chris Blackburn, sorry I am affraid I cannot find a code can automatically run to update the result, maybe someone else can.
  • To post as a guest, your comment is unpublished.
    tom · 11 months ago
    Hi, is there a way to make the formula ignore any blank cells your data may contain?


    =INDEX(MyData,1+INT((ROW(A1)-1)/COLUMNS(MyData)),MOD(ROW(A1)-1+COLUMNS(MyData),COLUMNS(MyData))+1),


    I am using a helper sheet to create a contiguous list for a data validation drop down list. Thanks in advance.
    • To post as a guest, your comment is unpublished.
      Sunny · 10 months ago
      Sorry, I am not good at formula, maybe you can try to use Kutools for Excel's Select Nonblank cells utility to select the unempty cells firstly, and copy and paste them to another location, then use above methods.
  • To post as a guest, your comment is unpublished.
    Gokce · 11 months ago
    I have data which ends at the same row but multiple columns in which I want them to be stacked in a sequence where B column data will go under A column data where the data ends for A column and C column data to go under A column data where the data from B column ends and so on. This way I will have data from multiple columns to fit into one column. How can I do that?
  • To post as a guest, your comment is unpublished.
    badusha · 1 years ago
    Hello , is there any to convert above data to following form ??
    1
    A
    Lilly
    2
    B
    Judy
    ...
  • To post as a guest, your comment is unpublished.
    John Smith · 1 years ago
    this is just a clickbait to have you download a paying software
    • To post as a guest, your comment is unpublished.
      Sunny · 1 years ago
      The first download will be free to use in 60 days, after that, you can decide to pay for use or not.
  • To post as a guest, your comment is unpublished.
    Jon · 1 years ago
    you are stacking multiple rows into one column, not multiple columns... not what I was looking for.
    • To post as a guest, your comment is unpublished.
    • To post as a guest, your comment is unpublished.
      Phil · 1 years ago
      To stack columns A-P that are in blocks of 6 rows put this formulae in cell R1 and fill down

      =OFFSET($A$1,MOD(ROW()-ROW($R$1),ROWS($A$1:$A$6)),TRUNC((ROW()-ROW($R$1))/ROWS($A$1:$A$6)),1,1)
      • To post as a guest, your comment is unpublished.
        Miguel · 1 years ago
        Cancel that last one, missed the truncate step.
      • To post as a guest, your comment is unpublished.
        Miguel · 1 years ago
        Dang, now it doesn’t work! Tried on a new tab but it’s now back to stacking column contents in one in stead of originally row content.
      • To post as a guest, your comment is unpublished.
        Miguel · 1 years ago
        Thank you for posting this solution! In case anyone needs a space after/at the end of each block, just add an additional count to the rows, so going by the example above, instead of $A$6, write $A$7. It inputs a zero ‘0’ to the row but you can easily ‘Use selection for Find’ in Sublime to edit them out. If you know the solution which doesn’t add a zero, please post!?
        • To post as a guest, your comment is unpublished.
          Timkil · 9 months ago
          to output a blank cell instead of 0, do an IF function>0, TRUE-->output the original cell content, FALSE-->output ""

          =if(OFFSET($A$1,MOD(ROW()-ROW($R$1),ROWS($A$1:$A$6)),TRUNC((ROW()-ROW($R$1))/ROWS($A$1:$A$6)),1,1)>0,OFFSET($A$1,MOD(ROW()-ROW($R$1),ROWS($A$1:$A$6)),TRUNC((ROW()-ROW($R$1))/ROWS($A$1:$A$6)),1,1),"")
      • To post as a guest, your comment is unpublished.
        Fish · 1 years ago
        This works perfect, thanks