`` `Excel
Sub findfirstemptyCellandPaste ()
Dim WS como planilha
Dim lastrow por tanto tempo
Dim PastEvalue como variante
'Defina a planilha e o valor para colar
Definir ws =thisworkbook.worksheets ("Sheet1") 'alteração "Sheet1" para o nome da sua folha real
PASTEVALUE ="Seu valor" 'Substitua seu valor "pelo valor que você deseja colar
'Encontre a última linha usada na coluna
lastrow =ws.cells (ws.rows.count, "a"). end (xlup) .row + 1 'altere "a" para a coluna que você deseja pesquisar
'Cole o valor na primeira célula vazia
WS.CELLS (LASTROW, "A").
Final sub
`` `
Explicação: 1.
declarar variáveis: - `ws`:representa a planilha com a qual você deseja trabalhar.
- `lastrow`:armazena o número da linha da última célula usada na coluna especificada.
- `PASTEVALUE`:armazena o valor que você deseja colar.
2.
Defina a planilha e o valor para colar: - Substitua `" Sheet1 "` pelo nome real da sua planilha.
- Substitua `" seu valor "` pelo valor que você deseja colar.
3.
Encontre a última linha usada: - `ws.cells (ws.rows.count," a "). end (xlup) .row`:esta linha encontra a última célula não vazia na coluna" a "(substitua" a "pela sua coluna).
- `+ 1`:adiciona 1 à última linha para obter a primeira célula vazia nessa coluna.
4.
Cole o valor: - `ws.cells (lastrow," a "). value =PASTEVEVALUE`:esta linha passa o valor armazenado em` pastEvalue` na primeira célula vazia na coluna "a" (substitua "a" pela sua coluna).
Como usar: 1.
Pressione Alt + F11 para abrir o editor VBA. 2.
Insira um novo módulo (inserir> módulo). 3.
Cole o código no módulo. 4.
Substitua os espaços reservados (nome da planilha, valor para colar, carta de coluna) por seus valores reais. 5.
Execute a macro pressionando F5 ou clicando no botão "Executar". Nota: Este código pressupõe que você queira colar o valor na primeira célula vazia em uma coluna específica. Se você precisar colar em uma coluna ou linha diferente, ajuste a letra da coluna e o número da linha no código de acordo.
