Hvordan transponeres kolonner til rækker og indsættes nye rækker for at udfylde data i Excel?
I denne artikel introducerer jeg en VBA-kode for at transponere kolonner til rækker og indsætte nye rækker for at udfylde data som vist nedenfor, hvis du er interesseret i denne operation, skal du gå til nedenfor for flere detaljer.
Transponer og indsæt rækker med VBA
Transponer og indsæt rækker med VBA
Der er ingen direkte måde at transponere et interval og indsætte rækker for at udfylde de samme data, men her kan jeg introducere en VBA-kode for hurtigt at løse denne opgave.
1. Trykke Alt + F11 taster for at åbne Microsoft Visual Basic til applikationer vindue.
2. klik indsatte > Moduler, og indsæt under VBA-koden i modulvinduet. Se skærmbillede:
VBA: Transponer og indsæt rækker.
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. Trykke F5 nøgle for at køre koden, og vælg derefter det dataområde, du vil transponere, og indsæt rækker i poppedialogen. Se skærmbillede:
4. klik OK. Og det valgte interval er konverteret som vist nedenstående skærmbillede.
Bedste kontorproduktivitetsværktøjer
Overlad dine Excel-færdigheder med Kutools til Excel, og oplev effektivitet som aldrig før. Kutools til Excel tilbyder over 300 avancerede funktioner for at øge produktiviteten og spare tid. Klik her for at få den funktion, du har mest brug for...
Fanen Office bringer en grænseflade til et kontor med Office, og gør dit arbejde meget lettere
- Aktiver redigering og læsning af faner i Word, Excel, PowerPoint, Publisher, Access, Visio og Project.
- Åbn og opret flere dokumenter i nye faner i det samme vindue snarere end i nye vinduer.
- Øger din produktivitet med 50 % og reducerer hundredvis af museklik for dig hver dag!