Ačiū Mike'ui, kuris pateikė šios savaitės „Excel“ klausimą:
Bandau parašyti makrokomandą ir esu tai naujas. Turiu „Excel“ skaičiuoklę, kuri yra šimtų puslapių ilgio ir daugelio stulpelių pločio. Norėčiau, kad makrokomanda ieškotų „“ (nėra duomenų) tik „A“ stulpelyje, tada naudotų ankstesnės eilutės duomenis, pasirinkdama iš „A“ iki „CB“ stulpelių, tada užpildykite, kol pajus duomenis langelyje stulpelyje „A“. Tada reikia pakartoti, kol viskas bus padaryta.
Žemiau esanti makrokomanda atliks apgaulę:
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 SubTačiau norint daryti tai, ko norite, jums nereikės naudoti makrokomandos. Greitesnis būdas yra naudoti gudrybes, pateiktas patarime nuo 98/12/12, kad tą patį padarytumėte be makrokomandos.
Pirmasis triukas yra visų tuščių langelių pasirinkimas. Pažymėkite nuo A1 iki CB paskutinėje duomenų eilutėje. Pasirinkite Redaguoti> „GoTo“> Specialus> Blankai> Gerai.
Tada jūs norite įvesti tą pačią formulę visose tuščiose ląstelėse. Norėdami tai padaryti, paspauskite klavišą lygus, paspauskite rodyklę aukštyn, tada laikykite nuspaudę „Ctrl“ ir paspauskite Enter. Tai pakartos formulę visose tuščiose ląstelėse.
Galiausiai pakeiskite formules į reikšmes. Pažymėkite visą duomenų diapazoną, pasirinkite Redaguoti> Kopijuoti, Redaguoti> Įklijuoti specialų> Vertybės> Gerai.
Atkreipkite dėmesį, kad jei pradiniuose Mike'o duomenyse buvo formulių arba kai kurios eilutės buvo iš dalies tuščios, tai ši procedūra neveiks, geriau būtų laikytis aukščiau parodytos makrokomandos.
