Loncat ke daftar isi utama

Bagaimana cara cepat menghapus tanda hubung dari sel di Excel?

Misalkan ada daftar kode pos atau nomor ISBN panjang di sel lembar kerja Anda, dan nomor panjang berisi tanda hubung, untuk beberapa tujuan, Anda perlu menghilangkan tanda hubung di antara nomor (seperti yang ditunjukkan tangkapan layar berikut). Apakah ada cara cepat untuk menghilangkan tanda hubung ini di antara angka-angka di Excel?

Hapus tanda hubung dari sel dengan rumus
Hapus tanda hubung dari sel dengan kode VBA
Hapus garis putus-putus dengan mudah dari sel dengan Kutools for Excel


Hapus tanda hubung dari sel dengan rumus

Dengan ini PENGGANTI fungsi, angka akan dikonversi menjadi nilai teks, jadi saat Anda menghapus tanda hubung, baik 0 di depan tidak akan dihapus atau angka akan menjadi notasi ilmiah. Harap lakukan sebagai berikut:

1. Di sel kosong yang berdekatan, C1 misalnya, masukkan rumus ini: = SUBSTITUTE (A1, "-", ""), lihat tangkapan layar:

2. tekan Enter kunci, dan pilih sel C1, lalu seret gagang isian ke rentang yang Anda inginkan untuk memuat rumus ini. Dan tanda hubung di antara nomor telah dihilangkan. Lihat tangkapan layar:

Hapus semua karakter numerik, non-numerik, atau yang ditentukan dengan mudah seperti "tanda hubung" dari sel di Excel:

Kutools untuk Excel's Hapus Karakter utilitas membantu Anda dengan mudah menghapus semua karakter numerik, non-numerik atau tertentu dari sel yang dipilih di Excel.
Unduh dan coba sekarang! (Jejak gratis 30 hari)


Hapus tanda hubung dari sel dengan kode VBA

Dengan kode VBA berikut, Anda juga dapat menghapus tanda hubung di antara angka dari rentang sel.

1. Sorot rentang yang ingin Anda hapus tanda hubungnya.

2. Tahan ALT + F11 kunci untuk membuka Microsoft Visual Basic untuk Aplikasi jendela.

3. Klik Menyisipkan > Modul, dan tempel kode berikut di jendela modul.

VBA: hapus tanda hubung di antara angka

Sub DeleteDashes()
'Update 20130907
Dim rng As Range
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Application.ScreenUpdating = False
For Each rng In WorkRng
    rng.NumberFormat = "@"
    rng.Value = VBA.Replace(rng.Value, "-", "")
Next
Application.ScreenUpdating = True
End Sub

4. Lalu tekan F5 kunci untuk menjalankan kode ini, dan dialog muncul untuk memberi tahu Anda memilih rentang yang ingin Anda gunakan. Lihat tangkapan layar:

5. Dan kemudian klik OK, tanda pisah di antara angka telah dihapus dari sel. Dan format angka diubah menjadi format teks. Lihat tangkapan layar:


Hapus tanda hubung dari sel dengan Kutools for Excel

Jika Anda seorang pemula Excel, baik rumus maupun kodenya sulit bagi Anda, jangan khawatir, file Kutools untuk Excel'S Hapus Karakter fungsi dapat membantu Anda dengan cepat menghapus tanda hubung dari sel.

Sebelum melamar Kutools untuk Excel, Mohon unduh dan instal terlebih dahulu.

1. Pilih rentang sel mana yang Anda perlukan untuk menghapus tanda hubung, lalu klik Kutools > Teks > Hapus Karakter, lihat tangkapan layar:

2. di Hapus Karakter kotak dialog, periksa Kustom opsi, dan ketik "-"Ke dalam kotak teks, kemudian Anda dapat melihat hasil dari Preview Panel. Kemudian klik OK tombol untuk menghapus semua garis di sel yang dipilih. Lihat tangkapan layar:

