Köszönet Mike-nak, aki megadta az e heti Excel kérdést:
Próbálok makrót írni, és új vagyok ebben. Van egy Excel-táblázatom, amely több száz oldal hosszú és sok oszlop széles. Szeretném, ha a makró csak az "A" oszlopban keresné az "" adatot (nincs adat), majd felhasználná az előző sor adatait, az "A" - "CB" oszlopok közül választva, majd töltse ki, amíg meg nem érzékeli az adatokat egy cella az "A" oszlopban. Ezután meg kell ismételni, amíg minden nem történik meg.
Az alábbi makró megteszi a trükköt:
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 SubDe előfordulhat, hogy nem kell makrót használni ahhoz, amit akar. Gyorsabb módszer az 1998.12.12-i tippekben bevezetett trükkök felhasználása ugyanazon makró nélküli megvalósításhoz.
Az első trükk az, hogy kijelöli az összes üres cellát. Jelölje ki A1-től CB-ig az adatok utolsó sorában. Válassza a Szerkesztés> Ugrás> Különleges> Üresek> OK lehetőséget.
Ezután ugyanazt a képletet szeretné megadni az összes üres cellában. Ehhez nyomja meg az egyenlő gombot, nyomja meg a felfelé mutató nyilat, majd tartsa lenyomva a Ctrl billentyűt, és nyomja meg az Enter billentyűt. Ez megismétli a képletet az összes üres cellára.
Végül módosítsa a képleteket értékekre. Jelölje ki a teljes adatsort, válassza a Szerkesztés> Másolás, Szerkesztés> Speciális beillesztés> Értékek> OK lehetőséget.
Ne feledje, hogy ha Mike eredeti adatai képleteket tartalmaznak, vagy tartalmaznak néhány sorot, amelyek részben üresek, akkor ez az eljárás nem fog működni, jobb lenne ragaszkodni a fent látható makróhoz.
