Note: The other languages of the website are Google-translated. Back to English

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

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

Складайте стовпці зліва направо в один стовпець за допомогою 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

стовпчик стека документів зліва направо 2

3. прес F5 клавіші для запуску коду, вискакує діалогове вікно для вибору стовпців, які ви будете складати в один.
стовпчик стека документів зліва направо 3

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

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


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

Якщо у вас є Kutools для Excel встановлений в Excel, ви можете використовувати Transform Range утиліта для обробки цієї роботи.

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

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

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

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

Тепер стовпці перетворені в один рядок.
стовпчик стека документів зліва направо 9

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

Тепер один рядок транспонований у стовпець стека.
стовпець стека документів зліва направо 11


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

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

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

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

  • Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
  • Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
  • Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!
дно офісної таблиці
Коментарі (3)
Поки немає оцінок. Оцініть першим!
Цей коментар був мінімізований модератором на сайті
Обман Word, щоб зробити те ж саме:
- скопіюйте всі ваші рядки та рядки в Excel
- вставити без у документ Word
- ctrl + h (знайти та замінити)
- скопіювати пробіл між двома рядками
- вставити в рядок пошуку
- замінити табуляціями на розриви рядків "^l"

Усі ваші клітинки тепер у стовпцях у вашому документі Word.
Скопіюйте, вставте їх у Excel: готово!
Цей коментар був мінімізований модератором на сайті
Я буду вічно вдячний тобі. Дуже дякую!
Цей коментар був мінімізований модератором на сайті
Хтось знає, як замінити/твердо закодувати стовпці (не відкривати вікно повідомлення для вибору)? Отже, встановіть для XSRg щось на кшталт: Set xSRg = Range("A1").CurrentRegion.Select(що не працює, оскільки невідповідність типу) дякую
There are no comments posted here yet
Залишайте свої коментарі
Публікація як гість
×
Оцініть цю публікацію:
0   Персонажі
Рекомендовані місця

Слідуй за нами

Copyright © 2009 - WWW.extendoffice.com. | Всі права захищені. На основі ExtendOffice. | Карта сайту
Microsoft та логотип Office є товарними знаками або зареєстрованими товарними знаками Microsoft Corporation у США та / або інших країнах.
Захищений Sectigo SSL