| `` `Excel
Sub FindFirstemptyCellandPaste ()
Dim WS als werkblad
Dim lastrow zo lang
Dim pastevalue als variant
'Stel het werkblad in en de waarde om te plakken
Set ws =thisworkbook.worksheets ("sheet1") "wijzigen" sheet1 "op uw werkelijke bladnaam
PasteValue ="Uw waarde" 'Vervang' uw waarde 'door de waarde die u wilt plakken
'Zoek de laatst gebruikte rij in de kolom
laStrow =ws.cells (ws.rows.count, "a"). End (xlup) .Row + 1 'wijzigen' in de kolom die u wilt zoeken
'Plak de waarde in de eerste lege cel
WS.Cells (Lastrow, "A"). Value =PastEvalue 'wijzigen' A 'in de kolom die u wilt plakken
Einde sub
`` `
Verklaring:
1. Variabelen verklaren:
- `WS`:vertegenwoordigt het werkblad waarmee u wilt werken.
- `Lastrow`:slaat het rijnummer van de laatst gebruikte cel op in de opgegeven kolom.
- `PasteValue`:slaat de waarde op die u wilt plakken.
2. Stel het werkblad in en de te plakken waarde:
- Vervang `" Sheet1 "` door de werkelijke naam van uw werkblad.
- Vervang `" Uw waarde "` door de waarde die u wilt plakken.
3. Zoek de laatst gebruikte rij:
- `WS.Cells (ws.rows.count," a "). End (xlup) .row`:deze regel vindt de laatste niet-lege cel in kolom" a "(vervang" a "door uw kolom).
- `+ 1`:voegt 1 toe aan de laatste rij om de eerste lege cel in die kolom te krijgen.
4. plak de waarde:
- `WS.Cells (Lastrow," A "). Value =PasteValue`:deze regel plakt de waarde die is opgeslagen in` verleden evalue` op de eerste lege cel in kolom "A" (vervang "A" door uw kolom).
Hoe te gebruiken:
1. Druk op ALT + F11 om de VBA -editor te openen.
2. Voeg een nieuwe module in (insert> module).
3. Plak de code in de module.
4. Vervang de tijdelijke aanduiding (werkbladnaam, waarde om te plakken, kolombrief) door uw werkelijke waarden.
5. Voer de macro uit door op F5 te drukken of op de knop "Run" te klikken.
Opmerking: Deze code veronderstelt dat u de waarde in de eerste lege cel in een specifieke kolom wilt plakken. Als u in een andere kolom of rij moet plakken, past u de kolombrief en het rijnummer in de code dienovereenkomstig aan. |
