Ana içeriğe atla

Excel'deki hücrelerden kısa çizgiler nasıl hızlı bir şekilde kaldırılır?

Çalışma sayfası hücrelerinizde posta kodları veya uzun ISBN numaralarının bir listesi olduğunu ve uzun sayıların kısa çizgiler içerdiğini varsayarsak, bir amaç için sayılar arasındaki çizgilerden kurtulmanız gerekir (aşağıdaki ekran görüntülerinde gösterildiği gibi). Excel'deki sayılar arasındaki bu çizgileri kaldırmanın hızlı bir yolu var mı?

Formülle hücrelerden kısa çizgileri kaldırın
VBA kodu ile hücrelerden kısa çizgileri kaldırın
Kutools for Excel ile hücrelerden kısa çizgileri kolayca kaldırın


Formülle hücrelerden kısa çizgileri kaldırın

Bununla VEKİL işlev, sayılar metin değerlerine dönüştürülür, bu nedenle kısa çizgileri kaldırdığınızda, ne baştaki 0 ​​kaldırılır ne de sayılar bilimsel gösterim olur. Lütfen aşağıdaki işlemleri yapın:

1. Bitişik boş bir hücreye, örneğin C1, şu formülü girin: = SUBSTITUTE (A1; "-", ""), ekran görüntüsüne bakın:

2. Basın Keşfet tuşuna basın ve C1 hücresini seçin, ardından doldurma tutamacını bu formülü içermesini istediğiniz aralığa sürükleyin. Ve numaralar arasındaki çizgiler kaldırıldı. Ekran görüntüsüne bakın:

Excel'deki hücrelerden "tireler" gibi tüm sayısal, sayısal olmayan veya belirtilen karakterleri kolayca kaldırın:

Kutools for Excel's Karakterleri Kaldır yardımcı program, Excel'deki seçili hücrelerden tüm sayısal, sayısal olmayan veya belirtilen karakterleri kolayca kaldırmanıza yardımcı olur.
Şimdi indirin ve deneyin! (30 günlük ücretsiz iz)


VBA kodu ile hücrelerden kısa çizgileri kaldırın

Aşağıdaki VBA kodu ile, bir dizi hücreden sayılar arasındaki kısa çizgileri de kaldırabilirsiniz.

1. Çizgileri kaldırmak istediğiniz aralığı vurgulayın.

2. Basılı tutun ALT + F11 tuşlarını açmak için Uygulamalar için Microsoft Visual Basic pencere.

3. tıklayın Ekle > modülve aşağıdaki kodu Modül penceresine yapıştırın.

VBA: sayılar arasındaki çizgileri kaldırın

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. Daha sonra tuşuna basın. F5 Bu kodu çalıştırmak için tuşuna basın ve kullanmak istediğiniz aralığı seçmenizi söyleyen bir iletişim kutusu açılır. Ekran görüntüsüne bakın:

5. Ve sonra tıklayın OK, sayılar arasındaki çizgiler hücrelerden kaldırıldı. Ve sayı biçimi metin biçimine dönüştürülür. Ekran görüntülerine bakın:


Kutools for Excel ile hücrelerden çizgileri kaldırın

Excel'e yeni başlayan biriyseniz, hem formül hem de kod sizin için zordur, lütfen endişelenmeyin, Kutools for Excel'S Karakterleri Kaldır işlevi, tireleri hücrelerden hızlı bir şekilde silmenize yardımcı olabilir.

Başvurmadan önce Kutools for ExcelLütfen önce indirin ve kurun.

1. Kesikli çizgileri kaldırmanız gereken hücre aralığını seçin ve ardından Kutools > Metin > Karakterleri Kaldır, ekran görüntüsüne bakın:

2. In Karakterleri Kaldır iletişim kutusu, işaretleyin görenek seçeneğini seçin ve "-”Karakterini metin kutusuna girdikten sonra, sonuçların önizlemesini görüntüleyebilirsiniz. Önizleme Bölme. Ardından OK Seçili hücrelerdeki tüm kısa çizgileri kaldırmak için düğmesine basın. Ekran görüntüsüne bakın:

