Hoe transponeert u kolommen naar rijen en voegt u nieuwe rijen in om gegevens naar beneden te vullen in Excel?
In dit artikel introduceer ik een VBA-code waarmee u kolommen naar rijen kunt transponeren en automatisch nieuwe rijen invoegt om gegevens naar beneden te vullen, zoals te zien is op de onderstaande schermafbeelding. Bent u geïnteresseerd in deze handige bewerking? Lees dan verder voor alle details.
Transponeren en Rijen invoegen met VBA
Transponeren en Rijen invoegen met VBA
Er is geen directe manier om een bereik te transponeren en rijen in te voegen om dezelfde gegevens naar beneden te vullen, maar met een eenvoudige VBA-code lost u deze taak razendsnel op.
1. Druk op Alt + F11 om het venster Microsoft Visual Basic for Applications te openen.
2. Klik op Invoegen > Module en plak de onderstaande VBA-code in het modulevenster. Zie schermafbeelding:
VBA: Transponeren en rijen invoegen.
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 om de code uit te voeren en selecteer vervolgens in het verschijnende dialoogvenster het gegevensbereik dat u wilt transponeren en waarvoor u rijen wilt invoegen. Zie schermafbeelding:
4. Klik op OK. Het geselecteerde bereik is nu geconverteerd, zoals in de onderstaande schermafbeelding wordt weergegeven.
Beste Office-productiviteitshulpmiddelen
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie zoals nooit tevoren.Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en Tijd besparen.Klik hier om de functie te krijgen die u het meest nodig heeft...
Office Tab brengt een tabbladinterface naar Office en maakt uw werk veel eenvoudiger
- Schakel tabbladbewerking en -lezen in voor Word, Excel, PowerPoint, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten aan in nieuwe tabbladen binnen hetzelfde venster, in plaats van in afzonderlijke vensters.
- Verhoogt uw productiviteit met 50 % en bespaart u dagelijks honderden muisklikken!
Alle Kutools-add-ins in één installatieprogramma.
Kutools for Office bundelt add-ins voor Excel, Word, Outlook en PowerPoint, plus Office Tab Pro—ideaal voor teams die met meerdere Office-apps werken.
- Alles-in-één suite— add-ins voor Excel, Word, Outlook & PowerPoint plus Office Tab Pro
- Één installatieprogramma, één licentie— binnen enkele minuten klaar (MSI-geschikt)
- Werkt beter samen— gestroomlijnde productiviteit in alle Office-apps
- 30 dagen volledig functionele proefversie— geen registratie, geen creditcard
- Beste prijs-kwaliteitverhouding— bespaar ten opzichte van het afzonderlijk kopen van add-ins