Hoe kolommen naar rijen te transponeren en nieuwe rijen in te voegen om gegevens in Excel in te vullen?
In dit artikel introduceer ik een VBA-code om kolommen naar rijen te transponeren en nieuwe rijen in te voegen om gegevens in te vullen zoals onderstaand screenshot, als je geïnteresseerd bent in deze bewerking, ga dan naar hieronder voor meer informatie.
Transponeer en voeg rijen in met VBA
Transponeer en voeg rijen in met VBA
Er is geen directe manier om een bereik te transponeren en rijen in te voegen om dezelfde gegevens in te vullen, maar hier kan ik een VBA-code introduceren om deze taak snel op te lossen.
1. druk op Alt + F11 sleutels om te openen Microsoft Visual Basic voor toepassingen venster.
2. klikken Invoegen > Moduleen plak onder VBA-code in het modulevenster. Zie screenshot:
VBA: transponeer en voeg rijen in.
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. druk op F5 toets om de code uit te voeren, en selecteer vervolgens het gegevensbereik dat u wilt transponeren en voeg rijen in het popping-dialoogvenster in. Zie screenshot:
4. klikken OK. En het geselecteerde bereik is geconverteerd zoals hieronder afgebeeld.
Beste Office-productiviteitstools
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie als nooit tevoren. Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en tijd te besparen. Klik hier om de functie te krijgen die u het meest nodig heeft...
Office-tabblad Brengt een interface met tabbladen naar Office en maakt uw werk veel gemakkelijker
- Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster in plaats van in nieuwe vensters.
- Verhoogt uw productiviteit met 50% en vermindert honderden muisklikken voor u elke dag!