Στο Excel θέλω να ψάξω για το πρώτο κενό κελί σε μια στήλη και στη συνέχεια επικολλήστε την τιμή σε αυτό μπορείτε να βοηθήσετε;

Sub FindFirstemptyCellandPaste ()

Dim WS ως φύλλο εργασίας

Dim Lastrow όσο πολύ καιρό

Dim Pastevalue ως παραλλαγή

«Ρυθμίστε το φύλλο εργασίας και την αξία για να επικολλήσετε

SET ws =thisworkbook.worksheets ("sheet1") 'αλλαγή "φύλλο1" στο πραγματικό σας όνομα φύλλου

PasteValue ="Η αξία σας" "Αντικαταστήστε" την αξία σας "με την τιμή που θέλετε να επικολλήσετε

«Βρείτε την τελευταία μεταχειρισμένη σειρά στη στήλη

lastrow =ws.cells (ws.rows.count, "a"). End (xlup) .Row + 1 'Αλλαγή "a" στη στήλη που θέλετε να αναζητήσετε

«Επικολλήστε την τιμή στο πρώτο κενό κελί

Ws.cells (Lastrow, "A"). Value =PasteValue "ΑΛΛΑΓΗ" Α "στη στήλη που θέλετε να επικολλήσετε

Τερματισμός

`` `

Επεξήγηση:

1. Δηλώστε μεταβλητές:

- `WS`:αντιπροσωπεύει το φύλλο εργασίας με το οποίο θέλετε να εργαστείτε.

- `Lastrow`:Αποθηκεύει τον αριθμό σειράς του τελευταίου χρησιμοποιούμενου κελιού στην καθορισμένη στήλη.

- `pastevalue`:αποθηκεύει την αξία που θέλετε να επικολλήσετε.

2. Ρυθμίστε το φύλλο εργασίας και την τιμή για να επικολλήσετε:

- Αντικαταστήστε το `" Sheet1 "` με το πραγματικό όνομα του φύλλου εργασίας σας.

- Αντικαταστήστε `" Η αξία σας "` με την τιμή που θέλετε να επικολλήσετε.

3. Βρείτε την τελευταία χρησιμοποιημένη σειρά:

- `ws.cells (ws.rows.count," a "). End (xlup) .Row`:Αυτή η γραμμή βρίσκει το τελευταίο μη κενό κύτταρο στη στήλη" a "(αντικαταστήστε το" a "με τη στήλη σας).

- `+ 1`:Προσθέτει 1 στην τελευταία σειρά για να πάρει το πρώτο κενό κελί σε αυτή τη στήλη.

4. Επικολλήστε την τιμή:

- `ws.cells (lastrow," a "). value =pastevalue ':Αυτή η γραμμή επικολλάται την τιμή που αποθηκεύεται στο` pastevalue` στο πρώτο κενό κελί στη στήλη "a" (αντικαταστήστε το "a" με τη στήλη σας).

Πώς να χρησιμοποιήσετε:

1. Πατήστε ALT + F11 για να ανοίξετε τον επεξεργαστή VBA.

2. Εισαγάγετε μια νέα ενότητα (ενότητα> μονάδα).

3. Επικολλήστε τον κώδικα στη μονάδα.

4. Αντικαταστήστε τους θέσεις κράτησης θέσης (όνομα φύλλου εργασίας, αξία για επικόλληση, γράμμα στήλης) με τις πραγματικές σας τιμές.

5. Εκτελέστε τη μακροεντολή πιέζοντας το F5 ή κάντε κλικ στο κουμπί "Εκτέλεση"

Σημείωση: Αυτός ο κώδικας υποθέτει ότι θέλετε να επικολλήσετε την τιμή στο πρώτο κενό κελί σε μια συγκεκριμένη στήλη. Εάν πρέπει να επικολλήσετε σε διαφορετική στήλη ή σειρά, ρυθμίστε το γράμμα της στήλης και τον αριθμό γραμμής στον κώδικα ανάλογα.