İpucu: Digər dillər Google-tərcümə olunur. Sizi ziyarət edə bilərsiniz English bu linkin versiyası.
Daxil ol
x
or
x
x
Qeydiyyatdan
x

or

Excel-də stringdən bəzi xüsusi simvolları necə çıxarmaq olar?

Belə bəzi xüsusi simvollar varsa % ^ & * () mətn strings daxilində, və indi, bu hüceyrə strings olan bu xüsusi simvol aradan qaldırılması istəyirəm. Onları bir-bir aradan qaldırmaq üçün zaman alıcı olacaq, burada Excel-də bu işi həll etmək üçün bəzi sürətli fəndləri təqdim edəcəyəm.

İstifadəçi Tanımlı İşlev ilə mətn simasından bəzi xüsusi simvolları sil

Excel üçün Kutools ilə mətn simvolundan bəzi xüsusi simvolları sil


Mətn dizisindən sayısal, alfa və ya digər xüsusi simvolları silin:

Excel üçün Kutools's Karakterləri sil xüsusiyyət, tez bir zamanda aradan qaldırılması üçün kömək edə bilər rəqəmli, alfa, qeyri-sayısal, qeyri-alfa, qeyri-çap, digər xüsusi simvollar mətn dizələrindən ehtiyac duyduğunuz qədər. Excel İndi Download və pulsuz sınaq Kutula üçün tıklayın!

doc 7 xüsusi simvolları sil

Excel üçün Kutools: 200 gündə heç bir məhdudiyyət olmadan 60-dən çox lazımlı Excel eklentisi ilə pulsuzdur. İndi indir və pulsuz sınaq!


arrow mavi sağ bubble İstifadəçi Tanımlı İşlev ilə mətn simasından bəzi xüsusi simvolları sil


Aşağıdakı VBA kodu sizə lazım olan xüsusi xarakterləri aradan qaldırmaq üçün kömək edə bilər, xahiş edirəm:

1. Basıb saxlayın ALT + F11 düymələri açmaq üçün Proqramlar üçün Microsoft Visual Basic pəncərə.

2. Basın Taxmaq > Modules, və aşağıdakı kodu yapışdırın Modules Pəncərə.

VBA kodu: mətn simvolundan bəzi xüsusi simvolları sil

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. Sonra bu kodu saxlamaq və bağlamaq, iş səhifəsinə geri qayıdın və bu formulu daxil edin: = kaldırır (A2) nəticə vermək istədiyiniz boş bir kameraya, ekran görüntüsünə baxın:

doc 1 xüsusi simvolları sil

4. Və sonra doldurucu tutacağı bu formula tətbiq etmək istədiyiniz hüceyrələrə sürükleyin və lazım olan bütün xüsusi simvollar mətn dizesinden silinməmiş, ekran görünüşünə baxın:

doc 2 xüsusi simvolları sil

Qeyd: Yuxarıda göstərilən kodda xüsusi simvolları dəyişə bilərsiniz # $% () ^ * qaldırmaq istədiyiniz hər hansı birinə.


Əgər siz VBA kodu ilə ixtisaslı deyilsinizsə, Excel üçün Kutools'S Karakterləri sil kommunal bu vəzifəni tez və asanlıqla başa vurmağa kömək edə bilər.

Excel üçün Kutools : 300-dən daha çox 60-dən istifadə etməklə, Excel-in əlavələri, XNUMX gündə heç bir məhdudiyyət yox idi.

Quraşdırıldıqdan sonra Excel üçün Kutools, belə edin:

1. Bəzi xüsusi simvolları aradan qaldırmaq istədiyiniz mətn dizələrini seçin.

2. Basın Kutools > Mətn > Karakterləri sil, bax ekran görüntüsü:

doc 3 xüsusi simvolları sil

3. İçində Karakterləri sil informasiya qutusunu yoxlayın Adət altında seçimi Karakterləri sil bölmə və aradan qaldırılması istədiyiniz xüsusi simvolları daxil edin, ekran görüntüsünə baxın:

doc 4 xüsusi simvolları sil

4. Və sonra basın Ok or tətbiq etmək düyməsi, siz göstərdiyiniz simvollar Adət mətn qutusu bir anda mətn dizələrindən silindi, ekran görünüşlərinə baxın:

doc 5 xüsusi simvolları sil  2 doc 6 xüsusi simvolları sil

Excel İndi Download və pulsuz sınaq Kutula üçün tıklayın!


Excel üçün Kutools: 200 gündə heç bir məhdudiyyət olmadan 60-dən çox lazımlı Excel eklentisi ilə pulsuzdur. İndi indir və pulsuz sınaq!



Təklif olunan Məhsuldarlıq Vasitələri

Office Tab

qızıl star1 Chrome, Firefox və yeni Internet Explorer kimi Excel və digər Office proqramlarına lazımlı sekmeleri gətirin.

Excel üçün Kutools

qızıl star1 Amazing! 5 dəqiqədə məhsuldarlığınızı artırın. Heç bir xüsusi bacarıqa ehtiyac yoxdur, hər gün iki saat saxlaya bilərsiniz!

qızıl star1 300 Excel üçün yeni funksiyalar, Excel çox asan və güclü olun:

  • Veriyi ləğv etmədən Cell / Satır / Sütunları birləşdirin.
  • Bir neçə Çarşaf və İş Kitabını birləşdirin və birləşdirin.
  • Çaprazları müqayisə edin, birdən çox aralığa kopyalayın, mətni tarixə, vahidə və valyuta çevrilməsinə çevirin.
  • Rənglər, Paging Subtotals, Advanced Sort və Super Filter tərəfindən sayılan,
  • Daha çox seçin / Insert / Sil / Mətn / Biçim / Bağlantı / Yorum / Çalışma kitabları / Çalışma Qurğuları Tools ...

Excel üçün Kutools-un ekranı

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.
    Kim · 2 months ago
    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
    • To post as a guest, your comment is unpublished.
      skyyang · 2 months ago
      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!
  • To post as a guest, your comment is unpublished.
    Kim · 2 months ago
    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
  • To post as a guest, your comment is unpublished.
    Deepak · 10 months ago
    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