Bagaimana menghapus setiap baris lain pada lembar kerja Excel

Artikel ini berisi contoh Microsoft Visual Basic untuk Makro aplikasi yang dapat Anda gunakan untuk menghapus setiap baris dalam dipilih kisaran pada lembar kerja Microsoft Excel.

Microsoft menyediakan contoh pemrograman hanya sebagai ilustrasi, tanpa jaminan apa pun baik tersurat maupun tersirat. Termasuk, namun tidak terbatas pada, jaminan tersirat mengenai kelayakan untuk diperdagangkan atau kesesuaian untuk keperluan tertentu. Artikel ini mengasumsikan bahwa Anda telah terbiasa dengan bahasa pemrograman yang ditunjukkan dan dengan alat yang digunakan untuk membuat dan mendebug prosedur. Teknisi dukungan Microsoft dapat membantu menjelaskan fungsionalitas prosedur tertentu, namun mereka tidak akan memodifikasi contoh untuk memberikan fungsionalitas tambahan atau menyusun prosedur untuk memenuhi persyaratan khusus Anda. Untuk menggunakan makro berikut, mengatur Excel workbook sebagai berikut:

1. Buat buku kerja Microsoft Excel baru.
2. Dalam lembar kerja yang baru, di pegunungan A1:A9, ketik nomor 1 untuk 5, melompat-lompat baris, seperti dalam contoh berikut:

         A1: 1
         A2:
         A3: 2
         A4:
         A5: 3
         A6:
         A7: 4
         A8:
         A9: 5
   					

3. Pada Alat menu, titik Makro, lalu klik Penyunting Visual Basic.
   
   Catatan Di Microsoft Office Excel 2007, klik Visual Basic dalam Kode kelompok pada Pengembang tab.
4. Pada Masukkan menu, klik Modul.
5. Pada modul baru, ketik makro berikut ini:

   Sub Delete_Every_Other_Row()
   
      ' Dimension variables.
      Y = False              ' Change this to True if you want to
                             ' delete rows 1, 3, 5, and so on.
      I = 1
      Set xRng = Selection
   
      ' Loop once for every row in the selection.
      For xCounter = 1 To xRng.Rows.Count
   
          ' If Y is True, then...
          If Y = True Then
   
              ' ...delete an entire row of cells.
              xRng.Cells(I).EntireRow.Delete
   
          ' Otherwise...
          Else
   
              ' ...increment I by one so we can cycle through range.
              I = I + 1
   
          End If
   
          ' If Y is True, make it False; if Y is False, make it True.
          Y = Not Y
   
      Next xCounter
   
   End Sub
   						

6. Beralih ke lembar kerja yang berisi data, dan kemudian pilih berbagai A1:A9.
7. Untuk menjalankan makro, arahkan ke Makro pada Alat menu, dan kemudian klik Makro.
   
   Catatan Di Excel 2007, klik Makro dalam Kode kelompok pada Pengembang tab.
   
   Catatan Untuk menampilkan Pengembang tab di Pita, klik Microsoft Office tombol, klik Excel pilihan, klik Kategori populer, klik untuk memilih Tampilkan tab pengembang di pita Periksa kotak, dan kemudian klik Oke.
8. Pilih Delete_Every_Other_Row makro, dan kemudian klik Menjalankan.

Makro ini akan menghapus setiap baris lain, dimulai dengan baris kedua pemilihan.

Catatan Jika Anda memiliki daftar data yang berisi beberapa kolom, Pilih hanya kolom pertama data, dan kemudian jalankan makro.