Jak používat makro k vložení řádku pod tabulku v aplikaci Excel?
Je běžné, že do dolní části zadané tabulky přidáme prázdné řádky, abychom tabulku rozšířili a přidali nový obsah. Tento článek hovoří o použití makra k vložení nového řádku pod zadanou tabulku a zachování vzorce výše uvedené buňky v aplikaci Excel.
Pomocí makra vložte řádek pod tabulku v aplikaci Excel
Pomocí makra vložte řádek pod tabulku v aplikaci Excel
Při vkládání prázdného řádku pod zadanou tabulku s makrem postupujte následovně.
1. zmáčkni Další + F11 současně otevřete Microsoft Visual Basic pro aplikace okno.
2. V Microsoft Visual Basic pro aplikace okno, klikněte prosím Vložit > Modul otevřete okno modulu. Poté zkopírujte a vložte níže uvedený kód VBA do okna.
Kód VBA: použijte makro k vložení prázdného řádku pod zadanou tabulku
Sub AddRows()
'Updated by Extendoffice 2017/9/12
Dim xLastRow As Long
Dim xRg As Range
Dim xAddress As String
On Error Resume Next
xAddress = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Please select the table range you will insert blank row below:", "KuTools For Excel", xAddress, , , , , 8)
If xRg Is Nothing Then Exit Sub
xLastRow = xRg.Row + xRg.Rows.Count
xRg.Rows(xLastRow).FillDown
xRg.Rows(xLastRow).SpecialCells(xlCellTypeConstants).ClearContents
End Sub
3. zmáčkni F5 klíč ke spuštění kódu. A Kutools pro Excel Zobrazí se dialogové okno, vyberte určitý rozsah tabulky, do kterého přidáte prázdný řádek, a poté klikněte na OK knoflík. Viz screenshot:
Pak můžete vidět, že je v dolní části zadané tabulky přidán nový prázdný řádek. A vzorec ve výše uvedené buňce je také rezervován v nově vloženém řádku, jak je uvedeno níže, viz snímek obrazovky:
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!