Vai al contenuto principale

Come selezionare ogni altra o ennesima riga in Excel?

Quando usiamo un foglio di lavoro, a volte, dobbiamo selezionare ogni altra o l'ennesima riga del foglio per la formattazione, l'eliminazione o la copia. Puoi selezionarli manualmente, ma se ci sono centinaia di righe, questo metodo non è una buona scelta. Ecco alcuni trucchi per aiutarti.

Seleziona ogni altra o ennesima riga con VBA

Seleziona ogni altra o l'ennesima riga con Kutools per Excelbuona idea 3


Seleziona ogni altra o ennesima riga con VBA

In questo esempio, selezionerò una riga con due intervalli. Con il codice VBA, posso finirlo come segue:

1. Evidenziare l'intervallo che si desidera selezionare a una o all'ennesima riga.

2.Click Costruttori > Visual Basic, un nuovo Microsoft Visual Basic per le applicazioni verrà visualizzata la finestra, fare clic su inserire > Modulie inserisci il codice seguente nel modulo:

Sub EveryOtherRow()
Dim rng As Range
Dim InputRng As Range
Dim OutRng As Range
Dim xInterval As Integer
xTitleId = "KutoolsforExcel"
Set InputRng = Application.Selection
Set InputRng = Application.InputBox("Range :", xTitleId, InputRng.Address, Type:=8)
xInterval = Application.InputBox("Enter row interval", xTitleId, Type:=1)
For i = 1 To InputRng.Rows.Count Step xInterval + 1
    Set rng = InputRng.Cells(i, 1)
    If OutRng Is Nothing Then
        Set OutRng = rng
    Else
        Set OutRng = Application.Union(OutRng, rng)
    End If
Next
OutRng.EntireRow.Select
End Sub

3.Quindi fare clic su doc-multiply-calcolo-3 pulsante per eseguire il codice. E viene visualizzata una finestra di dialogo per selezionare un intervallo. Vedi screenshot:



4. Clic OK, e in questo caso, inserisco 3 in un'altra finestra di dialogo a comparsa come riga dell'intervallo. Vedi screenshot

5. Clic OKe la riga ogni terza è stata selezionata. Vedi screenshot:

Puoi cambiare l'intervallo di cui hai bisogno nel secondo Kutools per Excel dialogo.


Seleziona ogni altra o l'ennesima riga con Kutools per Excel

Con il codice VBA, puoi selezionare solo una riga con intervalli specificati, se devi selezionare due, tre o altre righe con intervalli specificati, il Kutools for Excel può aiutarti a risolvere questo problema facilmente e comodamente.

Kutools for Excel, con oltre 300 funzioni utili, rende il tuo lavoro più facile. 

Dopo shavasana, sedersi in silenzio; saluti; installazione gratuita Kutools per Excel, per favore fai come di seguito:

1. Clic Kutools > Select > Select Interval Rows & Columns..., vedi screenshot:

doc seleziona ogni altra riga8

2. Nel  Select Interval Rows & Columns finestra di dialogo, fare clic sudoc-sostituire-nomi-intervallo-7 per selezionare l'intervallo di cui hai bisogno, scegli Rows or Columns da soli Select paginae specificare il numero desiderato nel file Interval of casella di input e Rows casella di input. Vedi screenshot:

doc seleziona ogni altra riga9

doc seleziona ogni altra riga10

Note:
1. Se è necessario selezionare ogni altra riga nella selezione, immettere 2 nella casella Intervalli di input e 1 nella Rows casella di inserimento.

2. Se vuoi selezionare l'intera riga di cui hai bisogno, puoi controllare Select entire rows opzione.
doc seleziona ogni altra riga11


Ombreggia ogni altra riga o ennesima riga con Kutools per Excel

Se desideri ombreggiare gli intervalli in ogni altra riga in modo che i dati appaiano più eccezionali come mostrato nell'immagine sottostante, puoi applicare Kutools for Excel'S Alternate Row/Column Shading funzione per gestire rapidamente il lavoro.

