Ir para o conteúdo principal

Como reverter facilmente seleções de intervalos selecionados no Excel?

Suponha que você tenha selecionado algumas células específicas de um intervalo e agora precise inverter a seleção: desmarque as células selecionadas e selecione as outras células. Veja a seguinte captura de tela:

Claro, você pode reverter a seleção manualmente. Mas este artigo trará alguns truques bonitos para reverter seleções rapidamente:

Seleções reversas no Excel com VBA

Seleção reversa no Excel com Kutools para Excel


seta azul bolha direita Seleções reversas no Excel com VBA

Usar a macro VBA facilitará o trabalho de reverter seleções na área de trabalho da planilha ativa.

Step1: Selecione as células que deseja reverter.

Step2: Mantenha pressionada a tecla outro + F11 chaves no Excel, e abre o Microsoft Visual Basic para Aplicações janela.

Step3: Clique inserção > Móduloe cole a macro a seguir na janela do módulo.

VBA para inverter seleções

Sub InvertSelection()
'Updateby20140314
Dim rng As Range
Dim Rng1 As Range
Dim Rng2 As Range
Dim OutRng As Range
xTitleId = "KutoolsforExcel"
Set Rng1 = Application.Selection
Set Rng1 = Application.InputBox("Range1 :", xTitleId, Rng1.Address, Type:=8)
Set Rng2 = Application.InputBox("Range2", xTitleId, Type:=8)
For Each rng In Rng2
    If Application.Intersect(rng, Rng1) Is Nothing Then
        If OutRng Is Nothing Then
            Set OutRng = rng
        Else
            Set OutRng = Application.Union(OutRng, rng)
        End If
    End If
Next
OutRng.Select
End Sub
	

Step4: Aperte o F5 chave para executar esta macro. Em seguida, uma caixa de diálogo é exibida para você selecionar algumas células que você não precisa selecionar no resultado. Veja a imagem:




Passo 5: Clique OKe selecione um intervalo cuja seleção deseja inverter em outra caixa de diálogo pop-up. Veja a imagem:




Passo 6: Clique OK. você pode ver que a seleção foi revertida.


Observações: Este VBA também está funcionando em uma planilha em branco.


seta azul bolha direita Reverter seleções no Excel com Kutools para Excel

Você pode querer reverter rapidamente qualquer seleção no Excel, o Selecione Range Helper ferramentas de Kutools for Excel pode ajudá-lo a reverter rapidamente a seleção no Excel. Este truque facilita a reversão de qualquer seleção em toda a pasta de trabalho.

Kutools for Excel inclui mais de 300 ferramentas úteis de Excel. Gratuito para testar sem limitação em 30 dias. Get it Now.

Step1: Selecione as células que deseja reverter.

Step2: Clique no Kutools > Selecione Ferramentas > Selecione Range Helper ....

Step3: Dentro Selecione Range Helper caixa de diálogo, verifique a Seleção Inversa opção.

Step4: Em seguida, arraste o mouse para selecionar o intervalo em que deseja inverter as seleções. Ao soltar o mouse, as células selecionadas foram desmarcadas e as células não selecionadas foram selecionadas do intervalo de uma vez.

Step5: E feche o Selecione Range Helper caixa de diálogo.

Para obter informações mais detalhadas sobre Selecione Range Helper, Visite Selecione a descrição do recurso Range Helper.


Artigos relacionados:

Melhores ferramentas de produtividade de escritório

🤖 Assistente de IA do Kutools: Revolucionar a análise de dados com base em: Execução Inteligente   |  Gerar Código  |  Crie fórmulas personalizadas  |  Analise dados e gere gráficos  |  Invocar funções do Kutools...
Recursos mais comuns: Encontre, destaque ou identifique duplicatas   |  Excluir linhas em branco   |  Combine colunas ou células sem perder dados   |   Rodada sem Fórmula ...
Super pesquisa: VLookup de múltiplos critérios    VLookup de múltiplos valores  |   VLookup em várias planilhas   |   Pesquisa Difusa ....
Lista suspensa avançada: Crie rapidamente uma lista suspensa   |  Lista suspensa de dependentes   |  Lista suspensa de seleção múltipla ....
Gerenciador de colunas: Adicione um número específico de colunas  |  Mover colunas  |  Alternar status de visibilidade de colunas ocultas  |  Compare intervalos e colunas ...
Recursos em destaque: Foco da Grade   |  Vista de Design   |   Grande Barra de Fórmula    Gerenciador de pastas de trabalho e planilhas   |  Biblioteca (Auto texto)   |  Data Picker   |  Combinar planilhas   |  Criptografar/Descriptografar Células    Enviar e-mails por lista   |  Super Filtro   |   Filtro Especial (filtro negrito/itálico/tachado...) ...
15 principais conjuntos de ferramentas12 Texto Ferramentas (Adicionar texto, Remover Personagens, ...)   |   50+ de cores Tipos (Gráfico de Gantt, ...)   |   Mais de 40 práticos Fórmulas (Calcule a idade com base no aniversário, ...)   |   19 Inclusão Ferramentas (Insira o código QR, Inserir imagem do caminho, ...)   |   12 Conversão Ferramentas (Números para Palavras, Conversão de moedas, ...)   |   7 Unir e dividir Ferramentas (Combinar linhas avançadas, Dividir células, ...)   |   ... e mais

Aprimore suas habilidades de Excel com o Kutools para Excel e experimente uma eficiência como nunca antes. Kutools para Excel oferece mais de 300 recursos avançados para aumentar a produtividade e economizar tempo.  Clique aqui para obter o recurso que você mais precisa...

Descrição


Office Tab traz interface com guias para o Office e torna seu trabalho muito mais fácil

  • Habilite a edição e leitura com guias em Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
  • Abra e crie vários documentos em novas guias da mesma janela, em vez de em novas janelas.
  • Aumenta sua produtividade em 50% e reduz centenas de cliques do mouse para você todos os dias!

 

 

 

 

 

Comments (3)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Reverse Selections In Excel With VBA - confirmed not working.

Please fix.
This comment was minimized by the moderator on the site
Try this:


Sub InvertSelection()
Dim rng As Range
Dim Rng1 As Range
Dim Rng2 As Range
Dim OutRng As Range
Dim xTitleId As String
xTitleId = "Invert Selection"
Set Rng1 = Application.Selection
Set Rng1 = Application.InputBox("Range1 :", xTitleId, Rng1.Address, Type:=8)
Set Rng2 = Application.InputBox("Range2", xTitleId, Type:=8)
For Each rng In Rng2
If Application.Intersect(rng, Rng1) Is Nothing Then
If OutRng Is Nothing Then
Set OutRng = rng
Else
Set OutRng = Application.Union(OutRng, rng)
End If
End If
Next
OutRng.Select
End Sub
This comment was minimized by the moderator on the site
invert selection vba not working
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations