Jei norite ištrinti visus panašius eilučių numerius, šis straipsnis skirtas jums.
Šiame straipsnyje sužinosime, kaip per makrokomandas galime atsikratyti tos pačios eilutės keliuose darbalapiuose.
Klausimas): Noriu ištrinti tą pačią eilutę iš kelių darbalapių, naudojant VBA kodą. Noriu, kad kodas ištrintų visas darbaknygės eilutes, nepriklausomai nuo to, kiek lapų yra dabartiniame faile; Noriu ištrinti pasirinktą eilutės numerį iš visų 5 lapų.
Pirmiausia įveskite panašius duomenis į visus tos pačios vietos darbalapius
Turime atlikti šiuos veiksmus:
- Spustelėkite skirtuką Kūrėjas
- Iš kodų grupės pasirinkite „Visual Basic“
Į standartinį modulį įveskite šį kodą:-
Sub DeleteRows ()
Dim shtArr, i Kaip ilgai, xx kaip ilgai
shtArr = Masyvas („Sheet1“, „Sheet2“, „Sheet3“, „Sheet4“, „Sheet5“)
xx = Pasirinkimas. Eilutė
I = LBound (shtArr) iki UBound (shtArr)
Skaičiuoklės (shtArr (i)). Eilutės (xx). Visa eilutė. Ištrinti
Kitas I.
Pabaiga Sub
- Dabar padėkite žymeklį ant bet kurio langelio A1 ir 1 lape.
- Paspauskite ALT + F8 paleisti makrokomandą; pamatysite, kad pasirinktas eilutės numeris bus ištrintas visuose lapuose.
- Toliau pateiktoje momentinėje nuotraukoje kaip pavyzdys rodomi 1 ir 2 lapo duomenys; kai atliksite šį pratimą, rasite panašų sprendimą visuose atitinkamuose lapuose.
- Jei žymeklį įdėsime į bet kurį langelį A2 ir ant lapo 2, rezultatas taip pat bus panašus.
Tokiu atveju mes galime ištrinti panašų eilutės numerį naudodami VBA kodą.
Atsisiųsti- pavyzdinis failas- xlsm