Нам нужно сначала идентифицировать нецензурного персонажа, а затем удалить его.
Сначала поместите следующую пользовательскую функцию в стандартный модуль:
Public Function WhatsIn(s As String) As String
Dim msg As String, i As Long, L As Long
L = Len(s)
msg = L & vbCrLf
For i = 1 To L
msg = msg & i & " " & AscW(Mid(s, i, 1)) & vbCrLf
Next i
WhatsIn = msg
End Function
Функция сообщает нам, что именно содержит ячейка. Это дает:
- количество символов
- для каждого символа значение Unicode
Вот пример:
Мы знаем, сколько символов в ячейке С2 содержит и мы знаем код ASCII для каждого символа.
Пользовательские функции (UDF) очень просты в установке и использовании:
- ALT-F11 открывает окно VBE
- ALT-I
ALT-M открывает новый модуль
- вставьте материал и закройте окно VBE
Если вы сохраните книгу, UDF будет сохранен вместе с ней.
Если вы используете версию Excel позже, чем 2003, вы должны сохранить
файл как .xlsm, а не .xlsx
Чтобы удалить UDF:
- откройте окно VBE, как указано выше
- очистить код
- закройте окно VBE
Чтобы использовать UDF из Excel:
= WhatsIn (А1)
Чтобы узнать больше о макросах в целом, смотрите:
http://www.mvps.org/dmcritchie/excel/getstarted.htm
а также
http://msdn.microsoft.com/en-us/library/ee814735(v=office.14).aspx
а подробности о UDF смотрите в:
http://www.cpearson.com/excel/WritingFunctionsInVBA.aspx
Макросы должны быть включены, чтобы это работало!
Как только мы узнаем номер ASCII, запустите такой макрос:
Sub KleanUp()
Cells.Replace ChrW(166), ""
End Sub
где мы заменим 166 с фактическим номером.