Hvis du vil ha en måte å slette alle de samme radnummerene på en gang, er denne artikkelen noe for deg.
I denne artikkelen vil vi lære hvordan vi kan bli kvitt samme rad i flere regneark gjennom makroer.
Spørsmål): Jeg vil slette den samme raden i flere regneark ved hjelp av VBA -kode. Det jeg vil ha er kode for å slette alle radene i arbeidsboken uavhengig av hvor mange ark som er til stede i den nåværende filen; Jeg vil slette det valgte radnummeret fra alle de 5 arkene.
La oss først skrive inn lignende data i alle regnearkene på samme sted
Vi må følge trinnene nedenfor:
- Klikk på kategorien Utvikler
- Velg Visual Basic fra kodegruppen
Skriv inn følgende kode i standardmodulen:-
Sub DeleteRows ()
Dim shtArr, i As Long, xx As Long
shtArr = Array ("Sheet1", "Sheet2", "Sheet3", "Sheet4", "Sheet5")
xx = Selection.Row
For i = LBound (shtArr) Til UBound (shtArr)
Ark (shtArr (i)). Rader (xx) .EntireRow.Delete
Neste jeg
Slutt Sub
- Plasser nå markøren på en hvilken som helst celle A1 og på ark1.
- trykk ALT + F8 å kjøre makroen; du vil finne valgt radnummer blir slettet i alle arkene.
- Følgende øyeblikksbilde viser data fra ark 1 og ark 2 som et eksempel; Når du kjører denne øvelsen, finner du en lignende løsning i alle de respektive arkene.
- Hvis vi plasserer markøren på en celle A2 og på Sheet2, vil også resultatet være likt.
I dette tilfellet kan vi slette lignende radnummer ved hjelp av VBA -kode.
Last ned- Eksempelfil- xlsm