Vba: como selecionar um intervalo em uma célula ativa

Você pode usar os seguintes métodos no VBA para selecionar um intervalo de células no Excel a partir da célula atualmente ativa:

Método 1: selecione o intervalo inferior da célula ativa

 SubSelectActiveDown ()
Range(ActiveCell, ActiveCell.End(xlDown)).Select
End Sub

Esta macro selecionará o intervalo da célula ativa até a última célula usada na coluna.

Método 2: selecione Range Up na célula ativa

 SubSelectActiveUp ()
Range(ActiveCell, ActiveCell.End(xlUp)).Select
End Sub

Esta macro selecionará o intervalo da célula ativa até a primeira célula usada na coluna.

Método 3: selecione o intervalo à direita da célula ativa

 SubSelectActiveRight ()
Range(ActiveCell, ActiveCell.End(xlToRight)).Select
End Sub

Esta macro selecionará o intervalo da célula ativa até a última célula usada à direita na mesma linha.

Método 4: selecione o intervalo à esquerda na célula ativa

 SubSelectActiveLeft ()
Range(ActiveCell, ActiveCell.End(xlToLeft)).Select
End Sub

Esta macro selecionará o intervalo da célula ativa até a última célula usada à esquerda na mesma linha.

Os exemplos a seguir mostram como usar cada método com a seguinte planilha no Excel:

Exemplo 1: Selecione o intervalo inferior da célula ativa

Suponha que a célula C3 esteja selecionada no momento.

Podemos criar a seguinte macro para selecionar o intervalo da célula ativa até a última célula usada na coluna:

 SubSelectActiveDown ()
Range(ActiveCell, ActiveCell.End(xlDown)).Select
End Sub

Quando executamos esta macro, o seguinte intervalo é selecionado automaticamente:

Observe que o intervalo da célula C3 até a última célula usada na coluna agora está selecionado.

Exemplo 2: Selecione o intervalo acima da célula ativa

Suponha que a célula C3 esteja selecionada no momento.

Podemos criar a seguinte macro para selecionar o intervalo da célula ativa até a primeira célula usada na coluna:

 SubSelectActiveUp ()
Range(ActiveCell, ActiveCell.End(xlUp)).Select
End Sub

Quando executamos esta macro, o seguinte intervalo é selecionado automaticamente:

Observe que o intervalo da célula C3 até a primeira célula usada na coluna agora está selecionado.

Exemplo 3: Selecione o intervalo à direita da célula ativa

Suponha que a célula B2 esteja selecionada no momento.

Podemos criar a seguinte macro para selecionar o intervalo da célula ativa até a última célula usada à direita na mesma linha:

 SubSelectActiveRight ()
Range(ActiveCell, ActiveCell.End(xlToRight)).Select
End Sub

Quando executamos esta macro, o seguinte intervalo é selecionado automaticamente:

Observe que o intervalo da célula B2 até a última célula usada à direita na mesma linha agora está selecionado.

Exemplo 4: Selecione o intervalo à esquerda na célula ativa

Suponha que a célula D6 esteja selecionada no momento.

Podemos criar a seguinte macro para selecionar o intervalo da célula ativa até a última célula usada à esquerda na mesma linha:

 SubSelectActiveLeft ()
Range(ActiveCell, ActiveCell.End(xlToLeft)).Select
End Sub

Quando executamos esta macro, o seguinte intervalo é selecionado automaticamente:

Observe que o intervalo da célula D6 até a última célula usada à esquerda na mesma linha agora está selecionado.

Recursos adicionais

Os tutoriais a seguir explicam como realizar outras tarefas comuns em VBA:

VBA: Como encontrar a última linha usada
VBA: Como encontrar a última coluna usada
VBA: como inserir múltiplas linhas