Selecionar várias células (cells)

[drreis]

Pessoal, eu estou tentando selecionar 2 colunas, coluna A e C através do cells, porém quando eu coloco o código abaixo também seleciona a coluna B

range(Cells(1, 1), Cells(4, 3)).Select

alguém poderia me ajudar

	A	C	B
1	teste		teste2
2	1		a
3	2		b
4	3		c

[Alyson Ronnan Martins]

Boa noite @drreis

Eu não sei se é uma seleção dinâmica porém o código abaixo é uma seleção estática:

Range("A:A,C:C").Select

 

Podendo também ser assim:

Range("A1:A10,C1:C10").Select

 

[drreis]

Boa noite!!

A seleção é dinâmica, por isso tentei usar cells

Editado Maio 14, 2021 por drreis

[Alyson Ronnan Martins]

Estão ficaria assim para saber qual a última linha:

Dim l As Long
l = ActiveSheet.cells(rows.Count, "A").end(xlup).row
Range("A1:A" & l & ",C1:C" & l).Select

 

[drreis]

Bom dia!

mais a coluna C que é dinâmica.

[Alyson Ronnan Martins]

Bom dia.

Então mudamos o variável L para coluna 😄

Dim l As Long
l = ActiveSheet.cells(rows.Count, "C").end(xlup).row
Range("A1:A" & l & ",C1:C" & l).Select

 

Editado Maio 15, 2021 por Alyson Ronnan Martins
Correção da variável

[drreis]

Obrigado pela ajuda, mais talvez não tenha ficado claro, a coluna C é dinâmica, no loop ela no 1º loop ela é a C, dps a E e assim por diante.

[Alyson Ronnan Martins]

Ainda não entendi kkkkk

Quando você diz loop é de duas em duas colunas? ou até ter conteúdo? ou ver qual o maior numero de linhas dentre essas colunas?

[drreis]

boa tarde!!

Eu montei um exemplo utilizando a função Endereço, porém não consegui selecionar somente as colunas A e D

Sub Macro1()
    
    endereco1 = Cells(1, 1).Address(RelativeTo = True, ColumnAbsolute = True)
    endereco2 = Cells(8, 1).Address(RelativeTo = True, ColumnAbsolute = True)
    endereco3 = Cells(1, 4).Address(RelativeTo = True, ColumnAbsolute = True)
    endereco4 = Cells(8, 4).Address(RelativeTo = True, ColumnAbsolute = True)
    selecao1 = endereco1 & ":" & endereco2
    selecao2 = endereco3 & ":" & endereco4
    
    Range(selecao1, selecao2).Select
    

'nesse forma de seleção dá certo, porém na forma acima selecionas as colunas A, B, C e D
    Range("A1:A8,D1:D8").Select
    
End Sub
 

[Alyson Ronnan Martins]

Troca essa parte:

'atual
Range(selecao1, selecao2).Select

'proposta
Range(selecao1 & " ," & selecao2).Select

 

[drreis]

deu certo.

obrigado.

[Alyson Ronnan Martins]

Show.