Como seleciono a última coluna preenchida em uma linha?

Question

Olá,

   Através de um ".find()" localizo uma palavra e salvo na variável "busca". Tal palavra pertence a uma célula mesclada. Por isso, para saber o nome da última coluna válida em sua linha, eu percorria célula por célula com um while e verificava, com um if, se ela era mesclada ou não vazia, então partia para a próxima até, finalmente, chegar à última célula daquela linha.

   No entanto, para encontrarmos a última célula preenchida em uma coluna, basta utilizarmos:

Set myrange = Range("A:" & Rows.count).End(xlUp).Select

  Gostaria, portanto, de uma fórmula simples assim para encontrar o contrário, a última célula não vazia de uma linha. Pensei em utilizar

Set myrange = cells(busca.row,columns.count).end(xlLeft).select

mas creio que não irá funcionar, pois ".end()" só existe para Range(), não Cells().

  O que fazer?

Answer 1

Agora não estou conseguindo nem pegar a última coluna de uma linha com

ultimalinha = Range("A:" & Rows.count).End(xlUp).Row

Por quê?

Answer 2

nem

  numlin = Range(Cells(Rows.count, 1)).End(xlUp).Row

não estou entendendo mais nada.

Answer 3

ultima linha vazia:

r = cells(rows.count,1).end(xlUp).Row

ultima coluna vazia:

c = cells(NumeroLinha,columns.count).end(xlToLeft).Column 

---

Caio Vitullo