Excel VBA: Como selecionar apenas valores numéricos em um intervalo?

Question

Eu usei Range.Find para localizar uma string chamada "Qty", agora eu quero selecionar todos os números nessa coluna.

Eu usaria .End (xlDown) para obter a última linha, no entanto, a última célula usada nessa coluna não é um número, mas texto, e eu não a quero na minha seleção.

Então, eu gostaria de saber como selecionar o intervalo que consiste apenas em quatities, para que eu possa copiá-lo em outra pasta de trabalho.

Obrigado.

    

Answer 1

Digamos que você encontre a palavra "qty" e queira selecionar os números entre essa célula e a célula inferior. Use o atributo de deslocamento -

Sub test()
Dim qty As Range
Dim qtylast As Range
Set qty = Range("A1:H1").Find("qty")
Set qtylast = qty.End(xlDown)

Range(qty.Offset(1), qtylast.Offset(-1)).Select

End Sub