Comparar valores

[DANYY]

Bom dia, como devo proceder para localizar numeros iguais numa coluna, sendo que esses numeros iguais não estao sozinhos na célula. Por exemplo, preciso localizar numeros iguais de Notas Fiscais dentro da coluna H, só que na célula esta assim: "S/NF nº 0001", e ai tinha que ler somente o numero para localizar as notas iguais e ignorar os outros itens que estao na célula.

Desde já agradeço!

Editado Setembro 29, 2010 por DANYY
Adicionar tag's (Jonathan)

[DANYY]

Pessoal consegui fazer assim:

Dim val As String

Dim i, tam As Integer

i = 5

val = Range("H6").Value

tam = Len(val)

While i < tam

a = Mid(val, i, 5)

If IsNumeric(a) Then

Columns("I:I").Select

Selection.Insert Shift:=xlToRight

Range("I6").Value = Range("I6").Value & a

i = i + 1

Else

i = i + 1

End If

Wend

Dessa forma esta lendo a coluna H onde tem os caracteres alfanumericos e ai ele copia para a coluna I somente os caracteres numericos e a partir dai depois eu vou pedir pra classificar pela coluna I, até ai belezinha...Agora o problema esta sendo que quero que esse procedimento seja executado em todas as células da coluna H que é alfanumerica tentei alterar a linha onde esta o Range colocando Range("H6:H22").value, mais ai da erro... Como eu faço pra que esse procedimento seja executado em todas as celulas da coluna H que tiver o conteudo alfanumérico. Desde já Agradeço!