Як скласти стовпці зліва направо в один стовпець у Excel?

Припустимо, що є кілька стовпців, завдання полягає в тому, щоб скласти стовпці зліва направо в один стовпець, як показано на знімку екрана нижче. За винятком ручного переміщення стовпців по одному, чи є якісь хитрощі щодо вирішення цього питання в Excel?

Складайте стовпці зліва направо в один стовпець за допомогою VBA

Складайте стовпці зліва направо в один стовпець за допомогою Kutools для Excel

Складайте стовпці зліва направо в один стовпець за допомогою VBA

В Excel немає вбудованої функції, яка може впоратися з цією роботою, але код VBA може вам допомогти.

1. прес Alt + F11 клавіші, потім у Microsoft Visual Basic для додатків вікна, натисніть Insert > Модулі щоб створити новий порожній модуль.

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 встановлений в Excel, ви можете використовувати Transform Range утиліта для обробки цієї роботи.

після установки Kutools для Excel, будь-ласка, виконайте наведені нижче дії:（Безкоштовно завантажте Kutools для Excel зараз!)

1. Виберіть стовпці, які потрібно скласти, клацніть Кутулс > Діапазон > Transform Range.

2 В Transform Range діалогове вікно, перевірте Range to single row прапорець, натисніть Ok.

3. У діалоговому вікні, що з’являється, виберіть клітинку для розміщення результату, натисніть OK.

Тепер стовпці перетворені в один рядок.

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

Тепер один рядок транспонований у стовпець стека.

  Діапазон транспонування

---

Найкращі інструменти для підвищення продуктивності офісу

Kutools для Excel вирішує більшість ваших проблем і збільшує продуктивність на 80%

• Повторне використання: Швидко вставте складні формули, діаграми і все, що ви використовували раніше; Шифрувати комірки з паролем; Створити список розсилки та надсилати електронні листи ...
• Супер формула бар (легко редагувати кілька рядків тексту та формули); Макет читання (легко читати та редагувати велику кількість комірок); Вставте у відфільтрований діапазон...
• Об’єднати клітинки / рядки / стовпці без втрати даних; Вміст розділених комірок; Об'єднати повторювані рядки / стовпці... Запобігання дублюючим клітинам; Порівняйте діапазони...
• Виберіть Повторюваний або Унікальний Рядки; Виберіть Пусті рядки (усі клітинки порожні); Супер знахідка та нечітка знахідка у багатьох робочих зошитах; Випадковий вибір ...
• Точна копія Кілька клітинок без зміни посилання на формулу; Автоматичне створення посилань на кілька аркушів; Вставте кулі, Прапорці та інше ...
• Витяг тексту, Додати текст, Видалити за позицією, Видаліть пробіл; Створення та друк проміжних підсумків підкачки; Перетворення вмісту комірок та коментарів...
• Супер фільтр (зберегти та застосувати схеми фільтрів до інших аркушів); Розширене сортування за місяцем / тижнем / днем, частотою та іншим; Спеціальний фільтр жирним, курсивом ...
• Поєднайте робочі зошити та робочі аркуші; Об’єднати таблиці на основі ключових стовпців; Розділіть дані на кілька аркушів; Пакетне перетворення xls, xlsx та PDF...
• Понад 300 потужних функцій. Підтримує Office / Excel 2007-2021 і 365. Підтримує всі мови. Легке розгортання на вашому підприємстві чи в організації. 30-денна безкоштовна пробна версія повних функцій. 60-денна гарантія повернення грошей.

Детальніше ... Завантажити безкоштовно... Придбати ... 

---

Вкладка Office забезпечує інтерфейс з вкладками для Office і значно спрощує вашу роботу

• Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
• Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
• Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!

Детальніше ... Завантажити безкоштовно... Придбати ...