`` `excel
SubfindFirstempycellandpaste ()
Dim WS als Arbeitsblatt
Dimer Lastrow so lange
Dimem Pastwert als Variante
'Setzen Sie das Arbeitsblatt und den Wert zum Einfügen ein
Legen Sie WS =ThisWorkbook fest
PastValue ="Ihr Wert" ersetzen "Ihren Wert" durch den Wert, den Sie einfügen möchten
'Finden Sie die zuletzt gebrauchte Zeile in der Spalte
lastrow =ws
„Fügen Sie den Wert in die erste leere Zelle ein
Ws.Cells (Lastrow, "a"). value =Pastwert 'ändern "a" zu der Spalte, die Sie einfügen möchten
Ende sub
`` `
Erläuterung:
1. Variablen deklarieren:
- `ws`:repräsentiert das Arbeitsblatt, mit dem Sie arbeiten möchten.
- `lastrow`:speichert die Zeilennummer der zuletzt verwendeten Zelle in der angegebenen Spalte.
- `pastValue`:speichert den Wert, den Sie einfügen möchten.
2. Stellen Sie das Arbeitsblatt und den Wert zum Einfügen ein:
- Ersetzen Sie das "" Blatt1 "` durch den tatsächlichen Namen Ihres Arbeitsblatts.
- Ersetzen Sie `" Ihren Wert "` durch den Wert, den Sie einfügen möchten.
3. Finden Sie die letzte gebrauchte Zeile:
- `ws.cells (ws.rows.count," a "). End (XLUP) .ROW`:Diese Zeile findet die letzte nicht leere Zelle in der Spalte" a "(ersetzen" a "durch Ihre Spalte).
- `+ 1`:Fügt 1 zur letzten Zeile hinzu, um die erste leere Zelle in dieser Spalte zu erhalten.
4. Einfügen den Wert:
- `ws.cells (Lastrow," a "). value =pastValue`:Diese Zeile passt den Wert, der in" Pastetalue "in der ersten leeren Zelle in der Spalte" A "(Ersetzen Sie" A "A" durch Ihre Spalte).
Verwenden:
1. Drücken Sie Alt + F11, um den VBA -Editor zu öffnen.
2. Ein neues Modul einfügen (Einfügen> Modul).
3. Fügen Sie den Code in das Modul ein.
4. Ersetzen Sie die Platzhalter (Arbeitsblatt Name, Wert zum Einfügen, Spaltenbuchstaben) durch Ihre tatsächlichen Werte.
5. Makro ausführen, indem Sie F5 drücken oder auf die Schaltfläche "Ausführen" klicken.
Hinweis: In diesem Code geht davon aus, dass Sie den Wert in eine bestimmte Spalte in die erste leere Zelle einfügen möchten. Wenn Sie in eine andere Spalte oder Zeile einfügen müssen, passen Sie den Spaltenbuchstaben und die Zeilennummer im Code entsprechend ein.
