Loncat ke daftar isi utama

Bagaimana cara memilih setiap baris lain atau n di Excel?

Saat kita menggunakan lembar kerja, terkadang, kita perlu memilih setiap baris lain atau baris ke n dari lembar untuk memformat, menghapus atau menyalin tujuan. Anda dapat memilihnya secara manual, tetapi jika ada ratusan baris, metode ini bukanlah pilihan yang baik. Berikut beberapa trik untuk membantu Anda.

Pilih setiap baris lainnya atau baris ke-n dengan VBA

Pilih setiap baris lain atau ke n dengan Kutools for Excelide bagus3


Pilih setiap baris lainnya atau baris ke-n dengan VBA

Dalam contoh ini, saya akan memilih satu baris dengan dua interval. Dengan kode VBA, saya bisa menyelesaikannya sebagai berikut:

1. Sorot kisaran yang ingin Anda pilih setiap baris lain atau baris ke-n.

2.Click Pengembang > Visual Basic, Baru Microsoft Visual Basic untuk aplikasi jendela akan ditampilkan, klik Menyisipkan > Modul, dan masukkan kode berikut ke dalam 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. Lalu klik doc-perkalian-kalkulasi-3 tombol untuk menjalankan kode. Dan sebuah dialog muncul untuk Anda memilih rentang. Lihat tangkapan layar:



4. klik OK, dan dalam hal ini, saya memasukkan 3 di dialog pop-out lain sebagai baris interval. Lihat tangkapan layar

5. klik OK, dan setiap baris ketiga telah dipilih. Lihat tangkapan layar:

Anda dapat mengubah interval sesuai kebutuhan dalam hitungan detik KutoolsforExcel dialog.


Pilih setiap baris lain atau ke n dengan Kutools for Excel

Dengan kode VBA, Anda hanya dapat memilih satu baris dengan interval tertentu, jika Anda perlu memilih dua, tiga atau baris lain dengan interval tertentu, Kutools untuk Excel dapat membantu Anda mengatasi masalah ini dengan mudah dan nyaman.

Kutools untuk Excel, dengan lebih dari 300 fungsi praktis, membuat pekerjaan Anda lebih mudah. 

Setelah pemasangan gratis Kutools for Excel, lakukan seperti di bawah ini:

1. klik Kutools > Select > Select Interval Rows & Columns…, Lihat tangkapan layar:

doc pilih setiap baris8 lainnya

2. Dalam  Select Interval Rows & Columns kotak dialog, klikdoc-ganti-rentang-nama-7 tombol untuk memilih rentang yang Anda butuhkan, pilih Rows or Columns dari Select bagian, dan tentukan nomor yang Anda inginkan di Interval of kotak masukan dan Rows kotak masukan. Lihat tangkapan layar:

doc pilih setiap baris9 lainnya

doc pilih setiap baris10 lainnya

Catatan:
1. Jika Anda perlu memilih setiap baris lainnya dalam pemilihan, harap masukkan 2 di kotak Interval Input dan 1 di kotak Rows kotak masukan.

2. Jika Anda ingin memilih seluruh baris yang Anda butuhkan, Anda dapat memeriksa Select entire rows .
doc pilih setiap baris11 lainnya


Bayangkan setiap baris atau baris ke-n dengan Kutools for Excel

Jika Anda ingin menaungi rentang di setiap baris lain sehingga data terlihat lebih menonjol seperti gambar di bawah ini, Anda dapat menerapkan Kutools untuk Excel'S Alternate Row/Column Shading berfungsi untuk menangani pekerjaan dengan cepat.

doc pilih setiap baris12 lainnya
doc panah ke bawah
doc pilih setiap baris13 lainnya

Setelah pemasangan gratis Kutools for Excel, lakukan seperti di bawah ini:

1. Pilih rentang sel yang ingin Anda teduh interval, klik Kutools > Format > Alternate Row/Column Shading.
doc pilih setiap baris14 lainnya

