Hogyan illesszünk be automatikusan sort az Excel cellasejtje alapján?
Helyezze be az alábbi sort a cella értéke alapján a VBA segítségével
Szúrja be a fenti sort a cellaérték alapján a Kutools for Excel segítségével
Helyezze be az alábbi sort a cella értéke alapján a VBA segítségével
A VBA futtatásával a cellaérték alapján történő sor beszúrásához tegye a következőket:
1. nyomja meg Alt + F11 gombok egyszerre, és a Microsoft Visual Basic for Applications kiugrik az ablak.
2. kettyenés betétlap > Modulok, majd illessze be a VBA kód alá a felbukkanáshoz Modulok ablak.
VBA: Helyezzen be egy sort a cellaérték alapján.
Sub BlankLine()
'Updateby20150203
Dim Rng As Range
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type: = 8)
Set WorkRng = WorkRng.Columns(1)
xLastRow = WorkRng.Rows.Count
Application.ScreenUpdating = False
For xRowIndex = xLastRow To 1 Step - 1
Set Rng = WorkRng.Range("A" & xRowIndex)
If Rng.Value = "0" Then
Rng.Offset(1, 0).EntireRow.Insert Shift: = xlDown
End If
Next
Application.ScreenUpdating = True
End Sub
3. kettyenés F5 vagy a futás gombra, megjelenik egy párbeszédpanel, és válassza ki az oszlopot, amely nullát tartalmaz. Lásd a képernyőképet:
4. kettyenés OK. Ezután üres sorok kerülnek be nulla érték alá.
típus:
1. Ha más érték alapján szeretne beilleszteni sorokat, módosíthatja 0 a VBA által kívánt értékre: Ha Rng.Value = "0" Akkor.
2. Ha nulla vagy más érték fölé szeretne beilleszteni sorokat, használhatja az alábbi vba kódot.
VBA: Sor beillesztése nulla érték fölé:
Sub BlankLine()
'Updateby20150203
Dim Rng As Range
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type: = 8)
Set WorkRng = WorkRng.Columns(1)
xLastRow = WorkRng.Rows.Count
Application.ScreenUpdating = False
For xRowIndex = xLastRow To 1 Step - 1
Set Rng = WorkRng.Range("A" & xRowIndex)
If Rng.Value = "0" Then
Rng.EntireRow.Insert Shift: = xlDown
End If
Next
Application.ScreenUpdating = True
End Sub
Szúrja be a fenti sort a cellaérték alapján a Kutools for Excel segítségével
Ha nem ismeri a VBA-t, megpróbálhatja Kutools az Excel számára's Válassza a Specifikus cellák lehetőséget segédprogramot, majd szúrja be a sorokat fent.
Kutools az Excel számára, Több mint 300 a praktikus funkciók megkönnyítik a munkáját. | ||
Telepítése után Kutools for Excel, kérjük, tegye a következőket:(Töltse le ingyen a Kutools for Excel programot most!)
1. Válassza ki azt a listát, amelyből meg szeretné találni az adott cellákat, majd kattintson a gombra Kutools > választ > Válassza a Specifikus cellák lehetőséget. Lásd a képernyőképet:
2. A felbukkanó párbeszédpanelen ellenőrizze Teljes sor opciót, majd lépjen a kiválasztáshoz Egyenlő ból ből Konkrét típus listát, majd írja be a megfelelő szövegmezőbe a keresni kívánt értéket. Lásd a képernyőképet:
3. kettyenés Ok, és megjelenik egy párbeszédpanel, amely emlékeztet a kiválasztott sorok számára, csak zárja be.
4. Helyezze a kurzort egy kiválasztott sorhoz, és kattintson a jobb gombbal a kiválasztáshoz betétlap a helyi menüből. Lásd a képernyőképet:
Most a sorok beillesztésre kerülnek egy adott érték alapján.
Sorok beszúrása fölé a cellaérték alapján
Kutools for Excel: 300+ funkció, amivel rendelkeznie kell az Excelben, 30 napos ingyenes próba innen |
Relatív cikkek:
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!