Як скласти стовпці зліва направо в один стовпець у 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, з більш ніж 300 зручні функції, полегшує вам роботу. |
після установки Kutools для Excel, виконайте наведені нижче дії.(Безкоштовно завантажте Kutools для Excel зараз!)
1. Виберіть стовпці, які потрібно скласти, клацніть Кутулс > Діапазон > Transform Range.
2 В Transform Range діалогове вікно, перевірте Range to single row прапорець, натисніть Ok.
3. У діалоговому вікні, що з’являється, виберіть клітинку для розміщення результату, натисніть OK.
Тепер стовпці перетворені в один рядок.
4. Виділіть один рядок, натисніть Ctrl + C щоб скопіювати його та виберіть іншу комірку, в яку буде розміщений стовпець стека, клацніть правою кнопкою миші, щоб вибрати Transpose(T) в контекстному меню.
Тепер один рядок транспонований у стовпець стека.
Діапазон транспонування
Найкращі інструменти продуктивності офісу
Покращуйте свої навички Excel за допомогою Kutools для Excel і відчуйте ефективність, як ніколи раніше. Kutools для Excel пропонує понад 300 додаткових функцій для підвищення продуктивності та економії часу. Натисніть тут, щоб отримати функцію, яка вам найбільше потрібна...
Вкладка Office Передає інтерфейс із вкладками в Office і значно полегшує вашу роботу
- Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
- Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
- Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!