Hogyan lehet az oszlopokat sorokba átültetni és új sorokat beilleszteni az adatok kitöltésére az Excelben?
Ebben a cikkben bemutatok egy VBA kódot az oszlopok sorokba történő átültetéséhez, és új sorok beszúrásához az adatok kitöltéséhez, az alábbi képernyőképen látható módon, ha érdekli ez a művelet, kérjük, látogasson el az alábbiakra további részletekért.
Átültetni és beilleszteni a sorokat a VBA segítségével
Átültetni és beilleszteni a sorokat a VBA segítségével
Nincs közvetlen módszer a tartomány átültetésére és sorok beszúrására ugyanazok az adatok kitöltése érdekében, de itt bemutathatok egy VBA kódot a feladat gyors megoldására.
1. nyomja meg Alt + F11 gombokat a megnyitáshoz Microsoft Visual Basic for Applications ablak.
2. kettyenés betétlap > Modulok, és illessze be a VBA kód alá a Modul ablakba. Lásd a képernyőképet:
VBA: Sorok átültetése és beszúrása.
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. nyomja meg F5 gombot a kód futtatásához, majd válassza ki az átültetni kívánt adattartományt, és helyezzen be sorokat a felbukkanó párbeszédpanelen. Lásd a képernyőképet:
4. kettyenés OK. És a kiválasztott tartomány átalakításra került az alábbi képernyőképen.
A legjobb irodai hatékonyságnövelő eszközök
Töltsd fel Excel-készségeidet a Kutools for Excel segítségével, és tapasztald meg a még soha nem látott hatékonyságot. A Kutools for Excel több mint 300 speciális funkciót kínál a termelékenység fokozásához és az időmegtakarításhoz. Kattintson ide, hogy megszerezze a leginkább szükséges funkciót...
Az Office lap füles felületet hoz az Office-ba, és sokkal könnyebbé teszi a munkáját
- Füles szerkesztés és olvasás engedélyezése Wordben, Excelben és PowerPointban, Publisher, Access, Visio és Project.
- Több dokumentum megnyitása és létrehozása ugyanazon ablak új lapjain, mint új ablakokban.
- 50% -kal növeli a termelékenységet, és naponta több száz kattintással csökkenti az egér kattintását!