Ana içeriğe atla

Excel'deki dizeden bazı özel karakterler nasıl kaldırılır?

Gibi bazı özel karakterler varsa % ^ & * () metin dizeleri içinde ve şimdi bu belirli karakterleri hücre dizelerinden kaldırmak istiyorsunuz. Bunları tek tek kaldırmak zaman alıcı olacaktır, burada bu görevi Excel'de çözmek için bazı hızlı hileler sunacağım.

Kullanıcı Tanımlı İşleviyle metin dizesinden bazı özel karakterleri kaldırın

Kutools for Excel ile metin dizesinden bazı özel karakterleri kaldırın

ok mavi sağ balon Kullanıcı Tanımlı İşleviyle metin dizesinden bazı özel karakterleri kaldırın

Aşağıdaki VBA kodu, ihtiyacınız olan belirli karakterleri kaldırmanıza yardımcı olabilir, lütfen aşağıdakileri yapın:

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

2. tıklayın Ekle > modülve aşağıdaki kodu modül Pencere.

VBA kodu: Metin dizesinden bazı özel karakterleri kaldırın

Function RemoveSpecial(Str As String) As String
'updatebyExtendoffice 20160303
    Dim xChars As String
    Dim I As Long
    xChars = "#$%()^*&"
    For I = 1 To Len(xChars)
        Str = Replace$(Str, Mid$(xChars, I, 1), "")
    Next
    RemoveSpecial = Str
End Function

3. Ardından bu kodu kaydedip kapatın, çalışma sayfasına geri dönün ve şu formülü girin: = özel kaldırma (A2) sonucu koymak istediğiniz boş bir hücreye, ekran görüntüsüne bakın:

doc özel karakterleri kaldır 1

4. Ve sonra doldurma tutamacını bu formülü uygulamak istediğiniz hücrelere sürükleyin ve ihtiyacınız olmayan tüm özel karakterler metin dizesinden kaldırılsın, ekran görüntüsüne bakın:

doc özel karakterleri kaldır 2

not: Yukarıdaki kodda özel karakterleri değiştirebilirsiniz # $% () ^ * & kaldırmak istediğiniz başkalarına.

metin dizesinden sayısal, alfa veya diğer özel karakterleri çıkarın

Kutools for Excel's Karakterleri Kaldır özellik hepsini hızlıca kaldırmanıza yardımcı olabilir sayısal, alfa, sayısal olmayan, alfa olmayan, baskısız, diğer belirli karakterler ihtiyacınız olan metin dizelerinden. Kutools for Excel'i şimdi ücretsiz olarak indirip deneme için tıklayın!

doc özel karakterleri kaldır 7

Kutools for Excel: 300'den fazla kullanışlı Excel eklentisi ile 30 günde sınırlama olmaksızın ücretsiz deneyin. Hemen indirin ve ücretsiz deneme!

VBA kodu konusunda yetenekli değilseniz, Kutools for Excel'S Karakterleri Kaldır yardımcı program bu görevi hızlı ve kolay bir şekilde tamamlamanıza yardımcı olabilir.

Kurduktan sonra Kutools for Excellütfen aşağıdaki şekilde:

1. Bazı özel karakterleri kaldırmak istediğiniz metin dizelerini seçin.

2. Tıkla Kutools > Metin > Karakterleri Kaldır, ekran görüntüsüne bakın:

3. In Karakterleri Kaldır iletişim kutusu, işaretleyin görenek altında seçenek Karakterleri Kaldır bölümüne gidin ve kaldırmak istediğiniz özel karakterleri girin, ekran görüntüsüne bakın:

doc özel karakterleri kaldır 4

4. Ve sonra tıklayın Ok or Tamam düğmesi, içinde belirttiğiniz karakterler görenek metin kutusu, metin dizelerinden bir kerede kaldırıldı, ekran görüntülerine bakın:

doc özel karakterleri kaldır 5 2 doc özel karakterleri kaldır 6

Kutools for Excel'i şimdi ücretsiz olarak indirip deneme için tıklayın!

