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

Bagaimana cara menghapus semua kecuali rentang yang dipilih di Excel?

Di Excel, kami dapat dengan cepat dan langsung menghapus rentang yang dipilih, tetapi pernahkah Anda mencoba menghapus konten sel lain kecuali rentang yang dipilih? Artikel ini, saya akan memperkenalkan beberapa trik bagi Anda untuk menyelesaikan tugas ini di Excel dengan cepat dan mudah.

Hapus semua kecuali rentang yang dipilih dengan kode VBA

Hapus semua kecuali rentang yang dipilih dengan Select Range Helper of Kutools for Excel

Hapus semua kecuali rentang yang dipilih dengan Copy Ranges of Kutools for Excel


Hapus semua kecuali rentang yang dipilih dengan kode VBA

Tidak ada cara langsung bagi Anda untuk menghapus semua nilai sel yang tidak dipilih sekaligus, tetapi, kode VBA berikut dapat membantu Anda, lakukan hal berikut:

1. Harap pegang Ctrl kunci untuk memilih sel yang ingin Anda simpan.

doc hapus semua kecuali yang dipilih 1

2. tekan Alt + F11 tombol secara bersamaan untuk membuka Microsoft Visual Basic untuk Aplikasi jendela.

3. di Microsoft Visual Basic untuk Aplikasi kotak dialog jendela, klik Menyisipkan > Modul, lalu salin dan tempel kode VBA di bawah ini ke file Modul jendela.

Kode VBA: hapus semua nilai sel kecuali rentang yang dipilih

Sub ClearAllExceptSelection()
'updateby Extendoffice
    Dim xRg As Range
    Dim xCell As Range
    Dim xAddress As String
    Dim xUpdate As Boolean
    On Error Resume Next
    xAddress = Application.ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("Please select the ranges want to keep", "Kutools for Excel", xAddress, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    xUpdate = Application.ScreenUpdating
    Application.ScreenUpdating = False
    For Each xCell In ActiveSheet.UsedRange
        If Intersect(xCell, xRg) Is Nothing Then
            xCell.Clear
        End If
    Next
    Application.ScreenUpdating = xUpdate
End Sub

4. Lalu tekan F5 kunci untuk menjalankan kode ini, dan kotak prompt muncul untuk mengingatkan Anda untuk memilih rentang sel yang ingin Anda simpan, jika Anda telah memilih rentang di langkah1, silakan klik OK, jika tidak, Anda dapat memilih sel yang Anda inginkan di kotak prompt, dan memasukkan koma untuk memisahkan beberapa rentang, lalu klik OK tombol, lihat tangkapan layar:

doc hapus semua kecuali yang dipilih 2

5. Setelah mengklik OK, semua nilai sel lainnya telah dihapus tetapi hanya meninggalkan rentang yang dipilih, lihat tangkapan layar:

doc hapus semua kecuali yang dipilih 3


Hapus semua kecuali rentang yang dipilih dengan Select Range Helper of Kutools for Excel

Jika sudah terpasang Kutools untuk Excel, Dengan yang Seleksi Terbalik fitur dari Pilih Range Helper utilitas, Anda dapat dengan cepat membalikkan pilihan, lalu menghapus pilihan yang dibalik sekaligus.

Kutools untuk Excel : dengan lebih dari 300 add-in Excel yang praktis, gratis untuk dicoba tanpa batasan dalam 30 hari. 

Setelah menginstal Kutools untuk Excel, lakukan hal berikut :( Unduh Gratis Kutools untuk Excel Sekarang! )

1. Pilih rentang sel yang ingin Anda pertahankan.

2. Lalu klik Kutools > Pilih > Pilih Range Helper, lihat tangkapan layar:

3. di Pilih Range Helper kotak dialog, periksa Seleksi Terbalik, lihat tangkapan layar:

doc hapus semua kecuali yang dipilih 5

4. Dan kemudian seret mouse untuk memilih rentang yang Anda inginkan untuk membalikkan pilihan. Saat Anda melepaskan mouse, sel yang dipilih telah dibatalkan pilihannya dan sel yang tidak dipilih telah dipilih sekaligus. Lihat tangkapan layar:

doc hapus semua kecuali yang dipilih 6

5. Kemudian tutup kotak dialog, dan tekan Delete kunci untuk menghapus pilihan sekaligus. Dan hanya sel yang Anda inginkan yang disimpan, lihat tangkapan layar:

doc hapus semua kecuali yang dipilih 7

Unduh Gratis Kutools untuk Excel Sekarang!


Hapus semua kecuali rentang yang dipilih dengan Select Range Helper of Kutools for Excel

Utilitas lain-Salin Rentang of Kutools untuk Excel juga dapat membantu Anda menyelesaikan pekerjaan ini, Anda hanya perlu menyalin rentang yang Anda pilih ke lembar kerja baru, lalu menghapus lembar kerja lama.

Setelah menginstal Kutools untuk Excel, lakukan dengan langkah-langkah berikut :( Unduh Gratis Kutools untuk Excel Sekarang! )

1. Memegang Ctrl kunci untuk memilih rentang sel yang ingin Anda simpan.

2. Lalu klik Kutools > Salin Rentang, lihat tangkapan layar:

3. Dan di Salin Beberapa Rentang kotak dialog, periksa Semua pilihan di bawah Tempel khusus, periksa Termasuk tinggi baris serta Termasuk lebar kolom jika Anda ingin mempertahankan tinggi baris dan lebar kolom yang Anda inginkan, lihat tangkapan layar:

doc hapus semua kecuali yang dipilih 9

4. Lalu klik Ok tombol, dan kotak prompt lain akan muncul untuk mengingatkan Anda memilih sel untuk meletakkan sel yang disalin, pilih sel di lembar kerja baru, lihat tangkapan layar:

doc hapus semua kecuali yang dipilih 10

5. Dan kemudian klik OK, dan hanya rentang pilihan Anda yang telah ditempelkan ke lembar kerja baru, dan sekarang Anda dapat menghapus lembar kerja asli sesuai kebutuhan.

Unduh Gratis Kutools untuk Excel Sekarang!


Demo: Hapus semua kecuali rentang yang dipilih dengan Kutools for Excel

Kutools untuk Excel: dengan lebih dari 300 add-in Excel yang praktis, gratis untuk dicoba tanpa batasan dalam 30 hari. Unduh dan uji coba gratis Sekarang!

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 (0)
Belum ada peringkat. Jadilah yang pertama memberi peringkat!
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