Note: The other languages of the website are Google-translated. Back to English
Увійти  \/ 
x
or
x
Реєстрація  \/ 
x

or

Як видалити деякі спеціальні символи з рядка в Excel?

Якщо є якісь спеціальні символи, такі як % ^ & * () всередині текстових рядків, і тепер, ви хочете видалити тези певних символів із рядків комірок. Щоб видалити їх по черзі, це займе багато часу, тут я представив кілька швидких прийомів для вирішення цього завдання в Excel.

Видаліть деякі спеціальні символи з текстового рядка за допомогою функції користувача

Видаліть деякі спеціальні символи з текстового рядка за допомогою Kutools для Excel


стрілка синя права міхур Видаліть деякі спеціальні символи з текстового рядка за допомогою функції користувача

Наступний код VBA може допомогти вам видалити потрібні вам символи, будь-ласка, виконайте такі дії:

1. Утримуйте клавішу ALT + F11 ключі, щоб відкрити Microsoft Visual Basic для додатків вікна.

2. Клацання Insert > Модуліта вставте наступний код у Модулі Вікно

Код VBA: Видаліть деякі спеціальні символи з текстового рядка

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. Потім збережіть і закрийте цей код, поверніться до робочого аркуша та введіть цю формулу: = видаляє спеціальний (A2) в порожню клітинку, де ви хочете помістити результат, див. знімок екрана:

doc видалити спеціальні символи 1

4. А потім перетягніть маркер заповнення до комірок, до яких ви хочете застосувати цю формулу, і всі спеціальні символи, які вам не потрібно було видаляти з текстового рядка, див. Скріншот:

doc видалити спеціальні символи 2

примітки: У наведеному вище коді ви можете змінити спеціальні символи # $% () ^ * & будь-яким іншим, кого ви хочете видалити.


Emove цифрові, алфавітні або інші спеціальні символи з текстового рядка

Kutools для Excel's Видалити символи Ця функція може допомогти вам швидко видалити все числовий, альфа, нечислові, неальфа, недрукований, інші конкретні персонажі з текстових рядків, як вам потрібно. Клацніть, щоб завантажити та отримати безкоштовну пробну версію Kutools для Excel зараз!

doc видалити спеціальні символи 7

Kutools для Excel: з більш ніж 300 зручними надбудовами Excel, спробуйте безкоштовно без обмежень протягом 30 днів. Завантажте та безкоштовно пробну версію зараз!


Якщо ви не знаєте коду VBA, Kutools для ExcelАвтора Видалити символи Утиліта допоможе вам швидко і легко виконати це завдання.

після установки Kutools для Excel, будь ласка, наступним чином:

1. Виберіть текстові рядки, для яких потрібно видалити деякі спеціальні символи.

2. Натисніть Кутулс > текст > Видалити символи, див. скріншот:

3, в Видалити символи діалогове вікно, поставте галочку виготовлений на замовлення опція під Видалити символи розділу та введіть спеціальні символи, які ви хочете видалити, див. знімок екрана:

doc видалити спеціальні символи 4

4. А потім клацніть Ok or Застосовувати , символи, які ви вказали в виготовлений на замовлення текстове поле було видалено з текстових рядків одразу, див. скріншоти:

doc видалити спеціальні символи 5 2 doc видалити спеціальні символи 6

Клацніть, щоб завантажити та отримати безкоштовну пробну версію Kutools для Excel зараз!


Kutools для Excel: з більш ніж 300 зручними надбудовами Excel, спробуйте безкоштовно без обмежень протягом 30 днів. Завантажте та безкоштовно пробну версію зараз!

Найкращі інструменти для підвищення продуктивності офісу

Kutools для Excel вирішує більшість ваших проблем і збільшує продуктивність на 80%

  • Повторне використання: Швидко вставте складні формули, діаграми і все, що ви використовували раніше; Шифрувати комірки з паролем; Створити список розсилки та надсилати електронні листи ...
  • Супер формула бар (легко редагувати кілька рядків тексту та формули); Макет читання (легко читати та редагувати велику кількість комірок); Вставте у відфільтрований діапазон...
  • Об’єднати клітинки / рядки / стовпці без втрати даних; Вміст розділених комірок; Об'єднати повторювані рядки / стовпці... Запобігання дублюючим клітинам; Порівняйте діапазони...
  • Виберіть Повторюваний або Унікальний Рядки; Виберіть Пусті рядки (усі клітинки порожні); Супер знахідка та нечітка знахідка у багатьох робочих зошитах; Випадковий вибір ...
  • Точна копія Кілька клітинок без зміни посилання на формулу; Автоматичне створення посилань на кілька аркушів; Вставте кулі, Прапорці та інше ...
  • Витяг тексту, Додати текст, Видалити за позицією, Видаліть пробіл; Створення та друк проміжних підсумків підкачки; Перетворення вмісту комірок та коментарів...
  • Супер фільтр (зберегти та застосувати схеми фільтрів до інших аркушів); Розширене сортування за місяцем / тижнем / днем, частотою та іншим; Спеціальний фільтр жирним, курсивом ...
  • Поєднайте робочі зошити та робочі аркуші; Об’єднати таблиці на основі ключових стовпців; Розділіть дані на кілька аркушів; Пакетне перетворення xls, xlsx та PDF...
  • Понад 300 потужних функцій. Підтримує Office / Excel 2007-2019 та 365. Підтримує всі мови. Простота розгортання на вашому підприємстві чи в організації. Повна функція 30-денної безкоштовної пробної версії. 60-денна гарантія повернення грошей.
вкладка kte 201905

Вкладка Office забезпечує інтерфейс з вкладками для Office і значно спрощує вашу роботу

  • Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
  • Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
  • Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!
дно офісної таблиці
Say something here...
symbols left.
You are guest
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.
    Cris · 4 months ago
    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. 
  • To post as a guest, your comment is unpublished.
    minhys1 · 4 months ago
    With Emoji need remove, how ?
  • To post as a guest, your comment is unpublished.
    gndecastro@gmail.com · 2 years ago
    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"
    • To post as a guest, your comment is unpublished.
      skyyang · 2 years ago
      Hi, Nick,
      Do you want to remove all ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789 characters from the cells?
      Looking forward to your reply, thank you!
      • To post as a guest, your comment is unpublished.
        gndecastro@gmail.com · 2 years ago
        No. I want to keep only "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789"
        • To post as a guest, your comment is unpublished.
          skyyang · 2 years ago
          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!
  • To post as a guest, your comment is unpublished.
    Kim · 3 years 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 years 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 · 3 years 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 · 3 years 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