Note. Jika sel yang dipilih berisi nol atau banyak digit di depan, untuk menjaga angka nol di depan dan menghindari nomor menjadi notasi ilmiah setelah menghapus tanda hubung, Anda perlu memformat sel sebagai Teks seperti gambar di bawah ini yang ditunjukkan sebelum menerapkan Hapus Karakter utilitas

  Jika Anda ingin memiliki uji coba gratis (30 hari) dari utilitas ini, silahkan klik untuk mendownloadnya, lalu lanjutkan untuk menerapkan operasi sesuai langkah di atas.


Hapus garis putus-putus dengan mudah dari sel dengan Kutools for Excel


Artikel terkait:

Alat Produktivitas Kantor Terbaik

馃 Kutools AI Ajudan: Merevolusi analisis data berdasarkan: Eksekusi Cerdas   |  Hasilkan Kode  |  Buat Rumus Khusus  |  Analisis Data dan Hasilkan Grafik  |  Aktifkan Fungsi Kutools...
Fitur Populer: Temukan, Sorot, atau Identifikasi Duplikat   |  Hapus Baris Kosong   |  Gabungkan Kolom atau Sel tanpa Kehilangan Data   |   Putaran tanpa Formula ...
Pencarian Super: VLookup Beberapa Kriteria    VLookup Nilai Berganda  |   VLookup di Beberapa Lembar   |   Pencarian Fuzzy ....
Daftar Drop-down Lanjutan: Buat Daftar Drop Down dengan Cepat   |  Daftar Drop Down yang Bergantung   |  Multi-pilih Drop Down List ....
Manajer Kolom: Tambahkan Jumlah Kolom Tertentu  |  Pindahkan Kolom  |  Alihkan Status Visibilitas Kolom Tersembunyi  |  Bandingkan Rentang & Kolom ...
Fitur Unggulan: Fokus Kisi   |  Tampilan Desain   |   Bar Formula Besar    Manajer Buku Kerja & Lembar   |  Perpustakaan Sumberdaya (Teks otomatis)   |  Pemetik tanggal   |  Gabungkan Lembar Kerja   |  Enkripsi/Dekripsi Sel    Kirim Email berdasarkan Daftar   |  Filter Super   |   Filter Khusus (filter tebal/miring/coret...) ...
15 Perangkat Teratas12 Teks Tools (Tambahkan Teks, Hapus Karakter, ...)   |   50 + Grafik jenis (Gantt Chart, ...)   |   40+ Praktis Rumus (Hitung usia berdasarkan ulang tahun, ...)   |   19 Insersi Tools (Masukkan Kode QR, Sisipkan Gambar dari Jalur, ...)   |   12 Konversi Tools (Angka ke Kata, Konversi Mata Uang, ...)   |   7 Gabungkan & Pisahkan Tools (Lanjutan Gabungkan Baris, Pisahkan Sel, ...)   |   ... dan banyak lagi

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...

Deskripsi Produk


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!
Comments (9)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
this and the concatenate command have saved my brain from melting! thank you!
This comment was minimized by the moderator on the site
Sub DeleteDashes() 'Update 20130907 Dim rng As Range Dim WorkRng As Range On Error Resume Next xTitleId = "KutoolsforExcel" Set WorkRng = Application.Selection Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8) Application.ScreenUpdating = False For Each rng In WorkRng rng.NumberFormat = "@" rng.Value = VBA.Replace(rng.Value, "-", "") Next Application.ScreenUpdating = True End Sub
This comment was minimized by the moderator on the site
unimpressed with your instructions - using the =SUBSTITUTE formula above, the leading zeros are stripped
This comment was minimized by the moderator on the site
THANK YOU EXTEND OFFICE IT'S VERY HELPFUL AND SIMPLE.. KUDOS!
This comment was minimized by the moderator on the site
Use the find and replace feature. (Ctrl + F, click the replace tab). Enter "-" Into the find field (or whatever you're trying to remove) and hit the replace button. Make sure you leave the "Replace with" field blank.
This comment was minimized by the moderator on the site
Great it works
This comment was minimized by the moderator on the site
WOW.... You win this whole thread, THANK YOU!!!
This comment was minimized by the moderator on the site
Hi, This is manish gupta and it is the good code of removing the border areas in excel sheets. thanks and regards manish gupta
This comment was minimized by the moderator on the site
HI , MY PROBMEL SOLVE PLEASE
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
Rate this post:
0   Characters
Suggested Locations