Vai al contenuto principale

Come invertire facilmente le selezioni di intervalli selezionati in Excel?

Supponendo di aver selezionato alcune celle specifiche di un intervallo, e ora è necessario invertire la selezione: deseleziona le celle selezionate e seleziona le altre celle. Vedi lo screenshot seguente:

Ovviamente puoi invertire la selezione manualmente. Ma questo articolo ti porterà alcuni trucchi carini per invertire rapidamente le selezioni:

Selezioni inverse in Excel con VBA

Selezione inversa in Excel con Kutools per Excel


freccia blu freccia destra Selezioni inverse in Excel con VBA

L'utilizzo della macro VBA ti consentirà di invertire facilmente le selezioni nell'area di lavoro del foglio di lavoro attivo.

Step1: Seleziona le celle che desideri invertire.

Step2: Tieni premuto il tasto altro + F11 chiavi in ​​Excel e apre il file Microsoft Visual Basic, Applications Edition finestra.

Step3: Fare clic su inserire > Modulie incolla la seguente macro nella finestra del modulo.

VBA per invertire le selezioni

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: Premi il F5 chiave per eseguire questa macro. Quindi viene visualizzata una finestra di dialogo per selezionare alcune celle che non è necessario selezionare nel risultato. Vedi screenshot:




Passo 5 : Fare clic su OKe selezionare un intervallo in cui si desidera invertire la selezione in un'altra finestra di dialogo popup. Vedi screenshot:




Passo 6 : Fare clic su OK. puoi vedere che la selezione è stata invertita.


Note: Questo VBA funziona anche in un foglio di lavoro vuoto.


freccia blu freccia destra Selezioni inverse in Excel con Kutools per Excel

Potresti voler invertire rapidamente qualsiasi selezione in Excel, il file Seleziona Range Helper strumenti di Kutools for Excel può aiutarti a invertire rapidamente la selezione in Excel. Questo trucco ti consente di invertire facilmente le selezioni nell'intera cartella di lavoro.

Kutools per Excel include più di 300 utili strumenti di Excel. Prova gratuita senza limitazioni per 30 giorni. Get it Now.

Step1: Seleziona le celle che desideri invertire.

Step2: Clicca il Kutools > Selezionare Strumenti > Seleziona Range Helper ....

Step3: In Seleziona Range Helper finestra di dialogo, selezionare Selezione inversa opzione.

Step4: Quindi trascinare il mouse per selezionare l'intervallo in cui si desidera invertire le selezioni. Quando rilasci il mouse, le celle selezionate sono state deselezionate e le celle non selezionate sono state selezionate dell'intervallo contemporaneamente.

Step5: E quindi chiudere il file Seleziona Range Helper la finestra di dialogo.

Per informazioni più dettagliate su Seleziona Range Helper, Si prega di visitare il sito Seleziona la descrizione della funzione Range Helper.


Articoli correlati:

I migliori strumenti per la produttività in ufficio

🤖 Assistente AI di Kutools: Rivoluziona l'analisi dei dati basandosi su: Esecuzione intelligente   |  Genera codice  |  Crea formule personalizzate  |  Analizzare i dati e generare grafici  |  Richiama le funzioni di Kutools...
Funzioni popolari: Trova, evidenzia o identifica i duplicati   |  Elimina righe vuote   |  Combina colonne o celle senza perdere dati   |   Round senza formula ...
Super ricerca: VLookup a criteri multipli    VLookup a valori multipli  |   VLookup su più fogli   |   Ricerca fuzzy ....
Elenco a discesa avanzato: Crea rapidamente un elenco a discesa   |  Elenco a discesa dipendente   |  Elenco a discesa a selezione multipla ....
Gestore di colonna: Aggiungi un numero specifico di colonne  |  Sposta colonne  |  Attiva/disattiva lo stato di visibilità delle colonne nascoste  |  Confronta intervalli e colonne ...
Funzionalità in primo piano: Messa a fuoco della griglia   |  Vista di progettazione   |   Grande barra delle formule    Gestore di cartelle di lavoro e fogli   |  Resource Library (Testo automatico)   |  Date picker   |  Combina fogli di lavoro   |  Crittografa/decrittografa le celle    Invia e-mail per elenco   |  Super filtro   |   Filtro speciale (filtro grassetto/corsivo/barrato...) ...
I 15 migliori set di strumenti12 Testo Strumenti (aggiungi testo, Rimuovi personaggi, ...)   |   50+ Grafico Tipi (Diagramma di Gantt, ...)   |   40+ Pratico Formule (Calcola l'età in base al compleanno, ...)   |   19 Inserimento Strumenti (Inserisci il codice QR, Inserisci immagine dal percorso, ...)   |   12 Conversione Strumenti (Numeri in parole, Conversione di valuta, ...)   |   7 Unisci e dividi Strumenti (Combina righe avanzate, Celle divise, ...)   |   ... e altro ancora

Potenzia le tue competenze di Excel con Kutools per Excel e sperimenta l'efficienza come mai prima d'ora. Kutools per Excel offre oltre 300 funzionalità avanzate per aumentare la produttività e risparmiare tempo.  Fai clic qui per ottenere la funzionalità di cui hai più bisogno...

Descrizione


Office Tab porta l'interfaccia a schede in Office e semplifica notevolmente il tuo lavoro

  • Abilita la modifica e la lettura a schede in Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
  • Apri e crea più documenti in nuove schede della stessa finestra, piuttosto che in nuove finestre.
  • Aumenta la produttività del 50% e riduce ogni giorno centinaia di clic del mouse!

 

 

 

 

 

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