Bagaimana cara menghapus atau menghapus semua teks atau karakter strikethrough dari sel di Excel?
Artikel ini membahas tentang menghapus semua teks atau karakter coret dari beberapa sel di Excel.
Hapus semua teks coret dari sel dengan kode VBA
Hapus semua teks coret dari sel dengan kode VBA
Kode VBA di bawah ini dapat membantu Anda menghapus semua teks dalam sel yang telah ditandai dengan coretan. Silakan lakukan sebagai berikut.
1. Di lembar kerja yang berisi teks coret yang perlu Anda hapus, tekan lain + F11 tombol secara bersamaan untuk membuka Microsoft Visual Basic untuk Aplikasi jendela.
2. Dalam Microsoft Visual Basic untuk Aplikasi jendela, silakan klik Sisipan > Modul. Kemudian salin dan tempel kode VBA di bawah ini ke jendela Kode.
Kode VBA: Hapus semua teks coretan 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 Sub3. tekan F5 atau klik Run tombol untuk menjalankan kode. Dalam bermunculan Kutools untuk Excel kotak dialog, pilih rentang yang berisi teks coret yang akan Anda hapus, lalu klik OK tombol. Lihat tangkapan layar:
Kemudian semua teks yang ditandai dengan coretan dihapus dari sel segera seperti gambar di bawah ini.
Artikel terkait:
- Bagaimana cara menghapus teks sebelum atau sesudah karakter tertentu di Excel?
- Bagaimana cara menghapus teks yang tidak diinginkan dari sel di Excel?
- Bagaimana cara menghapus nomor dari sel yang berisi teks dan angka di Excel?
- Bagaimana cara menghapus hanya teks dari sel yang berisi angka dan teks di Excel?
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!
