V programe Excel chcem vyhľadať prvú prázdnu bunku v stĺpci a potom vložiť hodnotu do toho, že môžete pomôcť?

Sub findFirstycellandpaste ()

Dim WS ako pracovný hárok

Slabý lastrow tak dlho

Dim Pastevalue ako variant

„Nastavte pracovný hárok a hodnotu na prilepenie

Set ws =thorkbook.workSheets ("Sheet1") 'Zmeniť "hárok" na svoj skutočný názov hárku

Pastevalue ="Vaša hodnota" 'nahradiť "svoju hodnotu" hodnotou, ktorú chcete vložiť

„Nájdite posledný použitý riadok v stĺpci

lastrow =ws.cells (ws.rows.count, "a"). end (xlup) .Row + 1 'Zmeňte "a" do stĺpca, ktorý chcete vyhľadať

„Vložte hodnotu do prvej prázdnej bunky

ws.cells (lastrow, "a"). value =pathevalue 'Change "a" na stĺpec, ktorý chcete vložiť

Koncový

`` `

Vysvetlenie:

1. deklarujte premenné:

- `ws`:predstavuje pracovný hárok, s ktorým chcete pracovať.

- `lastrow`:ukladá číslo riadku poslednej použitej bunky do zadaného stĺpca.

- `Pastevalue`:ukladá hodnotu, ktorú chcete vložiť.

2. Nastavte pracovný hárok a hodnotu na pastu:

- Vymeňte `" Sheet1 "` za skutočný názov vášho pracovného hárka.

- Vymeňte „svoju hodnotu“ `za hodnotu, ktorú chcete prilepiť.

3. Nájdite posledný použitý riadok:

- `Ws.Cells (ws.rows.count," a "). end (xLUp) .Row`:Tento riadok nájde poslednú nevylepšenú bunku v stĺpci" a "(nahradiť" a "stĺpcom).

- `+ 1`:Pridá 1 do posledného riadku, aby ste dostali prvú prázdnu bunku v tomto stĺpci.

4. Prilepte hodnotu:

- `W.Cells (Lastrow," A "). Value =Pastevalue`:Tento riadok vkladá hodnotu uloženú v" pastevalue "do prvej prázdnej bunky v stĺpci" A "(nahradiť" a "stĺpcom).

Ako používať:

1. Stlačením tlačidla alt + f11 otvoríte editor VBA.

2. Vložte nový modul (vložte> modul).

3. prilepte kód do modulu.

4. Nahraďte zástupné symboly (názov pracovného hárka, hodnota pre vkladanie, stĺpcové písmeno) za vaše skutočné hodnoty.

5. Spustite makro stlačením F5 alebo kliknutím na tlačidlo „Spustiť“.

Poznámka: Tento kód predpokladá, že chcete vložiť hodnotu do prvej prázdnej bunky do konkrétneho stĺpca. Ak potrebujete vložiť do iného stĺpca alebo riadku, podľa toho upravte písmeno stĺpca a číslo riadku v kóde.