Sub findFirstemPtyCellandpaste ()

Dim WS som regneark

Dim Lastrow så lenge

Svakt pastalue som variant

'Angi regnearket og verdien til liming

Sett ws =thisworkbook.Worksheets ("Sheet1") 'Endre "Sheet1" til ditt faktiske arknavn

pastalue ="din verdi" 'erstatt "verdien din" med verdien du vil lime inn

'Finn den siste brukte raden i kolonnen

lastrow =ws.cells (ws.rows.count, "a"). end (xlup) .row + 1 'Endre "A" til kolonnen du vil søke

'Lim inn verdien til den første tomme cellen

ws.cells (lastrow, "a"). verdi =pastalue 'endring "a" til kolonnen du vil lime inn

Slutt sub

`` `

Forklaring:

1. erklære variabler:

- `ws`:representerer arbeidsarket du vil jobbe med.

- `Lastrow`:Lagrer radnummeret til den siste brukte cellen i den spesifiserte kolonnen.

- `pastalue`:lagrer verdien du vil lime inn.

2. Angi regnearket og verdien til liming:

- Erstatt `" Sheet1 '`med det faktiske navnet på regnearket ditt.

- Erstatt `» din verdi »med verdien du vil lime inn.

3. Finn den siste brukte raden:

- `ws.cells (ws.rows.Count, 'A"). End (xlup) .Row`:Denne linjen finner den siste ikke-tomme cellen i kolonnen "A" (erstatt "A" med kolonnen din).

- `+ 1`:Legger 1 til den siste raden for å få den første tomme cellen i den kolonnen.

4. Lim inn verdien:

- `ws.cells (lastrow," a "). Verdi =pastalue`:Denne linjen limer inn verdien som er lagret i` pastalue` til den første tomme cellen i kolonnen "a" (erstatt "a" med kolonnen din).

Hvordan bruke:

1. Trykk ALT + F11 for å åpne VBA -redaktøren.

2. Sett inn en ny modul (sett inn> modul).

3. Lim inn koden i modulen.

4. Bytt ut plassholdere (regnearknavn, verdi til lim, kolonnebrev) med dine faktiske verdier.

5. Kjør makroen ved å trykke på F5 eller klikke på "Kjør" -knappen.

Merk: Denne koden forutsetter at du vil lime inn verdien i den første tomme cellen i en spesifikk kolonne. Hvis du trenger å lime inn i en annen kolonne eller rad, må du justere kolonnebrevet og radnummeret i koden deretter.