Hvis du vil have en måde at slette alle de lignende rækkenumre på, er denne artikel noget for dig.
I denne artikel lærer vi, hvordan vi kan slippe af med den samme række i flere regneark gennem makroer.
Spørgsmål): Jeg vil slette den samme række i flere regneark ved hjælp af VBA -kode. Hvad jeg vil have er kode til at slette alle rækker i projektmappen uanset hvor mange ark der er til stede i den aktuelle fil; Jeg vil slette det valgte rækkenummer fra alle de 5 ark.
Lad os først indtaste de lignende data i alle regnearkene på samme sted
Vi skal følge nedenstående trin:
- Klik på fanen Udvikler
- Vælg Visual Basic fra kodegruppen
Indtast følgende kode i standardmodulet:-
Sub DeleteRows ()
Dim shtArr, i As Long, xx As Long
shtArr = Array ("Ark1", "Ark2", "Ark3", "Ark4", "Ark5")
xx = Selection.Row
For i = LBound (shtArr) Til UBound (shtArr)
Ark (shtArr (i)). Rækker (xx) .EntireRow.Delete
Næste i
Afslut Sub
- Placer nu markøren på en hvilken som helst celle A1 og på Sheet1.
- Trykke ALT + F8 at køre makroen; du finder det valgte rækkenummer slettet i alle arkene.
- Følgende øjebliksbillede viser data fra ark 1 og ark 2 som et eksempel; når du kører denne øvelse, finder du en lignende løsning i alle de respektive ark.
- Hvis vi placerer markøren på en celle A2 og på Sheet2, ville resultatet også være det samme.
I dette tilfælde kan vi slette lignende rækkenummer ved hjælp af VBA -kode.
Download- Eksempelfil- xlsm