Petua: Bahasa lain diterjemahkan Google. Anda boleh melawat English versi pautan ini.
Log masuk
x
or
x
x
Daftar Sekarang
x

or

Bagaimana untuk membuang atau memadam semua teks atau aksara strikethrough dari sel dalam Excel?

Artikel ini bercakap tentang membuang semua teks atau aksara strikethrough dari pelbagai sel dalam Excel.

Keluarkan semua teks strikethrough dari sel dengan kod VBA


Keluarkan semua teks strikethrough dari sel dengan kod VBA


Kod di bawah VBA boleh membantu anda membuang semua teks dalam sel yang ditandai dengan strikethrough. Sila buat seperti berikut.

1. Dalam lembaran kerja mengandungi teks strikethrough yang perlu anda keluarkan, tekan Alt + F11 kunci pada masa yang sama untuk membuka Microsoft Visual Basic untuk Aplikasi tingkap.

2. Di dalam Microsoft Visual Basic untuk Aplikasi tetingkap, sila klik LDP > Modul. Kemudian salin dan tampal di bawah kod VBA ke dalam tetingkap Kod.

Kod VBA: Keluarkan semua teks strikethrough dari sel

Sub DelStrikethroughText()
    Dim xRg As Range, xCell As Range
    Dim xStr As String
    Dim I As Long
    On Error Resume Next
    Set xRg = Application.InputBox("Please select range:", "KuTools For Excel", Selection.Address, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    Application.ScreenUpdating = Fase
        For Each xCell In xRg
            If IsNumeric(xCell.Value) And xCell.Font.Strikethrough Then
                xCell.Value = ""
            ElseIf Not IsNumeric(xCell.Value) Then
                For I = 1 To Len(xCell)
                    With xCell.Characters(I, 1)
                        If Not .Font.Strikethrough Then
                            xStr = xStr & .Text
                        End If
                    End With
                Next
                xCell.Value = xStr
                xStr = ""
            End If
        Next
    Application.ScreenUpdating = True
End Sub

3. Tekan butang F5 kunci atau klik Main butang untuk menjalankan kod. Dalam bermunculan Kutools untuk Excel kotak dialog, sila pilih julat mengandungi teks strikethrough yang akan anda keluarkan, dan kemudian klik OK butang. Lihat tangkapan skrin:

Kemudian semua teks yang ditandakan dengan strikethrough dikeluarkan dari sel serta-merta seperti screenshot di bawah ditunjukkan.


Related articles:



Cadangan Alat Produktiviti untuk Excel

Kutools untuk Excel Membantu Anda Selalu Menyelesaikan Kerja di Hadapan Masa, dan Berdiri Daripada Orang

  • Lebih daripada ciri-ciri canggih 300 yang canggih, yang direka untuk senario kerja 1500, meningkatkan produktiviti oleh 70%, memberi anda lebih banyak masa untuk menjaga keluarga dan menikmati kehidupan.
  • Tidak perlu lagi menghafal formula dan kod VBA, berikan rehat dari otak anda sekarang.
  • Menjadi pakar Excel dalam minit 3, Operasi yang rumit dan berulang boleh dilakukan dalam beberapa saat,
  • Mengurangkan beribu-ribu operasi papan kekunci & tetikus setiap hari, mengucapkan selamat tinggal kepada penyakit pekerjaan sekarang.
  • 110,000 orang yang sangat berkesan dan pilihan syarikat 300 + yang terkenal di dunia.
  • Ciri-ciri penuh 60-hari adalah percubaan percuma. Jaminan wang balik 60 hari. Tahun 2 peningkatan dan sokongan percuma.

Membawa Browsing Tab dan Editing ke Microsoft Office, Jauh Lebih Berkuasa Daripada Tab Penyemak Imbas

  • Tab Pejabat direka untuk Aplikasi Pejabat Word, Excel, PowerPoint dan Lain-lain: Penerbit, Akses, Visio dan Projek.
  • Buka dan buat beberapa dokumen dalam tab baharu pada tetingkap yang sama, dan bukannya dalam tetingkap baru.
  • Meningkatkan produktiviti anda oleh 50%, dan mengurangkan beratus-ratus klik tetikus untuk anda setiap hari!
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Girish · 3 months ago
    can it be done through python, pandas ?
    If yes can anybody help me out how to implement this ?
    • To post as a guest, your comment is unpublished.
      crystal · 3 months ago
      Hi Girish,
      The code hasn't been tested in python, pandas. Sorry can't help you with that. Thanks for commenting.
  • To post as a guest, your comment is unpublished.
    Upul · 1 years ago
    This does not work. Excel goes into Not Responding.
    • To post as a guest, your comment is unpublished.
      Josh · 3 months ago
      It works in small scale. I assume that the reason it goes into Not Responding is because the Macro takes forever when you have a lot of data to get through. This Macro is checking every single character for strike through.

      I would recommend adding code that reformats the cell when it is done because I had several cells where the code removed the strikethrough text but the remaining text was still in strikethrough. I believe this is because the formatting of the full cell was strikethrough with the non strikethrough text being formatted differently, so just an FYI.
    • To post as a guest, your comment is unpublished.
      crystal · 10 months ago
      Good day,
      Sorry for the inconvenience. Would you provide your Office version? Thanks for your comment.
      • To post as a guest, your comment is unpublished.
        Boris · 7 months ago
        Same here.

        I am using Office 365 ProPlus