Note: The other languages of the website are Google-translated. Back to English

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 for Excel Memecahkan Sebagian Besar Masalah Anda, dan Meningkatkan Produktivitas Anda hingga 80%

  • Reuse: Masukkan dengan cepat rumus, bagan yang kompleks dan apa pun yang pernah Anda gunakan sebelumnya; Enkripsi Sel dengan kata sandi; Buat Milis dan mengirim email ...
  • Bilah Formula Super (dengan mudah mengedit beberapa baris teks dan rumus); Membaca Tata Letak (membaca dan mengedit sel dalam jumlah besar dengan mudah); Tempel ke Rentang yang Difilter...
  • Gabungkan Sel / Baris / Kolom tanpa kehilangan Data; Pisahkan Konten Sel; Gabungkan Baris / Kolom Duplikat... Mencegah Sel Duplikat; Bandingkan Rentang...
  • Pilih Duplikat atau Unik Baris; Pilih Baris Kosong (semua sel kosong); Temukan Super dan Temukan Fuzzy di Banyak Buku Kerja; Pilih Acak ...
  • Salinan Tepat Beberapa Sel tanpa mengubah referensi rumus; Buat Referensi Otomatis ke Beberapa Lembar; Sisipkan Poin, Kotak Centang, dan lainnya ...
  • Ekstrak Teks, Tambahkan Teks, Hapus berdasarkan Posisi, Hapus Space; Membuat dan Mencetak Subtotal Paging; Konversi Konten Antar Sel dan Komentar...
  • Filter Super (simpan dan terapkan skema filter ke sheet lain); Penyortiran Lanjutan menurut bulan / minggu / hari, frekuensi dan lainnya; Filter Khusus dengan huruf tebal, miring ...
  • Gabungkan Workbooks dan WorkSheets; Gabungkan Tabel berdasarkan kolom kunci; Pisahkan Data menjadi Beberapa Lembar; Konversi Batch xls, xlsx dan PDF...
  • Lebih dari 300 fitur canggih. Mendukung Office / Excel 2007-2021 dan 365. Mendukung semua bahasa. Penerapan yang mudah di perusahaan atau organisasi Anda. Fitur lengkap Uji coba gratis 30 hari. Jaminan uang kembali 60 hari.
tab kte 201905

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!
officetab bawah
Urutkan komentar berdasarkan
komentar (12)
Belum ada peringkat. Jadilah yang pertama memberi peringkat!
Komentar ini diminimalkan oleh moderator di situs
Baru saja menyelamatkan pantatku dengan kode ini, terima kasih! Matlab saya memutuskan untuk berhenti bekerja secara acak dan jadi saya harus menggunakan excel yang tidak saya kenal seperti Matlab. ini membantu. Terima kasih.
Komentar ini diminimalkan oleh moderator di situs
Saya perlu memilih beberapa baris dan interval tetap dan pindah ke lembar lain, tolong jawab saya sesegera mungkin 
Komentar ini diminimalkan oleh moderator di situs
Saya mencoba menggunakan makro VBA di Excel 2010. Ini hanya akan memilih baris ke-n pertama, tidak semuanya dalam pilihan. Jika saya menjalankannya lagi, itu akan pergi ke yang berikutnya. Tahu apa yang saya lakukan salah? Terima kasih!
Komentar ini diminimalkan oleh moderator di situs
fanatik. terima kasih banyak. Ini bekerja dengan sempurna. Saya memiliki lebih dari 7000 data yang perlu dipilih dengan interval yang berbeda. Trik ini seperti keajaiban bagi saya. thaaaaaaaanks.
Komentar ini diminimalkan oleh moderator di situs
Kode memiliki satu permintaan. Apakah harus memilih SELURUH ROW untuk setiap baris ke-n? Tidak bisakah itu memilih sel tertentu (rentang sel) di dalam setiap baris ke-n? Saya tidak membutuhkan semua informasi di setiap baris. Hanya sel-sel tertentu dari setiap baris ke-n.
Komentar ini diminimalkan oleh moderator di situs
Saya membuat modifikasi di bawah ini untuk memilih 30 baris 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 Langkah xInterval + 1 Set rng = InputRng .Cells(i, 1).Resize(, 30) 'Ubah ukuran ke jumlah kolom yang akan dipilih, 30 dalam hal ini Jika OutRng Is Nothing Kemudian Set OutRng = rng Else Set OutRng = Application.Union(OutRng, rng) End If Next OutRng.Select 'Use OutRng.EntireRow.Select untuk memilih seluruh baris End Sub
Komentar ini diminimalkan oleh moderator di situs
Bagus, terima kasih, ini sangat membantu ^_^
Komentar ini diminimalkan oleh moderator di situs
sangat bagus, terima kasih!
Komentar ini diminimalkan oleh moderator di situs
Ganti OutRng.EntireRow.Select dengan Intersect(OutRng.EntireRow, InputRng).Pilih jika Anda ingin setiap baris lain dalam pilihan Anda
Komentar ini diminimalkan oleh moderator di situs
Tolonglah. Ini tampak hebat, TETAPI ketika saya menekan tombol > Jalankan gagal dengan "Kesalahan kompilasi: Sub atau Fungsi tidak ditentukan" dan kode berhenti di "Set rng = InputRng.Rows.Count Step xInterval +1".
Komentar ini diminimalkan oleh moderator di situs
Tidak yakin bahwa saya akan dapat membantu, tapi .. Pertama, ada jarak antara "C" dan "unt" di "Hitung" ketika saya menyalin string kode Anda ke modul. Kedua, saya tidak dapat menemukan kode Anda di tempat lain di halaman ini, harap kirimkan semuanya, jika masalahnya tetap ada.
Komentar ini diminimalkan oleh moderator di situs
Saya juga tidak mengerti bagaimana "Set" dan "Step" bisa bekerja bersama
Belum ada komentar yang diposting di sini
Tinggalkan komentar anda
Posting sebagai Tamu
×
Beri peringkat pos ini:
0   Karakter
Lokasi yang Disarankan

Ikuti kami

Hak Cipta © 2009 - www.extendoffice.com. | Seluruh hak cipta. Dipersembahkan oleh ExtendOffice. | Peta Situs
Microsoft dan logo Office adalah merek dagang atau merek dagang terdaftar dari Microsoft Corporation di Amerika Serikat dan / atau negara lain.
Dilindungi oleh Sectigo SSL