`` `Excel

Sub findfirstemptycellandpaste ()

Dim Ws som regneark

Dim lastrow så længe

Dim pastvurdering som variant

'Indstil regnearket og den værdi, der skal indsættes

Sæt ws =thisworkbook.worksheets ("Sheet1") 'Ændring "Sheet1" til dit faktiske arknavn

PESTEVALUE ="Din værdi" 'Udskift "din værdi" med den værdi, du vil indsætte

'Find den sidst brugte række i kolonnen

lastrow =ws.cells (ws.rows.count, "a"). End (xlup) .row + 1 'Ændring "A" til den kolonne, du vil søge i

'Indsæt værdien til den første tomme celle

ws.cells (lastrow, "a"). værdi =indsat

Slut sub

`` `

Forklaring:

1. erklær variabler:

- `WS`:Repræsenterer det regneark, du vil arbejde med.

- `Lastrow`:Gemmer rækkenummeret for den sidst anvendte celle i den specificerede kolonne.

- `Pastevurdering`:gemmer den værdi, du vil indsætte.

2. Indstil regnearket og den værdi, der skal indsættes:

- Udskift `" Sheet1 "med det faktiske navn på dit regneark.

- Udskift `" din værdi "med den værdi, du vil indsætte.

3. Find den sidst brugte række:

- `ws.cells (ws.rows.count," a "). End (xlup) .row`:Denne linje finder den sidste ikke-tomme celle i kolonne" A "(udskift" a "med din kolonne).

- `+ 1`:Tilføjer 1 til den sidste række for at få den første tomme celle i den kolonne.

4. Indsæt værdien:

- `ws.cells (lastrow," a "). Værdi =indsæt ':denne linje indsætter den værdi, der er gemt i' indsat" til den første tomme celle i kolonne "a" (udskift "a" med din kolonne).

Sådan bruges:

1. Tryk på ALT + F11 for at åbne VBA -editoren.

2. Indsæt et nyt modul (indsæt> modul).

3. Indsæt koden i modulet.

4.

5. Kør makroen ved at trykke på F5 eller klikke på knappen "Kør".

Bemærk: Denne kode antager, at du vil indsætte værdien i den første tomme celle i en bestemt kolonne. Hvis du har brug for at indsætte i en anden kolonne eller række, skal du justere kolonnebrevet og række nummer i koden i overensstemmelse hermed.