Як перенести стовпці в рядки та вставити нові рядки для заповнення даних у Excel?
У цій статті я представляю код VBA для транспонування стовпців у рядки та вставки нових рядків для заповнення даних, як показано на знімку екрана нижче, якщо ви зацікавлені в цій операції, будь ласка, перейдіть нижче для отримання детальної інформації.
Транспонуйте та вставте рядки за допомогою VBA
Транспонуйте та вставте рядки за допомогою VBA
Немає прямого способу транспонувати діапазон і вставити рядки для заповнення однакових даних, але тут я можу ввести код VBA для швидкого вирішення цього завдання.
1. прес Alt + F11 клавіші, щоб відкрити Microsoft Visual Basic для додатків вікна.
2. клацання Insert > Модуліі вставте нижче коду 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. клацання OK. І вибраний діапазон був перетворений, як показано на знімку екрана нижче.
Найкращі інструменти продуктивності офісу
Покращуйте свої навички Excel за допомогою Kutools для Excel і відчуйте ефективність, як ніколи раніше. Kutools для Excel пропонує понад 300 додаткових функцій для підвищення продуктивності та економії часу. Натисніть тут, щоб отримати функцію, яка вам найбільше потрібна...
Вкладка Office Передає інтерфейс із вкладками в Office і значно полегшує вашу роботу
- Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
- Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
- Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!