Jak automaticky vložit řádek na základě hodnoty buňky v aplikaci Excel?
Vložte řádek níže na základě hodnoty buňky pomocí VBA
Vložte řádek výše na základě hodnoty buňky pomocí Kutools pro Excel
Vložte řádek níže na základě hodnoty buňky pomocí VBA
Chcete-li vložit řádek na základě hodnoty buňky spuštěním VBA, proveďte následující kroky:
1. lis Alt + F11 kláves současně a a Microsoft Visual Basic pro aplikace vyskočí okno.
2. cvaknutí Vložit > Modul, pak vložte pod kód VBA do praskání Modul okno.
VBA: Vložte řádek níže na základě hodnoty buňky.
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. cvaknutí F5 nebo klávesu Běh tlačítko, objeví se dialogové okno a vyberte sloupec obsahující nulu. Viz snímek obrazovky:
4. cvaknutí OK. Potom se pod nulovou hodnotu vloží prázdné řádky.
Tip:
1. Pokud chcete vložit řádky založené na jiné hodnotě, můžete to změnit 0 na libovolnou hodnotu, kterou chcete ve VBA: Pokud Rng.Value = "0", pak.
2. Pokud chcete vložit řádky nad nulu nebo jinou hodnotu, můžete použít níže uvedený kód VBA.
VBA: Vložte řádek nad nulovou hodnotu:
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
Vložte řádek výše na základě hodnoty buňky pomocí Kutools pro Excel
Pokud nejste obeznámeni s VBA, můžete to zkusit Kutools pro Excel's Vyberte konkrétní buňky nástroj a poté vložte řádky výše.
Kutools pro Excel, s více než 300 užitečné funkce, které vám usnadní práci. | ||
Po instalaci Kutools pro Excel, prosím, postupujte takto:(Zdarma ke stažení Kutools pro Excel nyní!)
1. Vyberte seznam, ze kterého chcete zjistit konkrétní buňky, a klikněte na Kutools > vybrat > Vyberte konkrétní buňky. Viz snímek obrazovky:
2. V rozbalovacím dialogovém okně zaškrtněte Celá řada možnost a poté vyberte rovná od Specifický typ seznamu a poté zadejte hodnotu, kterou chcete najít, do pravého textového pole. Viz snímek obrazovky:
3. cvaknutí Oka objeví se dialogové okno, které vám připomene počet vybraných řádků, stačí jej zavřít.
4. Umístěte kurzor na jeden vybraný řádek a klepnutím pravým tlačítkem vyberte Vložit z kontextového menu. Viz screenshot:
Nyní jsou řádky vloženy výše na základě konkrétní hodnoty.
Vložte řádky výše na základě hodnoty buňky
Relativní články:
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!