Langkahnya adalah sbb : - Non aktifkan layar - Tetapkan jumlah baris (No Baris terakhir, dalam Contoh 22) melalui input - Jumlah baris yang akan dihapus adalah Jumlah baris : 2 - Select sel A1, yang merupakan tahap awal - Lakukan langkah2 berikut : -- Turun 1 baris -- Hapus baris -- Ulangi sampai dengan baris terakhir - Aktifkan layar
Jika diterjemahkan dalam macro menjadi sbb :
Sub DelBarisGenap()
Application.ScreenUpdating = False
n = InputBox("Masukkan Jumlah Baris", "JUMLAH BARIS")
i = n / 2
Range("A1").Select
Do While ActiveCell.Row <= i
ActiveCell.Offset(1, 0).Select
ActiveCell.EntireRow.Delete
Loop
Application.ScreenUpdating = True
End Sub
Untuk memudahkan saya buat shortcut CTRL Z (tekan tombol Ctrl dan Z sekaligus)
Semoga membantu.
Salam,
Hendrik Karnadi
________________________________
From: lut her <[email protected]>
To: [email protected]
Sent: Tuesday, June 14, 2011 13:57:48
Subject: [belajar-excel] Menghapus Range Ganjil dengan Macro
Dear all excel mania,
mohon bantuannya untuk menghilangkan baris dengan macro contoh kasus terlampir,
selama ini pengerjaannya manual dblok dulu barisnya kemudian delete dikarenakan
datanya ribuan perlu macro untuk pengerjaannya supaya cepet mohon
penyelesaiannya.
terima kasih sebelumnya yah...
luth
COPY OF MENGHILANGKAN BARIS DENGAN MACRO.xls
Description: Binary data
