Paldies Maikam, kurš sniedza šīs nedēļas Excel jautājumu:
Mēģinu uzrakstīt makro un esmu jauns šajā jautājumā. Man ir Excel izklājlapa, kas ir simtiem lappušu un daudz kolonnu plata. Es gribētu, lai makro meklētu kolonnā "A" tikai "A" (nav datu) un pēc tam izmantotu iepriekšējās rindas datus, atlasot no kolonnām "A" līdz "CB" un pēc tam aizpildītu, līdz tas uztver datus šūna slejā "A". Tad tas jāatkārto, līdz viss ir izdarīts.
Zemāk redzamais makro veiks triku:
Public Sub CopyDown() LastRow = Range("A65536").End(xlUp).Row For i = 1 To LastRow If Range("A" & i).Value = "" Then Range("A" & i - 1 & ":CB" & i - 1).Copy Destination:=Range("A" & i) End if Next i End SubBet, iespējams, jums nav jāizmanto makro, lai darītu to, ko vēlaties. Ātrāks veids ir izmantot trikus, kas ieviesti padomā no 12/12/98, lai paveiktu to pašu bez makro.
Pirmais triks ir atlasīt visas tukšās šūnas jūsu atlasē. Datu pēdējā rindā atzīmējiet no A1 līdz CB. Atlasiet Rediģēt> GoTo> Special> Blanks> OK.
Pēc tam visās šajās tukšajās šūnās vēlaties ievadīt to pašu formulu. Lai to izdarītu, nospiediet taustiņu vienāds, nospiediet augšupvērsto bultiņu, pēc tam turiet nospiestu taustiņu Ctrl un nospiediet taustiņu Enter. Tas atkārtos formulu visām tukšajām šūnām.
Visbeidzot, mainiet formulas uz vērtībām. Iezīmējiet visu datu diapazonu, atlasiet Rediģēt> Kopēt, Rediģēt> Īpaša ielīmēšana> Vērtības> Labi.
Ņemiet vērā, ka, ja Maika sākotnējie dati saturēja formulas vai dažas rindas, kas bija daļēji tukšas, šī procedūra nedarbosies, labāk būtu palikt pie iepriekš parādītā makro.
