Este fórum está sendo desativado

[BrunoLuiel]

Olá colegas!

Estou tentando fazer uma substituição de ponto por vírgula em colunas específicas e linhas específicas:

Passo 1 - substituir ponto por vírgula os conteúdos das linhas 2, 7 e 10 da coluna A
Passo 2 - substituir ponto por vírgula os conteúdos das linhas 2, 7 e 10 da coluna F
Passo 3 - substituir ponto por vírgula os conteúdos das linhas 2, 7 e 10 da coluna J

Como podem ver não há uma lógica, por isso pensei que poderia fazer uma lista das colunas e uma lista das linhas, mas não estou conseguindo fazer rodar o código:

Código: Selecionar todos

sub substituiPontoPorVirgula ()
    colunas = ("A", "F", "J")
    Linhas = (2, 7, 10)
    for col in range (colunas)
        for lin in range(Linhas)
         replace(range(col & lin), ".", ",")
    next
next
end sub

[osvaldomp]

Experimente:

Código: Selecionar todos

Sub SubstituiPontoPorVírgula()
 Range("A2,A7,A10,F2,F7,F10,J2,J7,J10").Replace ".", ","
End Sub