Заменете знаците с ударения с обикновени знаци с VBA

Заменете символите с ударения с обикновени знаци с Kutools за Excel

За потребители, които имат опит с Microsoft Excel, използването на VBA макрос е лесен начин за справяне с тази сложна работа.

1. Задръжте надолу Друг + F11 клавиши в Excel и отваря Прозорец на Microsoft Visual Basic за приложения.

2. Кликнете Поставете > Модулии поставете следния макрос в Прозорец на модула.

Function StripAccent(thestring As String)
Dim A As String * 1
Dim B As String * 1
Dim i As Integer
Const AccChars= "ŠŽšžŸÀÁÂÃÄÅÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖÙÚÛÜÝàáâãäåçèéêëìíîïðñòóôõöùúûüýÿ"
Const RegChars= "SZszYAAAAAACEEEEIIIIDNOOOOOUUUUYaaaaaaceeeeiiiidnooooouuuuyy"
For i = 1 To Len(AccChars)
A = Mid(AccChars, i, 1)
B = Mid(RegChars, i, 1)
thestring = Replace(thestring, A, B)
Next
StripAccent = thestring
End Function

3. След това отидете в празна клетка и поставете формулата в клетка: =CheckStringCHAR(InString), Например =CheckStringCHAR("ù") или =CheckStringCHAR(A2).

Забележки:
(1) Вашият Microsoft Visual Basic може изобщо да не разпознава знаци с ударение, ако не поддържа Unicode. Например, когато поставите "š" във Visual Basic, може да получите "?". Ако е така, този макрос не е наличен.
(2) Не замества директно символите с ударение в низовете на избраната клетка.

Изисква твърде много умения и познания за използване на VBA макрос. А следният метод ще ви помогне да работите по-лесно само с няколко кликвания. Kutools за инструмента за замяна на ударени знаци на Excel ви дава възможност лесно да замените всички видове знаци с ударения с обикновени знаци наведнъж.

1. Изберете диапазона, в който ще замените всички знаци с ударения.

2. Кликнете Kutools > Текст > Замяна на знаци с ударения…, вижте екранна снимка:

3. In Замяна на знаци с ударения кликнете върху Избери всички за да изберете всички правила за замяна, и щракнете върху бутона Ok, за да замените всички знаци с ударения. виж екранна снимка:

бележки:
(1) Ако няма някои конкретни знаци с ударение, които искате, можете да щракнете върху Добавяне на правило бутон, за да добавите свои собствени правила в списъчното поле в горния диалогов прозорец Замяна на знаци с ударения.
(2) Можете да персонализирате нови правила за заместване в диалоговия прозорец Замяна на знаци с ударения.

Сега всички знаци с ударение в низове от избрания диапазон ще бъдат незабавно преобразувани в обикновени знаци. Вижте екранна снимка:

- Замяна на знаци с ударения функцията на Kutools за Excel може лесно да замени всички видове знаци с ударение с обикновени знаци в цялата работна книга. Имате безплатен пробен период!