Note: The other languages of the website are Google-translated. Back to English
Masuk  \/ 
x
or
x
Daftar  \/ 
x

or

Bagaimana cara menghapus sel atau baris jika tidak dicetak tebal di Excel?

Misalkan Anda memiliki berbagai data dengan sel tebal dan bukan sel tebal seperti gambar di bawah ini yang ditunjukkan, sekarang yang Anda butuhkan adalah menghapus sel atau baris jika tidak dicetak tebal. Alih-alih menghapus sel yang tidak dicetak tebal satu per satu secara manual, tutorial ini memperkenalkan trik agar Anda dapat menyelesaikannya dengan cepat di Excel.

doc hapus jika tidak tebal 1

Hapus baris jika tidak dicetak tebal dengan VBA

Hapus sel jika tidak dicetak tebal dengan Find and Replace dan Select Range Helper

Hapus baris / sel jika tidak tebal dengan Kutools for Excel ide bagus3


v Hapus baris jika tidak dicetak tebal dengan VBA

Untuk menghapus baris jika tidak dicetak tebal, Anda dapat menggunakan kode VBA untuk menangani.

1. tekan F11 + Alt kunci untuk mengaktifkan Microsoft Visual Basic untuk Aplikasi jendela.

2. klik Menyisipkan > Modul, lalu ditempel di bawah kode VBA ke yang baru Modul jendela.

VBA: Hapus baris jika tidak dicetak tebal.

Sub DeleteNonBolded()
'UpdatebyKutoolsforExcel20151116
    Dim xRg As Range
    Dim xDelRg As Range
    Dim xAddress As String
    Dim xUpdate As Boolean
    Dim I As Long
    Dim xBold As Variant
    On Error Resume Next
    xAddress = Application.ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("Select a range", "Kutools for Excel", xAddress, , , , , 8)
    Set xRg = Application.Intersect(xRg, ActiveSheet.UsedRange)
    If xRg Is Nothing Then Exit Sub
    If xRg.Areas.Count > 1 Then
        MsgBox "This VBA cannot support multiple range", , "Kutools for Excel"
        Exit Sub
    End If
    xUpdate = Application.ScreenUpdating
    Application.ScreenUpdating = False
    For I = 1 To xRg.Rows.Count
        xBold = xRg.Rows(I).Cells.Font.Bold
        If TypeName(xBold) = "Boolean" Then
            If xBold = False Then
                If xDelRg Is Nothing Then
                    Set xDelRg = xRg.Rows(I).EntireRow
                Else
                    Set xDelRg = Union(xRg.Rows(I).EntireRow, xDelRg)
                End If
            End If
        End If
    Next
    xDelRg.Delete
    Application.ScreenUpdating = xUpdate
End Sub

3. tekan F5 kunci untuk menjalankan kode VBA. Dalam bermunculan Kutools untuk Excel kotak dialog, tentukan kisaran yang akan Anda hapus baris tanpa sel tebal, dan klik OK tombol.

doc hapus jika tidak tebal 2

Dan kemudian Anda bisa melihat baris yang tidak berisi sel tebal telah dihapus

doc hapus jika tidak tebal 1doc panah kanandoc hapus jika tidak tebal 3

Catatan: baris hanya dapat dihapus jika semua sel di baris yang sama tidak dicetak tebal.


Hapus sel jika tidak dicetak tebal dengan Find and Replace dan Select Range Helper

Jika Anda hanya ingin menghapus konten sel dari sel yang tidak dicetak tebal, Anda dapat menggunakan fungsi Find and Replace untuk memilih sel yang dicetak tebal terlebih dahulu, lalu gunakan Kutools untuk Excel'S Pilih Range Helper untuk membalikkan pemilihan sel yang tidak dicetak tebal, lalu hapus isinya.

1. Pilih kisaran data di mana Anda ingin menghapus sel yang tidak dicetak tebal, dan tekan Ctrl + F untuk mengaktifkan Cari dan Ganti dialog, dan klik di Opsi tombol. Lihat tangkapan layar:

doc hapus jika tidak tebal 4

2. klik dibentuk untuk pergi ke Temukan Format dialog, dan di bawah Font tab, pilih Berani dari Gaya tulisan daftar. Lihat tangkapan layar:

doc hapus jika tidak tebal 5

3. klik OK > Temukan semua, dan semua sel yang dicetak tebal dicantumkan di Cari dan Ganti dialog, dan tekan Ctrl + A untuk memilih semuanya, lalu tutup Cari dan Ganti dialog. Lihat tangkapan layar:

doc hapus jika tidak tebal 6

4. Kemudian biarkan sel-sel ini dipilih dan klik Kutools > memilih > Pilih Range Helper. Lihat tangkapan layar:

doc hapus jika tidak tebal 7

5. Pada dialog popping, periksa Seleksi Terbalik opsi pertama, lalu pilih kisaran data asli. Sekarang Anda bisa melihat pilihannya terbalik. Lihat tangkapan layar:

doc hapus jika tidak tebal 8

6. klik Tutup. Sekarang tekan Menghapus kunci untuk menghapus isi sel dari sel yang tidak dicetak tebal.

doc hapus jika tidak tebal 9


Hapus baris / sel jika tidak tebal dengan Kutools for Excel

Cara diatas tidak cukup mudah, dalam hal ini bisa anda gunakan Kutools untuk Excel'S Pilih Sel dengan Format utilitas untuk dengan cepat mengidentifikasi sel yang tidak dicetak tebal, lalu menghapusnya.

Kutools untuk Excel, dengan lebih dari 300 fungsi praktis, membuat pekerjaan Anda lebih mudah. 

Setelah pemasangan gratis Kutools for Excel, lakukan seperti di bawah ini:

1. Pilih rentang data yang Anda butuhkan, dan klik Kutools > memilih > Pilih Sel dengan Format. Lihat tangkapan layar:

doc hapus jika tidak tebal 15

2. Pada dialog popping, klik Pilih Format Dari Sel tombol untuk memilih satu sel yang tidak dicetak tebal dari rentang data, lalu centang Berani hanya dari daftar di bawah ini di bagian Font. Lihat tangkapan layar:

doc hapus jika tidak tebal 11

3. klik Ok, dan dialog muncul untuk mengingatkan Anda jumlah sel yang dipilih, cukup klik ya untuk menutupnya.

doc hapus jika tidak tebal 12

Sekarang semua sel yang tidak dicetak tebal dipilih, dan tekan Menghapus kunci untuk menghapus isi sel. Atau jika Anda ingin menghapus baris yang tidak dicetak tebal, klik kanan salah satu sel yang dipilih dan pilih Menghapus > Seluruh baris. Lihat tangkapan layar:

doc hapus jika tidak tebal 13doc panah kanandoc hapus jika tidak tebal 14

Artikel Relatif:


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 ...
  • Super Formula Bar (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-2019 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.
kte tab 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.
  • Tingkatkan produktivitas Anda hingga 50%, dan kurangi ratusan klik mouse untuk Anda setiap hari!
officetab bawah
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.