Tento tutoriál předvede, jak pomocí VBA vkládat řádky a sloupce do Excelu.
K vložení řádků nebo sloupců použijeme Metoda vložení.
Vložte jeden řádek nebo sloupec
Vložte nový řádek
Chcete -li vložit jeden řádek, můžete použít objekt řádků:
| 1 | Řádky (4). Vložte |
Nebo můžete použít objekt Range společně s EntireRow:
| 1 | Rozsah („b4“). EntireRow.Insert |
Vložit nový sloupec
Podobně jako při vkládání řádků můžeme k vložení sloupce použít objekt Columns:
| 1 | Sloupce (4). Vložte |
Nebo objekt rozsahu spolu s EntireColumn:
| 1 | Rozsah („b4“). EntireColumn.Insert |
Vložte více řádků nebo sloupců
Vložte více řádků
Při vkládání více řádků s objektem Rows musíte zadat řádky do uvozovek:
| 1 | Řádky („4: 6“). Vložit |
Vložení více řádků s objektem rozsahu funguje stejně jako u jednoho řádku:
| 1 | Rozsah („b4: b6“). EntireRow.Insert |
Vložte více sloupců
Při vkládání více sloupců s objektem Sloupce zadejte sloupec písmena v uvozovkách:
| 1 | Sloupce („B: D“). Vložit |
Vložení více sloupců s objektem rozsahu funguje stejně jako u jednoho sloupce:
| 1 | Rozsah ("b4: d4"). EntireColumn.Insert |
Vložit - Shift & CopyPůvod
The Metoda vložení má dva volitelné argumenty:
- Posun - Kterým směrem posunout buňky
- Kopírovat původ - Které formátování buňky zkopírovat (nad, pod, vlevo nebo vpravo)
Argument Shift je při vkládání celých řádků nebo sloupců irelevantní. Umožňuje pouze indikovat přeřazení dolů nebo posunutí doprava:
- xlShiftDown - Posuňte buňky dolů
- xlShiftToRight - Posuňte buňky doprava
Jak vidíte, nemůžete přeřadit nahoru ani doprava.
The Kopírovat původ argument má dva potenciální vstupy:
- xlFormatFromLeftorAbove - (0) Nově vložené buňky přebírají formátování z buněk nad nebo vlevo
- xlFormatFromRightor Níže (1) Nově vložené buňky přebírají formátování z buněk pod nebo vpravo.
Podívejme se na několik příkladů Kopírovat původ argument. Zde jsou naše počáteční údaje:
Tento příklad vloží řádek s formátováním z výše uvedeného řádku.
| 1 | Řádky (5). Vložit, xlFormatFromLeftOrAbove |
Tento příklad vloží řádek s formátováním z níže uvedeného řádku.
| 1 | Řádky (5). Vložit, xlFormatFromRightOrBelow |
Další příklady vložení
Vložte zkopírované řádky nebo sloupce
Pokud byste chtěli vložit zkopírovaný řádek, použili byste kód takto:
| 12 | Rozsah („1: 1“). ZkopírujteRozsah („5: 5“). Vložte |
Zde zkopírujeme řádek 1 a vložíme jej do řádku 5.
Vložit řádky podle hodnoty buňky
To bude procházet rozsahem a vkládat řádky na základě hodnot buněk:
| 1234567891011 | Sub InsertRowswithSpecificValue ()Dim buňka jako rozsahPro každou buňku v dosahu („b2: b20“)Pokud cell.Value = "vložte" Potombuňka.EntireRow.InsertKonec IfDalší buňkaEnd Sub |
Odstraňte řádky nebo sloupce
Chcete -li odstranit řádky nebo sloupce, jednoduše použijte Vymazat metoda.
| 1234567 | Řádky (1). OdstranitRozsah („a1“). EntireRow.DeleteSloupce (1). OdstranitRozsah („a1“). EntireColumn.Delete |
