Sub findfirstemptycellandpaste ()
Dim WS como hoja de trabajo
Dim Lastrow tanto tiempo
Pastavalia tenue como variante
'Establezca la hoja de trabajo y el valor para pegar
Establecer ws =thisworkbook.worksheets ("hoja1") 'Cambiar "Hoja1" a su nombre de hoja real
pasteValue ="su valor" 'reemplazar "su valor" con el valor que desea pegar
'Encuentra la última fila usada en la columna
Lasstrow =ws.Cells (ws.rows.count, "a"). End (xlup) .Row + 1 'Cambiar "A" a la columna que desea buscar
'Pega el valor a la primera celda vacía
Ws.Cells (Lastrow, "A"). Value =Pastevalue 'Cambiar "A" a la columna que desea pegar
Final
`` `` ``
Explicación:
1. Declarar variables:
- `WS`:representa la hoja de trabajo con la que desea trabajar.
- `LASTROW`:almacena el número de fila de la última celda usada en la columna especificada.
- `Pastavalue ':almacena el valor que desea pegar.
2. Establezca la hoja de trabajo y el valor para pegar:
- Reemplace `" Hoja1 "` con el nombre real de su hoja de trabajo.
- Reemplace `" su valor "` con el valor que desea pegar.
3. Encuentra la última fila usada:
- `Ws.Cells (ws.rows.count," A "). End (xlup) .row`:esta línea encuentra la última celda no vacía en la columna" A "(reemplazar" A "con su columna).
- `+ 1`:agrega 1 a la última fila para obtener la primera celda vacía en esa columna.
4. Pegue el valor:
- `Ws.Cells (LASTROW," A "). Value =PasteValue`:Esta línea pasea el valor almacenado en` pastevalue` a la primera celda vacía en la columna "A" (reemplace "A" con su columna).
Cómo usar:
1. Presione Alt + F11 para abrir el editor VBA.
2. Inserte un nuevo módulo (Insertar> Módulo).
3. Pegue el código en el módulo.
4. Reemplace los marcadores de posición (nombre de la hoja de trabajo, valor para pegar, letra de columna) con sus valores reales.
5. Ejecute la macro presionando F5 o haciendo clic en el botón "Ejecutar".
nota: Este código supone que desea pegar el valor en la primera celda vacía en una columna específica. Si necesita pegar en una columna o fila diferente, ajuste la letra de la columna y el número de fila en el código en consecuencia.