Как транспонировать столбцы в строки и вставить новые строки для размещения данных в Excel?
В этой статье я представляю код VBA для транспонирования столбцов в строки и автоматической вставки новых строк с заполнением данных, как показано на снимке экрана ниже. Если эта операция вам интересна — читайте подробности далее.
Транспонирование и Вставить строки с помощью VBA
Транспонирование и Вставить строки с помощью VBA
Прямого способа транспонировать диапазон и вставить строки для заполнения одинаковыми данными вниз нет, но я могу предложить вам код VBA, который быстро справится с этой задачей.
1. Нажмите Alt + F11, чтобы открыть окно Microsoft Visual Basic для приложений.
2. Выберите Вставка > Модуль и вставьте приведённый ниже код VBA в окно модуля. См. снимок экрана:
VBA: транспонирование и вставка строк.
Sub TransposeInsertRows()
'UpdatebyExtendoffice20161125
Dim xRg As Range
Dim i As Long, j As Long, k As Long
Dim x As Long, y As Long
Set xRg = Application.InputBox _
(Prompt:="Range Selection...", _
Title:="Kutools For Excel", Type:=8)
Application.ScreenUpdating = False
x = xRg(1, 1).Column + 2
y = xRg(1, xRg.Columns.Count).Column
For i = xRg(xRg.Rows.Count, 1).Row To xRg(1, 1).Row Step -1
If Cells(i, x) <> "" And Cells(i, x + 1) <> "" Then
k = Cells(i, x - 2).End(xlToRight).Column
If k > y Then k = y
For j = k To x + 1 Step -1
Cells(i + 1, 1).EntireRow.Insert
With Cells(i + 1, x - 2)
.Value = .Offset(-1, 0)
.Offset(0, 1) = .Offset(-1, 1)
.Offset(0, 2) = Cells(i, j)
End With
Cells(i, j).ClearContents
Next j
End If
Next i
Application.ScreenUpdating = True
End Sub
3. Нажмите F5, чтобы выполнить код. В появившемся диалоговом окне выберите диапазон данных для транспонирования и укажите строки для вставки. См. снимок экрана:
4. Нажмите ОК. Выбранный диапазон будет преобразован, как показано на снимке экрана ниже.
Лучшие инструменты повышения продуктивности в Office
Раскройте весь потенциал Excel с помощью Kutools для Excel и ощутите эффективность как никогда раньше.Kutools для Excel предлагает более 300 расширенных функций для повышения продуктивности и Экономия времени.Нажмите здесь, чтобы получить нужную Вам функцию…
Office Tab добавляет в Office вкладки и значительно упрощает Вашу работу
- Включите редактирование и чтение во вкладках в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Открывайте и создавайте несколько документов во вкладках одного окна — вместо того чтобы использовать отдельные окна.
- Повышает вашу продуктивность на 50 % и экономит сотни кликов мышью каждый день!
Все надстройки Kutools — один установщик
Kutools for Office — набор надстроек для Excel, Word, Outlook и PowerPoint, а также Office Tab Pro, идеально подходящий командам, работающим с разными приложениями Office.
- Единый комплект— надстройки для Excel, Word, Outlook и PowerPoint + Office Tab Pro
- Один установщик, одна лицензия— настройка занимает считанные минуты (готово для MSI)
- Лучше работать вместе— оптимизированная продуктивность во всех приложениях Office
- 30-дневная полнофункциональная пробная версия— без регистрации и кредитной карты
- Лучшее соотношение цены и качества— экономия по сравнению с покупкой отдельных надстроек