Om du vill ha ett sätt att radera alla liknande rader i ett tag är den här artikeln för dig.
I den här artikeln kommer vi att lära oss hur vi kan bli av med samma rad i flera kalkylblad genom makron.
Fråga): Jag vill ta bort samma rad i flera kalkylblad med VBA -kod. Vad jag vill är kod för att radera alla rader i arbetsboken oavsett hur många blad som finns i den aktuella filen; Jag vill radera det valda radnumret från alla de 5 arken.
Först och främst, låt oss ange liknande data i alla kalkylblad på samma plats
Vi måste följa stegen nedan:
- Klicka på fliken Utvecklare
- Välj Visual Basic i kodgruppen
Ange följande kod i standardmodulen:-
Sub DeleteRows ()
Dim shtArr, i As Long, xx As Long
shtArr = Array ("Sheet1", "Sheet2", "Sheet3", "Sheet4", "Sheet5")
xx = Selection.Row
För i = LBound (shtArr) till UBound (shtArr)
Ark (shtArr (i)). Rader (xx) .EntireRow.Delete
Nästa i
Avsluta Sub
- Placera nu markören på valfri cell A1 & på Sheet1.
- Tryck ALT + F8 att köra makrot; du hittar valt radnummer raderas i alla blad.
- Följande ögonblicksbild visar data från blad 1 & blad 2 som ett exempel; när du kör denna övning hittar du en liknande lösning i alla respektive blad.
- Om vi placerar markören på någon cell A2 och på Sheet2 så blir också resultatet liknande.
I det här fallet kan vi radera liknande radnummer med VBA -kod.
Ladda ner- Exempelfil- xlsm