As folhas de Excel contêm frequentemente grandes quantidades de dados que podem ser esmagadores para navegar. Uma forma de racionalizar as suas folhas é apagar linhas desnecessárias. Isto pode ser feito manualmente, mas quando se lida com uma grande quantidade de dados, é muito mais eficiente usar código VBA (Visual Basic for Applications) para automatizar o processo. Neste artigo, discutiremos como apagar uma linha se o texto for igual a VBA no Excel usando código VBA.
Primeiro, precisamos de abrir o Editor Visual Basic. Isto pode ser feito premindo Alt + F11 ou indo para o separador Desenvolvedor e clicando em Visual Basic. Quando o editor estiver aberto, precisamos de inserir um novo módulo. Para o fazer, vá a Inserir > Módulo.
Sub DeleteRows()
Dim i As Long
For i = ActiveSheet.UsedRange.Rows.Count To 1 Step -1
If InStr(1, Cells(i, 1), “VBA”) > 0 Then
Rows(i).Delete
End Se
Next i
End Sub
Vamos decompor o que este código faz. A primeira linha define um sub-procedimento chamado “DeleteRows”. A linha seguinte declara uma variável i como um tipo de dados Longos. O laço For começa na última linha do intervalo usado na folha activa e conta para trás até à primeira linha (Passo -1).
A declaração If verifica se o valor na primeira coluna da linha actual contém o texto “VBA”. Se contém, a linha inteira é apagada utilizando o método de Linhas. Finalmente, o laço passa para a linha seguinte até que todas as linhas tenham sido verificadas.
Para executar este código, temos de voltar à folha de Excel e seleccionar o intervalo de dados a que queremos aplicar o código. Depois, voltar ao Editor Visual Basic e executar o sub-procedimento DeleteRows clicando na seta verde ou pressionando F5.
Em conclusão, a utilização de código VBA para apagar linhas no Excel pode poupar muito tempo e esforço, especialmente quando se lida com grandes quantidades de dados. O código que discutimos aqui é apenas um exemplo de como o VBA pode ser usado para automatizar tarefas no Excel. Com um pouco de prática e experimentação, pode criar o seu próprio código VBA para racionalizar as suas folhas de Excel e tornar o seu trabalho mais eficiente.
Para apagar uma linha baseada num valor de célula em Excel VBA, pode usar os seguintes passos:
1. Declare uma variável para guardar o valor da célula que pretende pesquisar na folha de trabalho.
2. Faça um laço através das linhas da folha de trabalho utilizando um Para Próximo laço.
3. utilizar uma declaração If para verificar se o valor na célula especificada corresponde à variável que declarou no passo 1.
4. se o valor corresponder, utilizar o método Eliminar para eliminar a linha inteira.
5. Continue a fazer o laço através do resto das linhas até todas as linhas terem sido verificadas.
Aqui está um exemplo de trecho de código que demonstra como apagar uma linha com base num valor de célula em Excel VBA:
Sub DeleteRowByCellValue()
Dim searchValue As String
Dim lastRow As Long
Dim i As Long
SearchValue = “delete me”
lastRow = ActiveSheet.Cells(Rows.Count, “A”).End(xlUp).Row
For i = lastRow To 1 Step -1
If Cells(i, “A”).Valor = pesquisarValor Então
Linhas(i).Eliminar
Fim Se
Seguinte i
Fim Sub
“
Neste exemplo, o código procura o valor “delete me” na coluna A da folha de trabalho activa e apaga quaisquer linhas que contenham esse valor. É possível modificar a variável searchValue e a referência da coluna para se adequar às suas necessidades específicas.
Para apagar uma linha no Excel com base em texto, pode seguir estes passos:
1. Abra a folha de trabalho do Excel que contém os dados de onde pretende apagar uma linha.
2. Seleccione a linha que contém o texto que pretende apagar. Para o fazer, clique no número da linha no lado esquerdo da folha de trabalho.
3. clique no botão “Find & Select” na secção “Editing” do separador Home na fita Excel.
4. seleccione a opção “Find” (Procurar) no menu pendente.
5. na caixa de diálogo “Find and Replace” que aparece, introduza o texto que pretende procurar no campo “Find what”.
6. Clique no botão “Procurar tudo” para procurar todas as instâncias do texto na folha de trabalho.
7. Seleccione todas as linhas que contêm o texto, mantendo premida a tecla “Ctrl” no teclado e clicando em cada número de linha do lado esquerdo da folha de trabalho.
8. Clique com o botão direito do rato em qualquer uma das linhas seleccionadas e seleccione “Delete” (Apagar) no menu de contexto que aparece.
9. Na caixa de diálogo “Apagar” que aparece, seleccionar a opção “Linha inteira” e clicar no botão “OK” para apagar as linhas seleccionadas.
Após completar estes passos, todas as linhas que contenham o texto especificado serão apagadas da folha de trabalho. É importante notar que esta acção não pode ser desfeita, por isso deve certificar-se de verificar duas vezes as suas selecções antes de apagar quaisquer dados.
Para apagar uma linha se esta contiver um valor específico em Excel, pode usar os seguintes passos:
1. Abra a folha de trabalho do Excel que contém os dados que pretende editar.
2. Seleccione a folha de trabalho inteira clicando na caixa localizada no canto superior esquerdo da folha de trabalho onde os cabeçalhos das linhas e colunas se encontram.
3. Clique no separador “Home” no menu da fita e seleccione “Find & Select” na secção “Editing”.
4. Escolha “Ir para Especial” no menu suspenso.
5. na caixa de diálogo “Ir para Especial”, seleccionar “Constantes” e clicar em “OK”.
6. na caixa de diálogo “Ir para Especial”, seleccionar “Valores” e clicar em “OK”.
7. Isto irá seleccionar todas as células da folha de trabalho que contenham valores.
8. Prima “Ctrl” + “-” (sinal de menos) no seu teclado para apagar as linhas seleccionadas.
9. Na caixa de diálogo “Eliminar”, seleccione “Linha inteira” e clique em “OK”.
10. Isto irá apagar todas as linhas que contenham valores nas células seleccionadas.
11. Guarde as suas alterações na folha de trabalho Excel assim que tiver terminado de apagar as linhas.