Kutools for Excel: 300'den fazla kullanışlı Excel eklentisi ile 30 günde sınırlama olmaksızın ücretsiz deneyin. Hemen indirin ve ücretsiz deneme!

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ç Seti:  12 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 (11)
No ratings yet. Be the first to rate!
Linny Anthony
Linny Anthony
This comment was minimized by the moderator on the site
Excelllent .. Five Stars.. thanks a lot
Reply
0
0
Cris
Cris
This comment was minimized by the moderator on the site
Thanks for this code
Function RemoveSpecial(Str As String) As String
'updatebyExtendoffice 20160303
Dim xChars As String
Dim I As Long
xChars = "#$%()^*&"
For I = 1 To Len(xChars)
Str = Replace$(Str, Mid$(xChars, I, 1), "")
Next
RemoveSpecial = Str
End Function

But it is possible that that can remove specific text? like "ab", "abc", "bc" and etc.
Reply
0
0
minhys1
minhys1
This comment was minimized by the moderator on the site
With Emoji need remove, how ?
Reply
0
0
gndecastro@gmail.com
This comment was minimized by the moderator on the site
Rather than searching for specific special characters, how about if you want to search for and replace ALL special characters. In other words, how would you write the search for NOT one of the following characters: "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789"
Reply
Report
0
0
skyyang
skyyang    
This comment was minimized by the moderator on the site
Hi, Nick,
Do you want to remove all ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789 characters from the cells?
Looking forward to your reply, thank you!
Reply
Report
0
0
gndecastro@gmail.com
    skyyang
This comment was minimized by the moderator on the site
No. I want to keep only "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789"
Reply
Report
0
0
skyyang
skyyang    
This comment was minimized by the moderator on the site
Nick,
Maybe the below VBA code can solve your problem, please try:

Sub RemoveNotAlphasNotNum()
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)
For Each Rng In WorkRng
xOut = ""
For i = 1 To Len(Rng.Value)
xTemp = Mid(Rng.Value, i, 1)
If xTemp Like "[a-z.]" Or xTemp Like "[A-Z.]" Or xTemp Like "[0-9.]" Then
xStr = xTemp
Else
xStr = ""
End If
xOut = xOut & xStr
Next i
Rng.Value = xOut
Next
End Sub


Hope it can help you!
Reply
Report
0
0
Kim
Kim
This comment was minimized by the moderator on the site
Hmm I wonder, does it only work in the worksheet you've originally pasted the code in?
As for that one it only seems to work, not for any new workbook you open
Reply
0
0
skyyang
skyyang     Kim
This comment was minimized by the moderator on the site
Hello, Kim,
The VBA code can only applied in one workbook, if you want to apply it in a new workbook, you should copy and paste the code into your new workbook again.
Thank you!
Reply
Report
0
0
Kim
Kim
This comment was minimized by the moderator on the site
Hi guys,

I've applied the =removespecial(A2) code and it works perfectly in one worksheet but then in the other it gives me an invalid #NAME? error.
I checked the "format cells" and it's both on general and I've copied the same text + formula to both worksheets but it won't work.
Any clue what this might cause this?

Thanks and thank you so much for this code.
Saves me hours and hours of work!

Regards, Kim
Reply
0
0
Deepak
Deepak
This comment was minimized by the moderator on the site
Function GetWordWOSpecChar(Rng As Range)
'paste in VBA module, Use as a Formula
'Created by Deepak Sharma
Arr = Array("48", "49", "50", "51", "52", "53", "54", "55", _
"56", "57", "65", "66", "67", "68", "69", "70", "71", "72", "73", "74", "75", _
"76", "77", "78", "79", "80", "81", "82", "83", "84", "85", "86", "87", "88", _
"89", "90", "97", "98", "99", "100", "101", "102", "103", "104", "105", "106", _
"107", "108", "109", "110", "111", "112", "113", "114", "115", "116", "117", _
"118", "119", "120", "121", "122")

For i = 1 To Len(Rng.Value)
txt = Mid(Rng.Value, i, 1)
For g = 1 To UBound(Arr)
If txt = Chr(Arr(g)) Then GetWord = Right(Rng.Value, Len(Rng.Value) - (i - 1)): Exit Function
Next g
Next i

End Function
Reply
0
0
There are no comments posted here yet
Please leave your comments in English
Guest
Posting as Guest
×
Rate this post:
Reset
0   Characters
Suggested Locations