Ak chcete naraz odstrániť všetky podobné čísla riadkov, tento článok je pre vás.
V tomto článku sa naučíme, ako sa pomocou makier môžeme zbaviť rovnakého riadka vo viacerých pracovných listoch.
Otázka): Chcem odstrániť rovnaký riadok vo viacerých pracovných hárkoch pomocou kódu VBA. Čo chcem, je kód na odstránenie všetkých riadkov v zošite bez ohľadu na to, koľko hárkov sa nachádza v aktuálnom súbore; Chcem odstrániť vybraté číslo riadka zo všetkých 5 listov.
Najprv zadajme podobné údaje do všetkých pracovných hárkov na rovnakom mieste
Musíme postupovať podľa nasledujúcich krokov:
- Kliknite na kartu Vývojár
- Zo skupiny kódov vyberte Visual Basic
Do štandardného modulu zadajte nasledujúci kód:-
Sub DeleteRows ()
Dim shtArr, i As Long, xx As Long
shtArr = pole („List1“, „List2“, „List3“, „List4“, „List5“)
xx = výber. riadok
Pre i = LBound (shtArr) Na UBound (shtArr)
Tabuľky (shtArr (i)). Riadky (xx). EnireRow. Odstrániť
Ďalej i
Koniec pod
- Teraz umiestnite kurzor na ľubovoľnú bunku A1 a na List1.
- Stlačte ALT + F8 spustiť makro; nájdete vybrané číslo riadku, ktoré bude odstránené vo všetkých hárkoch.
- Nasledujúca snímka zobrazuje údaje listu 1 a listu 2 ako príklad; keď spustíte toto cvičenie, nájdete podobné riešenie vo všetkých príslušných listoch.
- Ak umiestnime kurzor na ľubovoľnú bunku A2 a na hárok 2, výsledok bude tiež podobný.
V tomto prípade môžeme podobné číslo riadka odstrániť pomocou kódu VBA.
Stiahnuť- Ukážkový súbor- xlsm