Как перенести каждые 5 или n строк из одного столбца в несколько столбцов?
Предположим, у вас есть длинные данные в столбце A, и теперь вы хотите транспонировать каждые 5 строк из столбца A в несколько столбцов, например транспонировать A1: A5 в C6: G6, A6: A10 в C7: G7 и т. Д. показан следующий снимок экрана. Как вы могли бы справиться с этой задачей без многократного копирования и вставки в Excel?
Перенести каждые 5 или n строк из одного столбца в несколько столбцов с формулой
Транспонировать каждые 5 или n строк из одного столбца в несколько столбцов с кодом VBA
Перенести каждые 5 или n строк из одного столбца в несколько столбцов с помощью Kutools for Excel
Перенести каждые 5 или n строк из одного столбца в несколько столбцов с формулой
В Excel вы можете применить следующую формулу для транспонирования каждых n строк из одного столбца в несколько столбцов, сделайте следующее:
1. Введите следующую формулу в пустую ячейку, в которую вы хотите поместить результат, например C1, = ИНДЕКС ($ A: $ A; СТРОКА (A1) * 5-5 + КОЛОНКА (A1)), см. снимок экрана:
Внимание: В приведенной выше формуле A: это ссылка на столбец, которую вы хотите транспонировать, и A1 первая ячейка используемого столбца, число 5 указывает количество столбцов, в которых будут располагаться ваши данные, вы можете изменить их по своему усмотрению. И первая ячейка списка должна располагаться в первой строке рабочего листа.
2. Затем перетащите маркер заливки вправо к пяти ячейкам и продолжайте перетаскивать маркер заливки вниз в диапазон ячеек, пока не отобразится 0, см. Снимок экрана:
Преобразуйте каждые 5 или n строк из одного столбца в несколько столбцов:
Чтобы преобразовать каждые 5 или n строк из одного столбца в несколько столбцов, Kutools for Excel's Диапазон преобразования Утилита поможет вам решить эту задачу как можно быстрее. Это также может помочь вам перенести диапазон данных в одну строку или столбец. Нажмите, чтобы загрузить Kutools for Excel! Kutools for Excel: с более чем 300 удобными надстройками Excel, которые можно попробовать бесплатно без ограничений в течение 30 дней. Загрузите и бесплатную пробную версию прямо сейчас! |
Транспонировать каждые 5 или n строк из одного столбца в несколько столбцов с кодом VBA
Если вы не можете правильно применить формулу, следующий код VBA также может вам помочь.
1. Удерживайте ALT + F11 , чтобы открыть Microsoft Visual Basic для приложений окно.
2. Нажмите Вставить > Модулии вставьте следующий код в Модули Окно.
Код VBA: транспонировать каждые 5 или n строк из одного столбца в несколько столбцов:
Public Sub TransposeData()
'updateby Extendoffice
Dim xLRow As Long
Dim xNRow As Long
Dim i As Long
Dim xUpdate As Boolean
Dim xRg As Range
Dim xOutRg As Range
Dim xTxt As String
On Error Resume Next
xTxt = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Please select data range(only one column):", "Kutools for Excel", xTxt, , , , , 8)
Set xRg = Application.Intersect(xRg, xRg.Worksheet.UsedRange)
If xRg Is Nothing Then Exit Sub
If (xRg.Columns.Count > 1) Or _
(xRg.Areas.Count > 1) Then
MsgBox "the used range only contain one column", , "Kutools for Excel"
Exit Sub
End If
Set xOutRg = Application.InputBox("please select output range(specify one cell):", "Kutools for Excel", xTxt, , , , , 8)
If xOutRg Is Nothing Then Exit Sub
Set xOutRg = xOutRg.Range(1)
xUpdate = Application.ScreenUpdating
Application.ScreenUpdating = False
xLRow = xRg.Rows.Count
For i = 1 To xLRow Step 5
xRg.Cells(i).Resize(5).Copy
xOutRg.Offset(xNRow, 0).PasteSpecial Paste:=xlPasteAll, Transpose:=True
xNRow = xNRow + 1
Next
Application.ScreenUpdating = xUpdate
End Sub
3. После вставки кода нажмите F5 нажмите клавишу, чтобы запустить его, и появится диалоговое окно, напоминающее вам о выборе столбца, который вы хотите транспонировать, см. снимок экрана:
4. Затем нажмите OKи выберите одну ячейку, в которую вы хотите поместить результат, в другое всплывающее окно, см. снимок экрана:
5, И нажмите OK, данные в столбце были преобразованы в пять столбцов, которые вам нужны, см. снимок экрана:
Внимание: В приведенном выше коде вы можете изменить номер 5 на другой номер, который вам нужен.
Перенести каждые 5 или n строк из одного столбца в несколько столбцов с помощью Kutools for Excel
Если вы только что Kutools for Excel, С его Диапазон преобразования утилиту, вы можете быстро перенести один столбец или строку на несколько столбцов и строк.
Kutools for Excel : с более чем 300 удобными надстройками Excel, бесплатно и без ограничений в течение 30 дней. |
После установки Kutools for Excel, пожалуйста, сделайте следующее:
1. Выберите данные в столбце, а затем щелкните Кутулс > Диапазон > Диапазон преобразования, см. снимок экрана:
2. В Диапазон преобразования диалоговое окно, выберите Один столбец для диапазона вариант под Тип трансформации, а затем проверьте Фиксированная стоимость под Строк на запись, затем укажите количество столбцов, которые вы хотите перенести в Фиксированная стоимость box, см. снимок экрана:
3, Затем нажмите Ok кнопку, в появившемся окне выберите ячейку для вывода результата, см. снимок экрана:
4. Затем нажмите OK , и данные вашего столбца были перенесены каждые 5 строк, как показано на следующем снимке экрана:
Загрузите бесплатную пробную версию Kutools for Excel прямо сейчас!
Демо: транспонируйте каждые 5 или n строк из одного столбца в несколько столбцов с помощью Kutools for Excel
Лучшие инструменты для офисной работы
Улучшите свои навыки работы с Excel с помощью Kutools for Excel и почувствуйте эффективность, как никогда раньше. Kutools for Excel предлагает более 300 расширенных функций для повышения производительности и экономии времени. Нажмите здесь, чтобы получить функцию, которая вам нужна больше всего...
Вкладка Office: интерфейс с вкладками в Office и упрощение работы
- Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
- Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
- Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!