Página 1 de 1

como fazer um for com itervalos específicos?

Enviado: 10 Out 2022 às 16:19
por 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

Re: como fazer um for com itervalos específicos?

Enviado: 10 Out 2022 às 18:01
por osvaldomp
Experimente:
Código: Selecionar todos
Sub SubstituiPontoPorVírgula()
 Range("A2,A7,A10,F2,F7,F10,J2,J7,J10").Replace ".", ","
End Sub