doc seleziona ogni altra riga12
doc freccia giù
doc seleziona ogni altra riga13

Dopo shavasana, sedersi in silenzio; saluti; installazione gratuita Kutools per Excel, per favore fai come di seguito:

1. Selezionare l'intervallo di celle a cui si desidera ombreggiare l'intervallo, fare clic su Kutools > Format > Alternate Row/Column Shading.
doc seleziona ogni altra riga14

2. Nel Alternate Row/Column Shading dialogo, fai come segue:

1) Seleziona le righe o le colonne che vuoi ombreggiare;

2) Scegli Conditional formatting or formattazione standard di cui hai bisogno;

3) Specificare l'intervallo di ombreggiatura;

4) Scegli un colore per l'ombreggiatura.
doc seleziona ogni altra riga15

3. Clic Ok. Ora la gamma è stata ombreggiata in ogni ennesima riga.

Se vuoi rimuovere l'ombreggiatura, controlla Rimuovi l'ombreggiatura delle righe alternative esistente opzione Ombreggiatura alternativa riga / colonna dialogo.


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 (12)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Help, please. This looks great, BUT when I hit the > Run button it fails with a "Compile error: Sub or Function not defined" and the code stopped at "Set rng = InputRng.Rows.Count Step xInterval +1".
This comment was minimized by the moderator on the site
Also I don't get how "Set" and "Step" could ever work together
This comment was minimized by the moderator on the site
Not sure that I will be able to help, but.. First of, there is a spacing between "C" and "ount" in "Count" when i copied your code string over to a module. Secondly, I can´t find your code anywhere else on this page, please submit the whole thing, if the problem remains.
This comment was minimized by the moderator on the site
Replace OutRng.EntireRow.Select with Intersect(OutRng.EntireRow, InputRng).Select if you want every other row within your selection
This comment was minimized by the moderator on the site
really good, thanks!
This comment was minimized by the moderator on the site
The code has one request. Does it have to select the ENTIRE ROW for each nth row? Can't it just select certain cells (range of cells) within each nth row? I don't need all the information in each row. Just certain cells of each nth row.
This comment was minimized by the moderator on the site
I made the modifications below to select 30 rows Sub EveryOtherRow() Dim rng As Range Dim InputRng As Range Dim OutRng As Range Dim xInterval As Integer xTitleId = "KutoolsforExcel" Set InputRng = Application.Selection Set InputRng = Application.InputBox("Range :", xTitleId, InputRng.Address, Type:=8) xInterval = Application.InputBox("Enter row interval", xTitleId, Type:=1) For i = 1 To InputRng.Rows.Count Step xInterval + 1 Set rng = InputRng.Cells(i, 1).Resize(, 30) 'Resize to the number of columns to select, 30 in this case If OutRng Is Nothing Then Set OutRng = rng Else Set OutRng = Application.Union(OutRng, rng) End If Next OutRng.Select 'Use OutRng.EntireRow.Select to select the entire row End Sub
This comment was minimized by the moderator on the site
Nice, thanks, this was very helpful ^_^
This comment was minimized by the moderator on the site
fanatastic. thanks a lot.it works perfect.I have more than 7000 data that need to select them with different interval.this trick was like a miracle for me.thaaaaaaaanks.
This comment was minimized by the moderator on the site
I'm trying to use the VBA macro in Excel 2010. It will only select the first nth row, not all of them in the selection. If I run it again, it will go to the next. Any idea what I'm doing wrong? Thanks!
This comment was minimized by the moderator on the site
Just saved my ass with this code thanks! My matlab decided to randomly stop working and so I had to resort to excel which I am not as familiar with as with Matlab. This def. helped. Thanks.
This comment was minimized by the moderator on the site
I need to select multiple rows and a fixed interval and move to the other sheet please answer me as soon as possible 
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations