Jos haluat tapa poistaa kaikki samankaltaiset rivinumerot kerralla, tämä artikkeli on sinua varten.
Tässä artikkelissa opimme, kuinka voimme päästä eroon samasta rivistä useissa laskentataulukoissa makrojen kautta.
Kysymys): Haluan poistaa saman rivin useista laskentataulukoista käyttämällä VBA -koodia. Haluan koodin, joka poistaa kaikki työkirjan rivit riippumatta siitä, kuinka monta arkkia nykyisessä tiedostossa on; Haluan poistaa valitun rivinumeron kaikista viidestä arkista.
Ensinnäkin syötetään samankaltaiset tiedot kaikkiin laskentataulukoihin samassa paikassa
Meidän on noudatettava seuraavia vaiheita:
- Napsauta Kehittäjä -välilehteä
- Valitse koodiryhmästä Visual Basic
Syötä seuraava koodi vakiomoduuliin:-
Sub DeleteRows ()
Dim shtArr, i Niin pitkä, xx niin pitkä
shtArr = Array ("Sheet1", "Sheet2", "Sheet3", "Sheet4", "Sheet5")
xx = Valinta Rivi
Sillä i = LBound (shtArr) - UBound (shtArr)
Arkit (shtArr (i)). Rivit (xx) .ErtireRow.Delete
Seuraavaksi minä
End Sub
- Aseta kohdistin nyt mihin tahansa soluun A1 ja taulukkoon 1.
- Lehdistö ALT + F8 ajaa makroa; Löydät valitun rivinumeron poistamalla kaikki taulukot.
- Seuraavassa tilannekuvassa näkyy esimerkkinä taulukon 1 ja arkin 2 tiedot; kun suoritat tämän harjoituksen, löydät samanlaisen ratkaisun kaikista vastaavista taulukoista.
- Jos asetamme kohdistimen mihin tahansa soluun A2 ja taulukkoon 2, myös tulos olisi samanlainen.
Tässä tapauksessa voimme poistaa samanlaisen rivinumeron käyttämällä VBA -koodia.
Lataa- Esimerkkitiedosto- xlsm