2. Dalam Alternate Row/Column Shading dialog, lakukan seperti ini:

1) Pilih baris atau kolom yang ingin Anda beri bayangan;

2) Pilih Conditional formatting or pemformatan standar seperti yang Anda butuhkan;

3) Tentukan interval bayangan;

4) Pilih warna bayangan.
doc pilih setiap baris15 lainnya

3. klik Ok. Sekarang kisaran telah diarsir di setiap baris ke-n.

Jika Anda ingin menghapus bayangan, centang Hapus bayangan baris alternatif yang ada pilihan dalam Shading Baris / Kolom Alternatif dialog.


Artikel terkait:

Alat Produktivitas Kantor Terbaik

🤖 Kutools AI Ajudan: Merevolusi analisis data berdasarkan: Eksekusi Cerdas   |  Hasilkan Kode  |  Buat Rumus Khusus  |  Analisis Data dan Hasilkan Grafik  |  Aktifkan Fungsi Kutools...
Fitur Populer: Temukan, Sorot, atau Identifikasi Duplikat   |  Hapus Baris Kosong   |  Gabungkan Kolom atau Sel tanpa Kehilangan Data   |   Putaran tanpa Formula ...
Pencarian Super: VLookup Beberapa Kriteria    VLookup Nilai Berganda  |   VLookup di Beberapa Lembar   |   Pencarian Fuzzy ....
Daftar Drop-down Lanjutan: Buat Daftar Drop Down dengan Cepat   |  Daftar Drop Down yang Bergantung   |  Multi-pilih Drop Down List ....
Manajer Kolom: Tambahkan Jumlah Kolom Tertentu  |  Pindahkan Kolom  |  Alihkan Status Visibilitas Kolom Tersembunyi  |  Bandingkan Rentang & Kolom ...
Fitur Unggulan: Fokus Kisi   |  Tampilan Desain   |   Bar Formula Besar    Manajer Buku Kerja & Lembar   |  Perpustakaan Sumberdaya (Teks otomatis)   |  Pemetik tanggal   |  Gabungkan Lembar Kerja   |  Enkripsi/Dekripsi Sel    Kirim Email berdasarkan Daftar   |  Filter Super   |   Filter Khusus (filter tebal/miring/coret...) ...
15 Perangkat Teratas12 Teks Tools (Tambahkan Teks, Hapus Karakter, ...)   |   50 + Grafik jenis (Gantt Chart, ...)   |   40+ Praktis Rumus (Hitung usia berdasarkan ulang tahun, ...)   |   19 Insersi Tools (Masukkan Kode QR, Sisipkan Gambar dari Jalur, ...)   |   12 Konversi Tools (Angka ke Kata, Konversi Mata Uang, ...)   |   7 Gabungkan & Pisahkan Tools (Lanjutan Gabungkan Baris, Pisahkan Sel, ...)   |   ... dan banyak lagi

Tingkatkan Keterampilan Excel Anda dengan Kutools for Excel, dan Rasakan Efisiensi yang Belum Pernah Ada Sebelumnya. Kutools for Excel Menawarkan Lebih dari 300 Fitur Lanjutan untuk Meningkatkan Produktivitas dan Menghemat Waktu.  Klik Di Sini untuk Mendapatkan Fitur yang Paling Anda Butuhkan...

Deskripsi Produk


Tab Office Membawa antarmuka Tab ke Office, dan Membuat Pekerjaan Anda Jauh Lebih Mudah

  • Aktifkan pengeditan dan pembacaan tab di Word, Excel, PowerPoint, Publisher, Access, Visio, dan Project.
  • Buka dan buat banyak dokumen di tab baru di jendela yang sama, bukan di jendela baru.
  • Meningkatkan produktivitas Anda sebesar 50%, dan mengurangi ratusan klik mouse untuk Anda setiap hari!
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