Bagaimana cara menghapus baris di atas sel aktif atau teks tertentu di Excel?
Jika ada lembar kerja besar dengan beberapa baris, dan Anda hanya ingin menghapus semua baris di atas sel aktif atau teks tertentu, bagaimana Anda bisa menanganinya? Anda dapat menghapus baris dengan memilihnya dan kemudian klik kanan untuk memilih Hapus dari menu konteks secara manual. Tapi di sini, saya memiliki kode VBA untuk menghapus baris di atas dengan cepat, jika Anda tertarik, silakan baca detail di bawah ini.
Hapus baris di atas dengan kode VBA
Hapus baris di atas dengan kode VBA
Di sini saya memperkenalkan dua kode VBA untuk Anda, satu menghapus baris di atas aktif (sel yang dipilih), satu lagi menghapus baris di atas teks yang ditentukan.
1. Pilih sel yang ingin Anda hapus baris di atasnya, dan tekan Alt + F11 kunci untuk membuka Microsoft Visual Basic untuk Aplikasi jendela.
2. klik Menyisipkan > Modul, dan tempelkan kode di bawah ini ke Modul Script.
VBA: Hapus baris di atas sel aktif
Sub DeleteRowsAboveActive()
Range("A1:A" & ActiveCell.Row - 1).EntireRow.Delete
End Sub
3. tekan F5 kunci, maka baris di atas sel aktif telah dihapus. Lihat tangkapan layar:
Jika Anda ingin menghapus baris di atas teks yang ditentukan, Anda dapat menggunakan di bawah VBA.
VBA: Hapus baris di atas teks yang ditentukan
Sub DeleteRowsABove()
'UpdatebyExtendoffice20161109
Dim fRg As Range
Set fRg = Cells.Find(What:="Total Group", LookAt:=xlWhole)
If Not fRg Is Nothing Then
If fRg.Row <> 1 Then
Range("A1", fRg.Offset(-1)).EntireRow.Delete
Else
MsgBox "Total Group is in the first row already", vbInformation, "Kutools for Excel"
End If
Else
MsgBox "Do not find Total Group", vbInformation, "Kutools for Excel"
End If
End Sub
Catatan:
1. Di dalam kode, Total Grup adalah teks yang ingin Anda temukan, Anda dapat mengubahnya sesuai kebutuhan.
2. Jika teks yang Anda temukan sudah ada di baris pertama, dialog akan muncul untuk mengingatkan Anda.
3. Jika teks yang Anda temukan tidak ada di lembar, dialog seperti gambar di bawah ini akan muncul untuk mengingatkan Anda.
Alat Produktivitas Kantor Terbaik
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...
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!