Como apagar rapidamente todas as outras linhas do Excel?

Como apagar rapidamente todas as outras linhas do Excel?

Se quiser apagar rapidamente todas as outras linhas ou colunas do Excel, o ponto principal é como selecionar rapidamente todas as outras linhas ou colunas primeiro e depois aplicar a operação de apagar a elas. E este artigo mostrará algumas coisas complicadas sobre como selecionar primeiro cada outra linha ou coluna e, em seguida, excluí-las rapidamente.

Apagar todas as outras linhas no Excel com o comando Filtro

Apagar todas as outras linhas no Excel com o código VBA

Apagar todas as outras linhas ou colunas no Excel com Kutools para Excel

Apagar todas as outras linhas do Excel com o comando Filter

O comando Filter do Microsoft Excel pode ajudá-lo a filtrar rapidamente todas as outras linhas e depois apagá-las de uma só vez, por favor, faça o seguinte:

1. Em uma coluna em branco, além dos dados originais, insira 0,1,0,1…,0,1. Neste caso, digite os números na coluna C do helper. Veja a seguinte captura de tela:

2. Selecione a coluna C, e clique no botão Filtrar na guia Dados. Depois clique no botão de seta ao lado de C1, e marque apenas o 0 sob a opção Select All (Selecionar tudo). Veja screenshot:

3. Depois todas as linhas com 1 estão ocultas. Selecione as linhas visíveis com 0, e clique na opção Início > Apagar > Apagar linhas de folhas para apagar essas linhas. Depois apaga todas as outras linhas, e você precisa clicar novamente no botão Filtro para mostrar apenas as linhas com 1. Veja screenshots:

>

4. Finalmente, você pode excluir a coluna C do helper conforme você precisar.

Excluir cada outra linha do Excel com código VBA

Atualmente, a macro VBA também é uma boa escolha para resolver este problema.

1. Mantenha pressionadas as teclas Alt + F11 no Excel, e abre a janela Microsoft Visual Basic for Applications.

2. Clique em Insert > Module, e cole a seguinte macro na janela Module Window.

VBA code: Apague todas as outras linhas da seleção:

Sub DeleteEveryOtherRow()'Updateby ExtendofficeDim rng As RangeDim InputRng As RangexTitleId = "KutoolsforExcel"Set InputRng = Application.SelectionSet InputRng = Application.InputBox("Range :", xTitleId, InputRng.Address, Type:=8)Application.ScreenUpdating = FalseFor i = InputRng.Rows.Count To 1 Step -2 Set rng = InputRng.Cells(i, 1) rng.EntireRow.DeleteNextApplication.ScreenUpdating = TrueEnd Sub

3. Pressione a tecla F5 para executar esta macro. Em seguida, um diálogo aparece para selecionar um intervalo. Veja screenshot:

4. Depois clique em OK, todas as outras linhas do intervalo seleccionado da segunda linha são apagadas de uma só vez, veja a captura de ecrã:

Apagar todas as outras linhas ou colunas do Excel com Kutools para Excel

Para um usuário iniciante do Microsoft Excel, usar macro VBA é um pouco complicado. A utilidade Selecionar Linhas de Intervalo & Colunas do Kutools para Excel pode ajudá-lo a apagar rapidamente todas as outras linhas.

Kutools para Excel : com mais de 300 úteis add-ins para Excel, grátis para tentar sem limitação em 30 dias.

Após instalar Kutools para Excel, por favor faça o seguinte:

1. Selecione o intervalo que você deseja excluir todas as outras linhas, e então aplique este utilitário clicando no Kutools > Selecione > Selecione Interval Rows & columns….

2. Na caixa de diálogo Selecionar Linhas de Intervalo & Colunas, especifique as configurações como a seguinte captura de tela mostrada, e clique no botão OK para selecionar primeiro todas as outras linhas.

3. Em seguida, todas as outras linhas da seleção são selecionadas e destacadas. Veja screenshot:

4. Depois pode apagar rapidamente todas as outras linhas seleccionadas clicando em Home > Delete > Delete sheet lines to delete all of these rows. Veja screenshots:

Clique para saber mais sobre este recurso Selecionar Linhas de Intervalo & Colunas.

Com este recurso, você também pode excluir cada enésima linha ou coluna, conforme necessário.

Baixe e teste grátis Kutools para Excel Now!

Demo: Apague todas as outras linhas ou colunas com Kutools para Excel