Como usar o VBA para ir para a última linha em uma folha de excel

Localizar a última linha usando o Visual Basic for Applications (VBA) no Excel.

Aprender a utilizar o Visual Basic for Applications (VBA) no Excel você pode economizar tempo na busca de dados em uma planilha. Microsoft Excel, um aplicativo de planilha incluído no Microsoft Office, dá-lhe as ferramentas para analisar dados facilmente usando fórmulas para cálculos complexos. Use VBA para automatizar tarefas de rotina em Excel ou outras aplicações do Microsoft Office.

  • Abra o Microsoft Excel 2007, clique no "Desenvolvedor" guia e selecione "Visual básico."

    Digitar "Sub goToLastRow ()" e pressione "Entrar" para criar uma nova sub.

  • Digite o seguinte texto para criar variáveis:

    "Dim lastRow As Integer

    Dim X As Integer"

  • Digitar "Para X = 1 a 25

    Alcance("UMA" &Amp- X) .Select

    ActiveCell.Value = "Adicionar dados para a linha de número: " &Amp- X



    Próximo X

    Alcance("A26") .Select

    ActiveCell.Value = " "

    Alcance("A27") .Select

    ActiveCell.Value = " "" para criar um laço que irá adicionar dados para as primeiras 25 linhas. Adicionar um "espaço" para as duas últimas linhas.

  • Digitar "lastRow = ActiveSheet.UsedRange.Rows.Count" para obter a última linha.

    Digitar "MsgBox." A última linha desta planilha é: " & lastRow" para exibir a última linha através de uma caixa de mensagem.

  • Digitar "End Sub" se necessário. Executar o seu novo sub e você verá uma caixa de mensagem com "A última linha desta planilha é: 27".

dicas & avisos

  • Seu novo sub deve ficar assim:
  • "Sub goToLastRow ()
  • Dim lastRow As Integer
  • Dim X As Integer
  • Para X = 1 a 25
  • Alcance("UMA" & X) .Select
  • ActiveCell.Value = "Adicionar dados para a linha de número: " & X
  • Próximo X
  • Alcance("A26") .Select
  • ActiveCell.Value = " "
  • Alcance("A27") .Select
  • lastRow = ActiveSheet.UsedRange.Rows.Count
  • MsgBox "A última linha desta planilha é: " & lastRow
  • End Sub"
De esta maneira? Compartilhar em redes sociais:

LiveInternet