Como eliminar tudo, exceto o intervalo selecionado, no Excel?
No Excel, podemos eliminar rapidamente e diretamente o conteúdo de um intervalo selecionado, mas já alguma vez tentou remover outros conteúdos das células, exceto o intervalo selecionado? Neste artigo, apresentamos alguns truques para resolver esta tarefa no Excel de forma rápida e fácil.
Eliminar tudo exceto Selecionar intervalo com código VBA
Eliminar tudo exceto Selecionar intervalo com Assistente de Intervalo do Kutools para Excel
Eliminar tudo exceto Selecionar intervalo com Copiar Faixas do Kutools para Excel
Eliminar tudo exceto Selecionar intervalo com código VBA
Não existe uma forma direta de eliminar todos os valores das células não selecionadas de uma só vez, mas o código VBA seguinte pode ajudá-lo. Siga estes passos:
1. Mantenha premida a tecla Ctrl para selecionar as células que pretende manter.
2. Prima simultaneamente as teclas Alt + F11 para abrir a janela do Microsoft Visual Basic for Applications.
3. Na caixa de diálogo da janela do Microsoft Visual Basic for Applications, clique em Inserir > Módulo e, de seguida, copie e cole o código VBA abaixo na janela do Módulo.
Código VBA: eliminar todos os valores das células exceto os Selecionar intervalo
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, prima a tecla F5 para executar este código. Aparecerá uma caixa de aviso a solicitar que selecione o intervalo de células que pretende manter. Se já tiver selecionado os intervalos no passo 1, clique em OK. Caso contrário, pode selecionar os intervalos pretendidos na caixa de aviso e utilizar vírgulas para separar vários intervalos. Depois, clique no botão OK, conforme ilustrado na imagem:
5. Após clicar em OK, todos os outros valores das células foram eliminados, restando apenas o intervalo selecionado, conforme ilustrado na imagem:
Eliminar tudo exceto Selecionar intervalo com Assistente de Intervalo do Kutools para Excel
Se tiver o Kutools para Excel instalado, com a funcionalidade Seleção Inversa do Assistente de Intervalo, poderá inverter rapidamente a seleção e eliminar todas as células invertidas de uma só vez.
Após instalar o Kutools para Excel, proceda da seguinte forma:
1. Selecione os intervalos de células que deseja manter.
2. Em seguida, clique em Kutools > Selecionar > Assistente de Intervalo, conforme ilustrado na imagem:
3. Na caixa de diálogo Assistente de Intervalo, assinale a opção Seleção Inversa, conforme ilustrado na imagem:
4. Em seguida, arraste o rato para selecionar o intervalo em que pretende inverter a seleção. Ao largar o botão do rato, as células anteriormente selecionadas serão desmarcadas e as não selecionadas serão automaticamente selecionadas. Veja a imagem:
5. Em seguida, feche a caixa de diálogo e prima a tecla Delete para eliminar todas as seleções de uma só vez. Apenas as células pretendidas serão mantidas, conforme ilustrado na imagem:
Kutools para Excel– Potencie o Excel com mais de 300 ferramentas essenciais, tornando o seu trabalho mais rápido e fácil, e aproveite as funcionalidades de IA para um processamento de dados mais inteligente e uma maior produtividade.Obtenha Já
Eliminar tudo exceto Selecionar intervalo com Assistente de Intervalo do Kutools para Excel
Outra funcionalidade —Copiar Faixas do Kutools para Excel— também o pode ajudar a concluir esta tarefa. Basta copiar o seu intervalo selecionado para uma nova folha e, em seguida, eliminar a folha de cálculo original.
Após instalar o Kutools para Excel, siga os passos seguintes:
1. Mantenha premida a tecla Ctrl para selecionar os intervalos de células que pretende manter.
2. Em seguida, clique em Kutools > Copiar Faixas, conforme ilustrado na imagem:
3. Na caixa de diálogo Copiar Múltiplas Faixas, selecione a opção Tudo em Colar Especial e, se pretender manter a altura das linhas e a largura das colunas pretendidas, assinale também Incluir Altura da Linha e Incluir Largura da Coluna, conforme ilustrado na imagem:
4. Em seguida, clique no botão Ok e surgirá outra caixa de aviso a solicitar que selecione uma célula para colar as células copiadas. Por favor, selecione uma célula numa nova folha de cálculo, conforme ilustrado na imagem:
5. Depois, clique em OK e apenas o seu intervalo selecionado será colado na nova folha de cálculo. Agora pode eliminar a folha original, conforme necessário.
Kutools para Excel– Potencie o Excel com mais de 300 ferramentas essenciais, tornando o seu trabalho mais rápido e fácil, e aproveite as funcionalidades de IA para um processamento de dados mais inteligente e uma maior produtividade.Obtenha Já
Demonstração: Eliminar tudo exceto Selecionar intervalo com Kutools para Excel
As Melhores Ferramentas de Produtividade para o Office
Potencie as suas competências no Excel com Kutools para Excel e experimente uma eficiência como nunca antes.Kutools para Excel Oferece mais de 300 funcionalidades avançadas para impulsionar a produtividade e Economizar Tempo.Clique aqui para obter a funcionalidade de que mais precisa...
Office Tab Traz uma interface com separadores para o Office e torna o seu trabalho muito mais fácil
- Ative a edição e leitura com separadores no Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie vários documentos em novos separadores da mesma janela, em vez de em janelas separadas.
- Aumente a sua produtividade em 50 % e elimine centenas de cliques do rato todos os dias!
Todos os suplementos Kutools — num único instalador.
Kutools for Office reúne suplementos para Excel, Word, Outlook e PowerPoint, além do Office Tab Pro, sendo a solução ideal para equipas que trabalham em várias aplicações do Office.
- Pacote tudo-em-um— suplementos para Excel, Word, Outlook e PowerPoint + Office Tab Pro
- Um instalador, uma licença— configuração em minutos (pronto para MSI)
- Funciona melhor em conjunto— produtividade simplificada em todas as aplicações do Office
- Teste gratuito de 30 dias com todas as funcionalidades— sem registo, sem cartão de crédito
- Melhor relação qualidade-preço— poupe face à compra individual dos suplementos