Ja vēlaties veidu, kā izdzēst visus līdzīgos rindu numurus, šis raksts ir domāts jums.
Šajā rakstā mēs uzzināsim, kā mēs varam atbrīvoties no vienas rindas vairākās darblapās, izmantojot makro.
Jautājums): Es vēlos izdzēst vienu un to pašu rindu vairākās darblapās, izmantojot VBA kodu. Es vēlos, lai kods izdzēstu visas darbgrāmatas rindas neatkarīgi no tā, cik lapas atrodas pašreizējā failā; Es vēlos izdzēst atlasīto rindas numuru no visām 5 lapām.
Vispirms ievadīsim līdzīgus datus visās darblapās tajā pašā vietā
Mums jāveic šādas darbības:
- Noklikšķiniet uz cilnes Izstrādātājs
- Kodu grupā atlasiet Visual Basic
Standarta modulī ievadiet šādu kodu:-
Sub DeleteRows ()
Dim shtArr, i Cik ilgi, xx tik ilgi
shtArr = masīvs ("Sheet1", "Sheet2", "Sheet3", "Sheet4", "Sheet5")
xx = Atlase. Rinda
Attiecībā uz i = LBound (shtArr) līdz UBound (shtArr)
Izklājlapas (shtArr (i)). Rindas (xx). Visa rinda. Dzēst
Tālāk i
Beigt apakš
- Tagad novietojiet kursoru uz jebkuras šūnas A1 un uz lapas 1.
- Nospiediet ALT + F8 palaist makro; jūs atradīsit, ka izvēlētais rindas numurs tiek izdzēsts visās lapās.
- Pēc momentuzņēmuma kā piemērs ir parādīti 1. un 2. lapas dati; izpildot šo uzdevumu, jūs atradīsiet līdzīgu risinājumu visās attiecīgajās lapās.
- Ja mēs novietojam kursoru uz jebkuras šūnas A2 un uz lapas 2, tad arī rezultāts būtu līdzīgs.
Šajā gadījumā mēs varam izdzēst līdzīgu rindas numuru, izmantojot VBA kodu.
Lejupielādēt- faila paraugs- xlsm