Quando escrevemos a codificação VBA para nos salvar do trabalho repetitivo, a seleção de dados desempenha um papel muito importante. Portanto, neste artigo você aprenderá como selecionar os dados por linha, coluna e dados de documentos inteiros por meio da codificação VBA no Microsoft Excel.
Você vai aprender:
- Como selecionar a coluna inteira?
- Como selecionar a linha inteira?
- Como selecionar dados inteiros?
Como selecionar uma coluna inteira por meio do VBA?
Temos dados no intervalo A1: C19, em que a coluna A contém Nome, a coluna B Sexo e a coluna C contém Idade.
Para selecionar a coluna A inteira nestes dados, siga as etapas e códigos fornecidos abaixo: -
- Abra a página VBA pressione a tecla Alt + F11
- Insira um módulo
- Escreva o código abaixo mencionado:
Sub Columnselect () Range ("A1"). Entirecolumn.Select End Sub
- Pressione a tecla F5 para executar a macro no Excel
- A coluna A será selecionada
Se você deseja que os dados sejam selecionados até a última célula ativa da coluna, siga as etapas e códigos mencionados abaixo: -
- Escreva o código abaixo mencionado: -
Sub Columnselect () lastrow = Worksheets ("Sheet1"). Cells (Rows.count, 1) .End (xlUp) .Row Worksheets ("Sheet1"). Range ("A1: A" & lastrow) .Select End Sub
Explicação do código: - Primeiro definiremos qual será a última célula ativa nos dados, e depois a última linha usaremos para definir o intervalo na codificação.
- Pressione a tecla F5 para executar a macro no Excel
- Coluna A1: A19 será selecionada
Desta forma, usando o VBA, você pode selecionar o código para selecionar a coluna até a última célula ativa. Quando não sabemos qual é a última célula ativa, podemos usar este código enquanto escrevemos o código VBA para a seleção no Microsoft Excel.
Como selecionar uma linha inteira por meio do VBA?
Temos dados no intervalo A1: C19, em que a coluna A contém Nome, a coluna B Sexo e a coluna C contém Idade.
Para selecionar a linha inteira nestes dados, siga as etapas e códigos fornecidos abaixo: -
- Abra a página VBA pressione a tecla Alt + F11
- Insira um módulo
- Escreva o código abaixo mencionado: -
Sub rowselect () Range ("A2"). WholeRow.Select End Sub
- Pressione a tecla F5 para executar a macro no Excel
- A coluna A será selecionada
Se você quiser que os dados sejam selecionados até a última célula ativa para linha, siga as etapas e o código mencionados abaixo: -
- Escreva o código abaixo mencionado: -
Sub rowselect () Dim lastcolumn As Long lastcolumn = Worksheets ("Sheet1"). Cells (1, Columns.count) .End (xlToLeft) .Column Worksheets ("Sheet1"). Range ("A1", Cells (1, lastcolumn) )). Selecione End Sub
Explicação do código: Neste código, definimos a última coluna primeiro, então a usaremos para definir o intervalo.
- Pressione F5 para executar a macro no Excel
- A primeira linha será selecionada até a última célula ativa da linha
Desta forma, podemos selecionar a linha inteira ou selecionar a linha até a última célula ativa no Microsoft Excel através do VBA.
Como selecionar dados inteiros por meio do VBA?
Vamos dar um exemplo e entender: -
Temos dados no intervalo A1: C19, em que a coluna A contém Nome, a coluna B Sexo e a coluna C contém Idade.
Para selecionar os dados da primeira célula à última célula ativa, siga as etapas e códigos fornecidos abaixo: -
- Abra a página VBA pressione a tecla Alt + F11
- Insira um módulo
- Escreva o código abaixo mencionado:
Sub Selectionoflastcell () Dim lastrow As Long, lastcolumn As Long lastrow = Worksheets ("Sheet1"). Cells (Rows.count, 1) .End (xlUp) .Row lastcolumn = Worksheets ("Sheet1"). Cells (1, Columns .count) .End (xlToLeft) .Column Worksheets ("Sheet1"). Range ("A1", Cells (lastrow, lastcolumn)). Selecione End Sub
Explicação do código: Primeiro definimos o nome do Assunto do Código e, em seguida, definimos todas as variáveis. Em seguida, definimos qual seria nossa última linha e última coluna.
- Pressione a tecla F5 para executar a macro no Excel
- Na planilha, todos os dados serão selecionados
Agora, se você deseja copiar os mesmos dados e colá-los, use o código abaixo mencionado: -
Sub Selectionoflastcell () Dim lastrow As Long, lastcolumn As Long lastrow = Worksheets ("Sheet1"). Cells (Rows.count, 1) .End (xlUp) .Row lastcolumn = Worksheets ("Sheet1"). Cells (1, Columns .count) .End (xlToLeft) .Column Worksheets ("Sheet1"). Range ("A1", Cells (lastrow, lastcolumn)). Copy Sheets ("Sheet2"). Range ("A1") End Sub
Execute o código, todos os dados serão copiados e colados na planilha2.
É assim que podemos escrever a macro para selecionar os dados da primeira célula à última célula ativa e depois colar em outra planilha do Microsoft Excel.
Se você gostou de nossos blogs, compartilhe com seus amigos no Facebook. E você também pode nos seguir no Twitter e no Facebook.
Gostaríamos muito de ouvir de você, diga-nos como podemos melhorar, complementar ou inovar nosso trabalho e torná-lo melhor para você. Escreva-nos no site de e-mail.