Como excluir tudo exceto os intervalos selecionados no Excel?
No Excel, podemos excluir rapidamente e diretamente os intervalos selecionados, mas você já tentou excluir o conteúdo de outras células, exceto os intervalos selecionados? Neste artigo, vou apresentar alguns truques para ajudá-lo a resolver essa tarefa no Excel de forma rápida e fácil.
Excluir tudo exceto os intervalos selecionados com código VBA
Excluir tudo exceto os intervalos selecionados com o Assistente de Intervalo do Kutools para Excel
Excluir tudo exceto os intervalos selecionados com Copiar Faixas do Kutools para Excel
Excluir tudo exceto os intervalos selecionados com código VBA
Não há uma maneira direta de excluir todos os valores das células não selecionadas de uma só vez, mas o seguinte código VBA pode ajudá-lo, por favor, siga as instruções abaixo:
1. Por favor, mantenha a tecla Ctrl pressionada para selecionar as células que deseja manter.
2. Pressione simultaneamente as teclas Alt + F11 para abrir a janela Microsoft Visual Basic for Applications.
3. Na caixa de diálogo Microsoft Visual Basic for Applications, clique em Inserir > Módulo, depois copie e cole o código VBA abaixo na janela Módulo.
Código VBA: excluir todos os valores das células exceto os intervalos selecionados
Sub ClearAllExceptSelection()
'updateby Extendoffice
Dim xRg As Range
Dim xCell As Range
Dim xAddress As String
Dim xUpdate As Boolean
On Error Resume Next
xAddress = Application.ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Please select the ranges want to keep", "Kutools for Excel", xAddress, , , , , 8)
If xRg Is Nothing Then Exit Sub
xUpdate = Application.ScreenUpdating
Application.ScreenUpdating = False
For Each xCell In ActiveSheet.UsedRange
If Intersect(xCell, xRg) Is Nothing Then
xCell.Clear
End If
Next
Application.ScreenUpdating = xUpdate
End Sub
4. Em seguida, pressione a tecla F5 para executar este código, e uma caixa de aviso será exibida para lembrá-lo de selecionar o intervalo de células que deseja manter; se você já selecionou os intervalos na etapa 1, clique em OK; caso contrário, você pode selecionar as células desejadas na caixa de aviso e inserir vírgulas para separar múltiplos intervalos, depois clique em OK, veja a captura de tela:
5. Após clicar em OK, todos os outros valores das células serão excluídos, deixando apenas os intervalos selecionados, veja a captura de tela:
Excluir tudo exceto os intervalos selecionados com o Assistente de Intervalo do Kutools para Excel
Se você instalou o Kutools para Excel, com o recurso Complemento da ferramenta Assistente de Intervalo, você pode inverter rapidamente a seleção e, em seguida, excluir as seleções invertidas de uma só vez.
Após instalar o Kutools para Excel, por favor, faça o seguinte:
1. Selecione os intervalos de células que deseja manter.
2. Em seguida, clique em Kutools > Selecionar > Assistente de Intervalo, veja a captura de tela:
3. Na caixa de diálogo Assistente de Intervalo, marque Complemento, veja a captura de tela:
4. E então arraste o mouse para selecionar o intervalo onde deseja inverter as seleções. Quando soltar o mouse, as células selecionadas terão sido desmarcadas e as células não selecionadas terão sido selecionadas imediatamente. Veja a captura de tela:
5. Em seguida, feche a caixa de diálogo e pressione a tecla Delete para excluir as seleções de uma só vez. E somente suas células desejadas terão sido mantidas, veja a captura de tela:
Kutools para Excel - Potencialize o Excel com mais de 300 ferramentas essenciais. Aproveite recursos de IA permanentemente gratuitos! Obtenha Agora
Excluir tudo exceto os intervalos selecionados com o Assistente de Intervalo do Kutools para Excel
Outra ferramenta - Copiar Faixas do Kutools para Excel também pode ajudá-lo a concluir esta tarefa; basta copiar seus intervalos selecionados para uma nova planilha e, em seguida, excluir a planilha antiga.
Após instalar o Kutools para Excel, siga os passos abaixo:
1. Mantenha a tecla Ctrl pressionada para selecionar os intervalos de células que deseja manter.
2. Em seguida, clique em Kutools > Copiar Faixas, veja a captura de tela:
3. E na caixa de diálogo Copiar Múltiplas Faixas, marque a opção Tudo em Colar Especial, marque Incluir Altura da Linha e Incluir Largura da Coluna se desejar manter a altura da linha e largura da coluna que você quer, veja a captura de tela:
4. Em seguida, clique no botão Ok, e outra caixa de aviso aparecerá para lembrá-lo de selecionar uma célula para colocar as células copiadas; por favor, selecione uma célula em uma nova planilha, veja a captura de tela:
5. E então clique em OK, e somente seus intervalos selecionados terão sido colados na nova planilha, e agora você pode excluir a planilha original conforme necessário.
Kutools para Excel - Potencialize o Excel com mais de 300 ferramentas essenciais. Aproveite recursos de IA permanentemente gratuitos! Obtenha Agora
Demonstração: Excluir tudo exceto os intervalos selecionados com o Kutools para Excel
Melhores Ferramentas de Produtividade para Office
Impulsione suas habilidades no Excel com Kutools para Excel e experimente uma eficiência incomparável. Kutools para Excel oferece mais de300 recursos avançados para aumentar a produtividade e economizar tempo. Clique aqui para acessar o recurso que você mais precisa...
Office Tab traz interface com abas para o Office e facilita muito seu trabalho
- Habilite edição e leitura por abas no Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie múltiplos documentos em novas abas de uma mesma janela, em vez de em novas janelas.
- Aumente sua produtividade em50% e economize centenas de cliques todos os dias!
Todos os complementos Kutools. Um instalador
O pacote Kutools for Office reúne complementos para Excel, Word, Outlook & PowerPoint, além do Office Tab Pro, sendo ideal para equipes que trabalham em vários aplicativos do Office.
- Pacote tudo-em-um — complementos para Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Um instalador, uma licença — configuração em minutos (pronto para MSI)
- Trabalhe melhor em conjunto — produtividade otimizada entre os aplicativos do Office
- Avaliação completa por30 dias — sem registro e sem cartão de crédito
- Melhor custo-benefício — economize comparado à compra individual de add-ins