Salt la conținutul principal

Cum să selectați fiecare rând sau al n-lea în Excel?

Când folosim o foaie de lucru, uneori, trebuie să selectăm fiecare rând sau al n-lea al foii pentru formatare, ștergere sau copiere. Le puteți selecta manual, dar dacă există sute de rânduri, această metodă nu este o alegere bună. Iată câteva trucuri pentru a vă ajuta.

Selectați fiecare rând sau al n-lea rând cu VBA

Selectați fiecare rând sau al n-lea cu Kutools pentru Excelidee bună3


Selectați fiecare rând sau al n-lea rând cu VBA

În acest exemplu, voi selecta un rând cu două intervale. Cu codul VBA, îl pot finaliza după cum urmează:

1. Evidențiați intervalul pe care doriți să îl selectați în fiecare rând sau în al treilea rând.

2.Click Dezvoltator > Visual Basic, un nou Microsoft Visual Basic pentru aplicații fereastra va fi afișată, faceți clic pe Insera > Moduleși introduceți următorul cod în modul:

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. Apoi faceți clic pe doc-multiplicare-calcul-3 pentru a rula codul. Și apare un dialog pentru a selecta un interval. Vedeți captura de ecran:



4. clic OKși, în acest caz, am introdus 3 în altă fereastră de dialog pop-out ca rând de interval. Vezi captura de ecran

5. clic OK, și fiecare al treilea rând a fost selectat. Vedeți captura de ecran:

Puteți modifica intervalul după cum aveți nevoie în al doilea KutoolsforExcel dialog.


Selectați fiecare rând sau al n-lea cu Kutools pentru Excel

Cu codul VBA, puteți selecta un singur rând cu intervale specificate, dacă trebuie să selectați două, trei sau alte rânduri cu intervale specificate, Kutools pentru Excel vă poate ajuta să rezolvați această problemă ușor și convenabil.

Kutools pentru Excel, cu mai mult de 300 funcții la îndemână, vă face munca mai ușoară. 

După instalare gratuită Kutools pentru Excel, faceți următoarele:

1. clic Kutools > Select > Select Interval Rows & Columns…, Vezi captura de ecran:

doc selectați celelalte rânduri8

2. În  Select Interval Rows & Columns caseta de dialog, faceți clic pedoc-replace-range-names-7 pentru a selecta gama de care aveți nevoie, alegeți Rows or Columns din Select secțiune, și specificați numărul dorit în Interval of caseta de intrare și Rows caseta de intrare. Vedeți captura de ecran:

doc selectați celelalte rânduri9

doc selectați celelalte rânduri10

note:
1. Dacă trebuie să selectați toate celelalte rânduri din selecție, vă rugăm să introduceți 2 în caseta Intervalele de intrare și 1 în Rows caseta de introducere.

2. Dacă doriți să selectați întregul rând de care aveți nevoie, puteți verifica Select entire rows opțiune.
doc selectați celelalte rânduri11


Umbreți fiecare rând sau al doilea rând cu Kutools pentru Excel

Dacă doriți să umbreți intervalele în fiecare rând, astfel încât datele să pară mai remarcabile ca în imaginea de mai jos prezentată, puteți aplica Kutools pentru Excel'S Alternate Row/Column Shading funcție pentru a face față rapid sarcinii.

doc selectați celelalte rânduri12
doc săgeată în jos
doc selectați celelalte rânduri13

După instalare gratuită Kutools pentru Excel, faceți următoarele:

1. Selectați intervalul de celule pe care doriți să le umpleți, faceți clic pe Kutools > Format > Alternate Row/Column Shading.
doc selectați celelalte rânduri14

2. În Alternate Row/Column Shading dialog, faceți următoarele:

1) Selectați rândurile sau coloanele pe care doriți să le umbriți;

2) Alegeți Conditional formatting or formatare standard după cum aveți nevoie;

3) Specificați intervalul de umbrire;

4) Alegeți o culoare de umbrire.
doc selectați celelalte rânduri15

3. clic Ok. Acum intervalul a fost umbrit în fiecare al nouălea rând.

Dacă doriți să eliminați umbrirea, verificați Eliminați umbrirea alternativă a rândurilor existente opțiune în Umbra alternativă a rândurilor / coloanelor dialog.


Legate de articole:

Cele mai bune instrumente de productivitate de birou

Caracteristici populare: Găsiți, evidențiați sau identificați duplicatele   |  Ștergeți rândurile goale   |  Combinați coloane sau celule fără a pierde date   |   Rundă fără Formula ...
Super căutare: VLookup cu mai multe criterii    VLookup cu valori multiple  |   VLookup pe mai multe foi   |   Căutare fuzzy ....
Listă derulantă avansată: Creați rapid o listă derulantă   |  Listă drop-down dependentă   |  Listă derulantă cu selectare multiplă ....
Manager de coloane: Adăugați un număr specific de coloane  |  Mutați coloanele  |  Comutați starea vizibilității coloanelor ascunse  |  Comparați intervale și coloane ...
Caracteristici prezentate: Focus pe grilă   |  Vedere de proiectare   |   Big Formula Bar    Manager registru de lucru și foi   |  Biblioteca de resurse (Text automat)   |  Data Picker   |  Combinați foi de lucru   |  Criptare/Decriptare celule    Trimiteți e-mailuri după listă   |  Super Filtru   |   Filtru special (filtrează bold/italic/barat...) ...
Top 15 seturi de instrumente12 Text Instrumente (Adăuga text, Eliminați caractere,...)   |   50+ Diagramă Tipuri de (Gantt Chart,...)   |   40+ Practic Formule (Calculați vârsta pe baza zilei de naștere,...)   |   19 inserare Instrumente (Introduceți codul QR, Inserați imaginea din cale,...)   |   12 Convertire Instrumente (Numere la cuvinte, conversie valutara,...)   |   7 Merge & Split Instrumente (Rânduri combinate avansate, Celule divizate,...)   |   ... și altele

Îmbunătățiți-vă abilitățile Excel cu Kutools pentru Excel și experimentați eficiența ca niciodată. Kutools pentru Excel oferă peste 300 de funcții avansate pentru a crește productivitatea și a economisi timp.  Faceți clic aici pentru a obține funcția de care aveți cea mai mare nevoie...

fila kte 201905


Fila Office aduce interfața cu file în Office și vă face munca mult mai ușoară

  • Activați editarea și citirea cu file în Word, Excel, PowerPoint, Publisher, Access, Visio și Project.
  • Deschideți și creați mai multe documente în filele noi ale aceleiași ferestre, mai degrabă decât în ​​ferestrele noi.
  • Vă crește productivitatea cu 50% și reduce sute de clicuri de mouse pentru dvs. în fiecare zi!
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