not. Seçili hücreler önde gelen sıfırlar veya çok sayıda basamak içeriyorsa, baştaki sıfırları korumak ve sayının kısa çizgileri kaldırdıktan sonra bilimsel gösterim haline gelmesini önlemek için, hücreleri uygulamadan önce aşağıda gösterilen Metin olarak biçimlendirmeniz gerekir. Karakterleri Kaldır Yarar.

  Bu yardımcı programın ücretsiz denemesine (30 günlük) sahip olmak istiyorsanız, indirmek için lütfen tıklayınızve ardından yukarıdaki adımlara göre işlemi uygulamaya gidin.


Kutools for Excel ile hücrelerden kısa çizgileri kolayca kaldırın


İlgili yazılar:

En İyi Ofis Üretkenlik Araçları

🤖 Kutools AI Yardımcısı: Aşağıdakilere dayalı olarak veri analizinde devrim yaratın: Akıllı Yürütme   |  Kodunu oluşturun  |  Özel Formüller Oluşturun  |  Verileri Analiz Edin ve Grafikler Oluşturun  |  Kutools İşlevlerini Çağır...
Popüler Özellikler: Yinelenenleri Bul, Vurgula veya Tanımla   |  Boş Satırları Sil   |  Veri Kaybı Olmadan Sütunları veya Hücreleri Birleştirin   |   Formülsüz Tur ...
Süper Arama: Çoklu Ölçütlü VLookup    Çoklu Değer VLookup  |   Birden Çok Sayfada VLookup   |   Bulanık Arama ....
Gelişmiş Açılır Liste: Hızla Açılır Liste Oluşturun   |  Bağımlı Açılır Liste   |  Çoklu Seçim Açılır Liste ....
Sütun Yöneticisi: Belirli Sayıda Sütun Ekleme  |  Sütunları Taşı  |  Gizli Sütunların Görünürlük Durumunu Değiştir  |  Aralıkları ve Sütunları Karşılaştırın ...
Öne Çıkan Özellikler: Izgara Odağı   |  Tasarım görünümü   |   Büyük Formül Çubuğu    Çalışma Kitabı ve Sayfa Yöneticisi   |  Kaynak Kütüphanesi (Otomatik metin)   |  Tarih Seçici   |  Çalışma Sayfalarını Birleştirin   |  Hücreleri Şifrele/Şifresini Çöz    E-postaları Listeye Göre Gönder   |  Süper Filtre   |   Özel Filtre (kalın/italik/üstü çizili filtre...) ...
En İyi 15 Araç Seti12 Metin Tools (Metin ekle, Karakterleri Kaldır, ...)   |   50+ Grafik Türleri (Gantt şeması, ...)   |   40+ Pratik Formüller (Yaşı doğum gününe göre hesapla, ...)   |   19 sokma Tools (QR Kodunu Girin, Yoldan Resim Ekle, ...)   |   12 Dönüştürme Tools (Sayılardan Kelimelere, Para Birimi Dönüştürme, ...)   |   7 Birleştir ve Böl Tools (Gelişmiş Kombine Satırları, Bölünmüş hücreler, ...)   |   ... ve dahası

Kutools for Excel ile Excel Becerilerinizi Güçlendirin ve Daha Önce Hiç Olmadığı Gibi Verimliliği Deneyimleyin. Kutools for Excel, Üretkenliği Artırmak ve Zamandan Tasarruf Etmek için 300'den Fazla Gelişmiş Özellik Sunar.  En Çok İhtiyacınız Olan Özelliği Almak İçin Buraya Tıklayın...

Açıklama


Office Tab, Office'e Sekmeli Arayüz Getirir ve İşinizi Çok Daha Kolay Hale Getirir

  • Word, Excel, PowerPoint'te sekmeli düzenlemeyi ve okumayı etkinleştirin, Publisher, Access, Visio ve Project.
  • Yeni pencereler yerine aynı pencerenin yeni sekmelerinde birden çok belge açın ve oluşturun.
  • Üretkenliğinizi% 50 artırır ve her gün sizin için yüzlerce fare tıklamasını azaltır!
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