Sub FindFirstemPtyCellandPaste ()
Dim ws come foglio di lavoro
Dim Lastrow nel tempo
Dim Pastevalue come variante
'Imposta il foglio di lavoro e il valore da incollare
Imposta ws =thisworkbook.worksheets ("foglio1") 'modifica "foglio1" sul nome del foglio effettivo
PasteValue ="il tuo valore" 'sostituisci "il tuo valore" con il valore che desideri incollare
'Trova l'ultima riga usata nella colonna
Lastrow =ws.cells (ws.rows.count, "a"). end (xlup) .row + 1 'modifica "a" alla colonna che si desidera cercare
'Incolla il valore alla prima cella vuota
ws.cells (Lastrow, "A"). Value =PasteValue 'Cambia "A" alla colonna che si desidera incollare
Fine sub
`` `
Spiegazione:
1. Dichiarare variabili:
- `ws`:rappresenta il foglio di lavoro con cui vuoi lavorare.
- `Lastrow`:memorizza il numero di riga dell'ultima cella usata nella colonna specificata.
- `PasteValue`:memorizza il valore che vuoi incollare.
2. Imposta il foglio di lavoro e il valore da incollare:
- Sostituisci `" Sheet1 "` con il nome effettivo del tuo foglio di lavoro.
- Sostituisci `" il tuo valore "` con il valore che desideri incollare.
3. Trova l'ultima riga usata:
- `ws.cells (ws.rows.count," a "). end (xlup) .row`:questa linea trova l'ultima cella non vuota nella colonna" A "(sostituire" a "con la tua colonna).
- `+ 1`:aggiunge 1 all'ultima riga per ottenere la prima cella vuota in quella colonna.
4. Incolla il valore:
- `ws.cells (Lastrow," A "). Valore =PastevaLue`:questa linea incolla il valore memorizzato in` PastevaLue` alla prima cella vuota nella colonna "A" (sostituire "A" con la tua colonna).
Come usare:
1. Premere Alt + F11 per aprire l'editor VBA.
2. Inserisci un nuovo modulo (Insert> Modulo).
3. Incolla il codice nel modulo.
4. Sostituire i segnaposto (nome del foglio di lavoro, valore da incollare, lettera di colonna) con i valori effettivi.
5. Esegui la macro premendo F5 o facendo clic sul pulsante "Esegui".
Nota: Questo codice presuppone che tu voglia incollare il valore nella prima cella vuota in una colonna specifica. Se è necessario incollare in una colonna o una riga diversa, regola la lettera di colonna e il numero di riga nel codice di conseguenza.
software © www.354353.com