Excel - makro rindas dzēšanai ar nosacījumu

Makro var izmantot dažādām operācijām ar Excel darblapām, piemēram, dzēst rindas, kas atbilst konkrētam noteiktam nosacījumam. Kaut arī nav nepieciešamas, dažas zināšanas par programmēšanas koncepcijām un cilpām var izrādīties noderīgas makro ierakstīšanai programmā Excel. Makro Excel programmā, lai izdzēstu rindas, kas atbilst noteiktiem nosacījumiem, var tikt rakstītas no nulles vai izstrādātas no brīvi pieejama makro koda. Makro ir ļoti noderīga funkcija, un to var izmantot, lai veiktu datu manipulācijas Excel darblapās ar lielu ierakstu skaitu. Makro programmā Excel automatizē procesu, padarot uzdevumu ātru un bez kļūdām.

Izdevums

Man ir nepieciešama makro rindu dzēšanai, ja neviena no rindas rindām nesatur vienu no diviem cipariem " 103526 " vai " 103527 "

Rindu skaits ir mainīgs (max 150) un arī kolonnu mainīgo skaits (maks. 100).

Jebkura palīdzība tiek novērtēta.

Risinājums

Jūsu stāvoklis mani mulsina. Es to pārveidoju.

Ja rindā ir vai nu 103526 vai 102527, vai abi, tad NĒ dzēsiet.

Ja neviens no abiem numuriem nav rindā, izdzēsiet.

Tagad, kad jūs dzēšat rindas, saglabājiet datu lapas kopiju lapā1 uz lapu2, lai jūs varētu kopēt datus, ja ir neveiksme.

Dati ir 1. lapās, izmēģiniet šo makro:

 Sub tests () Dim j kā Integer, k Kā Integer Dim r Kā diapazons, cfind6 Kā diapazons, cfind7 Kā diapazona darblapas ("lapa1") Aktivizēt ieslēgšanas kļūdas atsākšana Nākamais j = šūnas (rindas.Skaitlis, "A"). (xlUp) .Rinds k = j uz 1 soli -1 Iestatīt cfind6 = rindas (k) .Cells.Find (kas: = 103526, lookat: = xlWhole) Iestatiet cfind7 = rindas (k) .Cells.Find (ko: = 103527, lookat: = xlWhole) Ja cfind6 nav nekas un cfind7 nav nekas, tad rindas (k). 

Piezīme

Pateicoties venkat1926 par šo padomu forumā.

Iepriekšējais Raksts Nākamais Raksts

Top Padomi