Bom dia,
Seguem 2 códigos de exemplo.
O primeiro insere os números convertidos numa nova coluna:
Sub Converter()
'Declara a variável i como número longo
Dim i As Long
'Laço "For" para percorrer toda coluna "A"
'começando da linha 2 até a última linha
'onde há dados
For i = 2 To [A1].CurrentRegion.Rows.Count
'Conversão do valor da célula (texto) em
'um número longo
Cells(i, 6).Value = CLng(Cells(i, 1).Value)
Next
End Sub
O segundo substitui o texto, pelo número que foi convertido, na própria célula:
Sub Converter2()
Dim i As Long
For i = 2 To [A1].CurrentRegion.Rows.Count
Cells(i, 1).Value = CLng(Cells(i, 1).Value)
Next
End Sub
Abraço
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
Postado : 10/02/2015 7:13 am