VBA – Endereço de Intervalo/Célula

Este tutorial demonstrará como obter o endereço de uma célula.

Obter Endereço do objeto “Range”

Isso exibirá o endereço da célula usando o objeto Range:

MsgBox Range("A1").Address

Obter Endereço do objeto “Cells”

Isso exibirá o endereço da célula usando o objeto Cells:

MsgBox Cells(1,1).Address

Endereço ActiveCell

Para obter o endereço da ActiveCell, use este código:

MsgBox ActiveCell.Address

Definir Variável para o Endereço da Célula

Você também pode atribuir o endereço da célula a uma variável de cadeia de caracteres para facilitar o uso em seu código:

Dim strEndereco As String
strEndereco = Range("A1").Address

MsgBox strEndereco

Obter o Número da Linha do Endereço da Célula

Esse código extrairá o número da linha de um endereço:

Sub ObterNumeroLinhaCelula()
Dim strEndereco As String
Dim NumLinha As Long

strEndereco = Range("A1:a10").Address

NumLinha = Range(strEndereco).Row

MsgBox NumLinha 

End Sub

No entanto, geralmente você pode usar esse código muito mais simples:

MsgBox Range("A1").Row