Cara memadam setiap baris lain atau setiap baris nth di excel

Tutorial ini menunjukkan kepada anda bagaimana untuk memadamkan setiap baris lain, atau mana -mana baris nth, di Microsoft Excel. Kami akan merangkumi dua kaedah: penapisan dan kod VBA.

Terdapat banyak senario di mana mengeluarkan baris tertentu diperlukan. Sebagai contoh, anda mungkin perlu mengekalkan data dari minggu-minggu bernombor semasa memindahkan data minggu yang ganjil ke lembaran yang berasingan. Inti proses melibatkan memilih baris sasaran dan kemudian memadamnya.

Kaedah:

• Memadam setiap baris lain melalui penapisan
• Memadam baris alternatif dengan VBA
• Memadam setiap baris nth

Kaedah 1: Memadam setiap baris lain menggunakan penapisan

Kaedah ini menggunakan lajur penolong dan keupayaan penapisan Excel.

1. Lajur Pembantu: Tambah lajur baru di sebelah data anda. Enter =MOD(ROW(),2) dalam sel pertama lajur ini dan seret ke bawah. Formula ini mengembalikan 0 untuk baris dan 1 untuk baris ganjil.

   

2. Penapisan: Sapukan penapis ke lajur pembantu (data> Sort & Filter> Filter). Pilih sama ada 0 (untuk memadam baris walaupun) atau 1 (untuk memadam baris ganjil).

   

3. Memadam: Pilih baris yang kelihatan (yang sepadan dengan kriteria penapis anda), klik kanan, dan pilih "Padam Baris."

   

4. Mengeluarkan Penapis: Matikan penapis (klik butang penapis sekali lagi). Padam lajur pembantu.

   

   Lembaran kerja anda kini hanya mengandungi baris yang ingin anda simpan.

   

Petua: Untuk memindahkan baris dan bukannya memadamnya, salin baris yang ditapis sebelum memadamnya dan tampalnya ke lokasi baru.

Kaedah 2: Menghapus baris alternatif dengan VBA

Makro VBA ini mengautomasikan prosesnya:

 Sub delete_alternate_rows_excel ()
  Sourcernange Dim sebagai julat
  Tetapkan sourcernange = application.selection
  Tetapkan Sourcernange = Application.InputBox ("Julat:", "Pilih julat", sourcernange.address, jenis: = 8)
  Jika sourcerne.rows.count> = 2 maka
    Dim FirstCell sebagai julat
    Dim Rowindex sebagai Integer
    Application.ScreenUpdating = false
    Untuk rowIndex = sourcernange.rows.count - (sourcernange.rows.count mod 2) hingga 1 langkah -2
      Tetapkan FirstCell = Sourcernange.Cells (RowIndex, 1)
      Firstcell.entirerow.delete
    Seterusnya
    Application.screenupdating = true
  Akhir jika
Akhir sub

1. Buka Editor VBA (ALT F11).

2. Masukkan modul (masukkan> modul).

3. Tampal kod ke dalam modul.

4. Jalankan makro (F5).

5. Pilih julat data apabila diminta.

   

   Makro akan memadam setiap baris lain dalam julat yang dipilih.

   

Kaedah 3: Memadam setiap baris nth

Ini mengembang pada kaedah penapisan. Gunakan formula ini dalam lajur pembantu:

=MOD(ROW() - *m*, *n*)

Di mana:

• m ialah nombor baris baris data pertama dikurangkan 1.
• n ialah baris nth untuk memadam.

Sebagai contoh, untuk memadam setiap baris ke-3 bermula dari baris 2, gunakan =MOD(ROW()-1,3) . Kemudian penapis untuk 0 dan padamkan baris yang kelihatan.

Ini membolehkan anda memadam mana -mana baris n dengan cekap. Ingatlah untuk menyesuaikan m berdasarkan baris permulaan anda.

Atas ialah kandungan terperinci Cara memadam setiap baris lain atau setiap baris nth di excel. Untuk maklumat lanjut, sila ikut artikel berkaitan lain di laman web China PHP!