Este tutorial mostrará como usar a propriedade Range.End no VBA.
A maioria das coisas que você faz manualmente em uma pasta de trabalho ou planilha do Excel pode ser automatizada em código VBA.
Se você tiver um intervalo de células não em branco no Excel e pressionar Ctrl + Seta para Baixo, seu cursor se moverá para a última célula não vazia na coluna em que você está. Da mesma forma, se você pressionar Ctl + seta para cima, o cursor se moverá para a primeira célula não vazia. O mesmo se aplica a uma linha usando o Ctrl + Seta para a direita ou Ctrl + Seta para a Esquerda para ir para o início ou fim dessa linha. Todas essas combinações de teclas podem ser usadas em seu código VBA usando o Função Final.
Sintaxe de propriedade de fim de intervalo
A propriedade Range.End permite que você vá para uma célula específica na região atual com a qual está trabalhando.
expressão.Fim (Direção)
a expressão é o endereço da célula (intervalo) da célula de onde você deseja começar, por exemplo: intervalo (“A1”)
END é a propriedade do objeto Range que está sendo controlado.
A direção é a constante do Excel que você pode usar. Existem 4 opções disponíveis - xlDown, xlToLeft, xlToRight e xlUp.
Movendo para a última célula
O procedimento a seguir o moverá para a última célula na região atual de células em que você está.
| 1234 | Sub GoToLast ()'mover para a última célula ocupada na região atual de célulasIntervalo ("A1"). Fim (xlDown) .SelecioneEnd Sub |
Contando Linhas
O procedimento a seguir permite que você use o xlDown constante com a propriedade Range End para contar quantas linhas existem em sua região atual.
| 12345678 | Sub GoToLastRowofRange ()Dim rw As IntegerIntervalo ("A1"). Selecione'obtém a última linha na região atualrw = Intervalo ("A1"). Fim (xlDown) .Linha'mostra quantas linhas são usadasMsgBox "A última linha usada neste intervalo é" & rwEnd Sub |
Enquanto o abaixo contará as colunas no intervalo usando o xlToRight constante.
| 12345678 | Sub GoToLastCellofRange ()Dim col As IntegerIntervalo ("A1"). Selecione'obtém a última coluna na região atualcol = Range ("A1"). End (xlToRight) .Column'mostra quantas colunas são usadasMsgBox "A última coluna usada neste intervalo é" & colEnd Sub |
Criação de uma matriz de intervalo
O procedimento a seguir nos permite começar na primeira célula em um intervalo de células e, em seguida, usar a propriedade End (xlDown) para localizar a última célula no intervalo de células. Podemos então ReDim nosso array com o total de linhas no Range, permitindo-nos percorrer o intervalo de células.
| 123456789101112131415161718 | Sub PopulateArray ()'declara o arrayDim strSuppliers () As String'declara o inteiro para contar as linhasDim n As Integer'contar as linhasn = Intervalo ("B1", Intervalo ("B1"). Fim (xlDown)). Linhas.Contagem'inicializar e preencher o arrayReDim strCustomers (n)'declara o inteiro para loopDim i As Integer'preencher a matrizPara i = 0 para nstrCustomers (i) = Intervalo ("B1"). Offset (i, 0) .ValueProximo eu'mostra a caixa de mensagem com os valores da matrizMsgBox Join (strCustomers, vbCrLf)End Sub |
Quando executarmos este procedimento, ele retornará a seguinte caixa de mensagem.
