Met dank aan Mike die de Excel-vraag van deze week heeft verstrekt:
Ik probeer een macro te schrijven en ben hier nieuw in. Ik heb een Excel-spreadsheet die honderden pagina's lang en veel kolommen breed is. Ik wil dat de macro alleen in de "A" -kolom zoekt naar "" (geen gegevens) en vervolgens de gegevens uit de vorige rij gebruikt, een keuze maakt uit de kolommen "A" tot en met "CB" en vervolgens invult totdat deze gegevens detecteert in een cel in de "A" -kolom. Daarna moet het worden herhaald totdat alles is gedaan.
De onderstaande macro zal het lukken:
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 SubMaar misschien hoeft u geen macro te gebruiken om te doen wat u wilt. Een snellere manier is om de trucs te gebruiken die in tip van 12/12/98 zijn geïntroduceerd om hetzelfde te bereiken zonder macro.
De eerste truc is om alle lege cellen in uw selectie te selecteren. Markeer van A1 tot en met CB in de laatste rij van uw gegevens. Selecteer Bewerken> Ga naar> Speciaal> Blanco> OK.
Vervolgens wilt u dezelfde formule invoeren in al die lege cellen. Om dit te doen, drukt u op de is gelijk aan-toets, drukt u op de pijl-omhoog, houdt u Ctrl ingedrukt en drukt u op Enter. Hierdoor wordt de formule gerepliceerd naar alle lege cellen.
Wijzig ten slotte de formules in waarden. Markeer het volledige gegevensbereik, selecteer Bewerken> Kopiëren, Bewerken> Plakken speciaal> Waarden> OK.
Merk op dat als Mike's originele gegevens formules bevatten of rijen bevatten die gedeeltelijk leeg waren, deze procedure niet zal werken, het is beter om vast te houden aan de hierboven getoonde macro.
