Hur transponerar jag kolumner till rader och infogar nya rader för att fylla i data i Excel?
I den här artikeln introducerar jag en VBA-kod för att transponera kolumner till rader och infoga nya rader för att fylla i data enligt nedanstående skärmdump, om du är intresserad av den här operationen, gå till nedan för mer information.
Transponera och infoga rader med VBA
Transponera och infoga rader med VBA
Det finns inget direkt sätt att transponera ett intervall och infoga rader för att fylla i samma data, men här kan jag införa en VBA-kod för att snabbt lösa denna uppgift.
1. Tryck Alt + F11 nycklar för att öppna Microsoft Visual Basic för applikationer fönster.
2. klick Insert > Modulernaoch klistra in nedanför VBA-koden i modulfönstret. Se skärmdump:
VBA: Transponera och infoga rader.
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. Tryck F5 för att köra koden och välj sedan det dataintervall du vill transponera och infoga rader i poppdialogen. Se skärmdump:
4. klick OK. Och det valda intervallet har konverterats enligt nedanstående skärmdump.
Bästa kontorsproduktivitetsverktyg
Uppgradera dina Excel-färdigheter med Kutools för Excel och upplev effektivitet som aldrig förr. Kutools för Excel erbjuder över 300 avancerade funktioner för att öka produktiviteten och spara tid. Klicka här för att få den funktion du behöver mest...
Fliken Office ger ett flikgränssnitt till Office och gör ditt arbete mycket enklare
- Aktivera flikredigering och läsning i Word, Excel, PowerPoint, Publisher, Access, Visio och Project.
- Öppna och skapa flera dokument i nya flikar i samma fönster, snarare än i nya fönster.
- Ökar din produktivitet med 50 % och minskar hundratals musklick för dig varje dag!