`` `Excel
Sub findFirstemptyCellandPaste ()
Dim WS som kalkylblad
Dim Lastrow så länge
Dim PastaValue som variant
Ställ in kalkylbladet och värdet för att klistra in
Ställ in ws =thisworkbook.worksheets ("Sheet1") 'Ändra "Sheet1" till ditt faktiska arknamn
pastevalue ="ditt värde" 'ersätta "ditt värde" med det värde du vill klistra in
'Hitta den sista använda raden i kolumnen
lastrow =ws.cells (ws.rows.Count, "a"). Slut (xlup). Row + 1 'Ändra "a" till kolumnen du vill söka
'Klistra in värdet till den första tomma cellen
Ws.Cells (Lastrow, "A"). Value =Pastevalue 'Change "A" till kolumnen du vill klistra in
Slutsub
`` `
Förklaring:
1. Förklara variabler:
- `WS`:Representerar kalkylbladet du vill arbeta med.
- `Lastrow ':lagrar radnumret för den sist använda cellen i den angivna kolumnen.
- `pastevalue ':lagrar värdet du vill klistra in.
2. Ställ in kalkylbladet och värdet för att klistra in:
- Byt ut `" Sheet1 "` med det faktiska namnet på ditt kalkylblad.
- Byt ut "ditt värde" "med det värde du vill klistra in.
3. Hitta den sista använda raden:
- `Ws.Cells (Ws.Rows.Count," A "). END (XLUP) .ROW`:Den här linjen hittar den sista icke-tomma cellen i kolumnen" A "(ersätt" A "med din kolumn).
- `+ 1`:lägger till 1 till den sista raden för att få den första tomma cellen i den kolumnen.
4. klistra in värdet:
- `Ws.Cells (Lastrow," A "). Värde =Pastevalue`:Denna linje klistrar in värdet som lagras i` Pastevalue 'till den första tomma cellen i kolumnen "A" (ersätt "A" med din kolumn).
Hur man använder:
1. Tryck på Alt + F11 för att öppna VBA -redigeraren.
2. Infoga en ny modul (INSERT> -modul).
3. klistra in koden i modulen.
4. Byt ut platshållarna (kalkylblad, värde till klistra, kolumnbokstav) med dina faktiska värden.
5. Kör makroet genom att trycka på F5 eller klicka på "Run" -knappen.
Obs: Den här koden antar att du vill klistra in värdet i den första tomma cellen i en specifik kolumn. Om du behöver klistra in i en annan kolumn eller rad, justera kolumnbokstaven och radnumret i koden i enlighet därmed.
