Guru do Excel e Power BI

Olá pessoal,

Sou novato em relação a trabalhar com VBA então eu preciso de uma ajuda.
Como eu faço para Localizar uma String e automaticamente Salvar esses dados em uma arrray?

Objetivo Muito simples, eu preciso pegar os APTOS com 4 Números e Preencher o fundo no tom de cinza. Preencher é fácil.

Mas o problema para mim, é localizar todas as células que possuem 4 números. Então eu pensei em colocar uma Array e nessa Array fazer toda configuração.

Agradeço desde já.

Você poderia usar uma estrutura de repetição, seria algo como:

For a = 1 to Plan2.range("a1048576").end(xlup).row
if LEN(plan2.cells(a,1)) >= 9 THEN
plan2.cells(a,1) .interior.colorindex = 15
end if
next

Entendi a lógica, O meu problema, é bem maior. Eu realmente preciso retornar a célula, Por que tenho dados em várias colunas.



Quando a Situação estiver disponível, eu realmente terei que Selecionar as células de Situação "Disponível", e depois que estiver tudo selecionado, eu precisarei preencher de Cinza um exemplo.