Jak transponovat sloupce do řádků a vložit nové řádky k vyplnění dat v aplikaci Excel?
V tomto článku představuji kód VBA k transponování sloupců do řádků a vložení nových řádků k vyplnění dat, jak je ukázáno níže, pokud máte zájem o tuto operaci, přejděte níže, kde najdete další podrobnosti.
Transponujte a vložte řádky pomocí VBA
Transponujte a vložte řádky pomocí VBA
Neexistuje žádný přímý způsob, jak transponovat rozsah a vložit řádky k vyplnění stejných dat, ale zde mohu zavést kód VBA pro rychlé vyřešení tohoto úkolu.
1. lis Alt + F11 klíče k otevření Microsoft Visual Basic pro aplikace okno.
2. cvaknutí Vložit > Modul, a vložte pod kód VBA do okna modulu. Viz snímek obrazovky:
VBA: Transponujte a vložte řádky.
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. lis F5 spusťte kód a poté vyberte rozsah dat, který chcete transponovat, a vložte řádky do rozbalovacího dialogu. Viz snímek obrazovky:
4. cvaknutí OK. A vybraný rozsah byl převeden, jak je uvedeno níže.
Nejlepší nástroje pro produktivitu v kanceláři
Rozšiřte své dovednosti Excel pomocí Kutools pro Excel a zažijte efektivitu jako nikdy předtím. Kutools for Excel nabízí více než 300 pokročilých funkcí pro zvýšení produktivity a úsporu času. Kliknutím sem získáte funkci, kterou nejvíce potřebujete...
Office Tab přináší do Office rozhraní s kartami a usnadňuje vám práci
- Povolte úpravy a čtení na kartách ve Wordu, Excelu, PowerPointu, Publisher, Access, Visio a Project.
- Otevřete a vytvořte více dokumentů na nových kartách ve stejném okně, nikoli v nových oknech.
- Zvyšuje vaši produktivitu o 50%a snižuje stovky kliknutí myší každý den!