Sua planilha contempla os códigos de área na mesma célula também? É importante saber. É possível fazer até mesmo por fórmulas, sem precisar de VBA.

Não tem DDD, apenas os 8 dígitos.

Acabei usando a formatação personalizada de célula no esquema 9########, mas o ideal era resolver via código.

Segue o código via fórmula

supondo que o número esteja em A1

=SE(E(OU(ESQUERDA(A1;1) = "9";ESQUERDA(A1;1) = "8");NÚM.CARACT(A1) = 8);CONCATENAR(9;A1))

Segue via VBA

supondo que os números estejam na coluna A

Sub nonodigito()
Dim i As Integer
i = 1
Do While Cells(i, 1).Value <> ""
If Left(Cells(i, 1).Value, 1) = "8" Or Left(Cells(i, 1).Value, 1) = "9" And Len(Cells(i, 1).Value) = 8 Then
Cells(i, 1).Value = "9" & Cells(i, 1).Value
Else
Cells(i, 1).Value = Cells(i, 1).Value
End If
i = i + 1
Loop

End Sub

De forma simples

Supondo que os telefones estejam na coluna A

E tb supondo que todos eles possuam apenas 8 digitos

=9&A1

Arraste ate o final.

Copie a coluna e COLE VALORES NA COLUNA A ( NO CASO A COLUNA COM TELEFONES)

Mais simples que isso impossivel.

De forma simples

Supondo que os telefones estejam na coluna A

E tb supondo que todos eles possuam apenas 8 digitos

=9&A1

Arraste ate o final.

Copie a coluna e COLE VALORES NA COLUNA A ( NO CASO A COLUNA COM TELEFONES)

Mais simples que isso impossivel.

MPrudencio acontece que usando

=9&A1

voce estaria supondo várias coisas, supondo que ele tem 8 dígitos apenas, supondo que ele começaria com 8 ou 9...

a pergunta original

E aí galera,

como posso fazer pra incluir o número 9 antes dos números de telefone que tenho em uma planilha.
A única observação é que tem que ser em números que atualmente tem 8 dígitos e iniciam em 8 ou 9.

Desde já, agradeço a ajuda.

logo em seguida, a observação para que fosse resolvido via código

Não tem DDD, apenas os 8 dígitos.

Acabei usando a formatação personalizada de célula no esquema 9########, mas o ideal era resolver via código.

usando apenas

=9&A1

ele teria que fazer uma seleção manual, em uma lista onde pudesse conter 100, 200, 300 ou mais números, o que deixaria o trabalho mais lento

Amigo se ele precisa inserir o nono digito sub entende-se que o cadastro so tenha numeros de celular e 8 digitos..

Logo o que sugeri funciona

Mas tudo bem

.
Syrax, testa aí ... supondo os telefones em A2:A1000 ... =SE(E(OU(ESQUERDA(A2;1)="9";ESQUERDA(A2;1)="8");NÚM.CARACT(A2)=8);9&A2;A2) ... arrasta até o final ...
.

Segue o código via fórmula

supondo que o número esteja em A1

=SE(E(OU(ESQUERDA(A1;1) = "9";ESQUERDA(A1;1) = "8");NÚM.CARACT(A1) = 8);CONCATENAR(9;A1))

--------------------------------------------------------
.
Ops!! ... Só agora vi que a pergunta é do Anderson, e o syrak já tinha postado a mesma formula kk (só faltou o resultado para o caso de não ser nenhuma das opções)!!! ... Ou seja, parece que o tópico já está resolvido!!
.

 

Obrigado pela resposta.
Só vou conseguir testar na segunda-feira, mas depois confirmo aqui se deu certo.

Segue o código via fórmula

supondo que o número esteja em A1

=SE(E(OU(ESQUERDA(A1;1) = "9";ESQUERDA(A1;1) = "8");NÚM.CARACT(A1) = 8);CONCATENAR(9;A1))

Segue via VBA

supondo que os números estejam na coluna A

Sub nonodigito()
Dim i As Integer
i = 1
Do While Cells(i, 1).Value <> ""
If Left(Cells(i, 1).Value, 1) = "8" Or Left(Cells(i, 1).Value, 1) = "9" And Len(Cells(i, 1).Value) = 8 Then
Cells(i, 1).Value = "9" & Cells(i, 1).Value
Else
Cells(i, 1).Value = Cells(i, 1).Value
End If
i = i + 1
Loop

End Sub