Помощник
 |
Сообщение сайта
|
 Как в Excel удалить все русские символы? |
LebedevStr
|
Сообщение
#1
|
||
 Завсегдатай  
 Группа: Active User Сообщений: 782 Регистрация: 24.10.2010 Из: Spain Поблагодарили: 99 раз Репутация:  32 
 |
|
||
 |
|
||
|
Mark29
|
 13.9.2013, 0:04;
Ответить: Mark29
Сообщение
#2
|
 Бывалый Группа: User Сообщений: 470 Регистрация: 5.5.2011 Из: город большого яйца :) Поблагодарили: 200 раз Репутация: 88
|
Знаю как найти русс буквы в англ тексте, и наоборот
 А удалять уже ручками по ходу 
-------------------- |
|
|
|
|
maverick
|
13.9.2013, 1:22;
Ответить: maverick
Сообщение
#3
|
 Бывалый Группа: User Сообщений: 252 Регистрация: 3.6.2013 Из: далека Поблагодарили: 178 раз Репутация: 40
|
LebedevStr, вот есть такая функция:
Function Del_Rus(sStr As String) Dim li As Long For li = 192 To 255 sStr = Replace(sStr, Chr(li), "") Next li sStr = Replace(sStr, Chr(168), "") sStr = Replace(sStr, Chr(184), "") Del_Rus = sStr End Function Создаете стандартный модуль, вместо Sub/End Sub копируете код, а потом в поле выбора функции выбираете "Определенные пользователем" - Del_Rus Использовать можно =Del_Rus(A1), где A1 - ссылка на ячейку из которой нужно удалить русские символы. -------------------- |
|
|
|
|
LebedevStr
|
Сообщение
#4
|
|
Завсегдатай
Группа: Active User Сообщений: 782 Регистрация: 24.10.2010 Из: Spain Поблагодарили: 99 раз Репутация: 32
|
maverick, подскажите пожалуйста куда вообще жать
не могу сообразить .
|
|
|
|
|
Mark29
|
16.9.2013, 20:12;
Ответить: Mark29
Сообщение
#5
|
|
Бывалый Группа: User Сообщений: 470 Регистрация: 5.5.2011 Из: город большого яйца :) Поблагодарили: 200 раз Репутация: 88
|
Вкладка "Разработчик" - кнопка "Visual Basik". Откроется редактор VBA и там заменить код в открывшемся окне Module1
А вообще, не тот форум вы выбрали для таких вопросов Вам сюда _http://www.planetaexcel.ru/forum/
-------------------- |
|
|
|
|
maverick
|
16.9.2013, 20:13;
Ответить: maverick
Сообщение
#6
|
|
Бывалый Группа: User Сообщений: 252 Регистрация: 3.6.2013 Из: далека Поблагодарили: 178 раз Репутация: 40
|
LebedevStr,
1) нажимаем Alt+F11, открывается VBA редактор. 2) Слева, в окошке VBAProject щелкаем правой кнопкой, выбираем Insert-Module 3) В появившемся поле вставляем код, который я давал 4) Закрываем редактор VBA 5) Теперь, к примеру, у Вас есть столбик ячеек с текстом, в котором скрываются русские символы. Устанавливаем курсор в удобном месте, нажимаем кнопочку вставки функции, выбираем в разделе "Определенные пользователем" нашу функцию Del_Rus 6) Вводим в параметрах функции ссылку на ячейку с обрабатываемым текстом, протягиваем на весь диапазон. 7) Profit
-------------------- |
|
|
|
|
Mark29
|
16.9.2013, 20:30;
Ответить: Mark29
Сообщение
#7
|
|
Бывалый Группа: User Сообщений: 470 Регистрация: 5.5.2011 Из: город большого яйца :) Поблагодарили: 200 раз Репутация: 88
|
maverick, фигня получается.
Скопировал вашу функцию, скопировал ваш текст сообщения выше в эксель - запустил функцию - во всех ячейках стало значение "ноль" Удаляет все? И что оно ищет? ))) -------------------- |
|
|
|
|
maverick
|
16.9.2013, 20:43;
Ответить: maverick
Сообщение
#8
|
|
Бывалый Группа: User Сообщений: 252 Регистрация: 3.6.2013 Из: далека Поблагодарили: 178 раз Репутация: 40
|
(Mark29 @ 16.9.2013, 18:30)  фигня получается. У меня все работает. Только что попробовал сделать примерчик: 
-------------------- |
|
|
|
|
LebedevStr
|
Сообщение
#9
|
|
Завсегдатай
Группа: Active User Сообщений: 782 Регистрация: 24.10.2010 Из: Spain Поблагодарили: 99 раз Репутация: 32
|
maverick, я что-то не так делаю
    Саму функция сохранил (CTRL+S) до применения... UPD Забыл закрыть редактор VBA! Работает! Спасибо! Вопрос, как добавить спец. символы в фильтр? Например !@#$%^&*()- !"№;%:?*()- Спасибо
Сообщение отредактировал LebedevStr - 17.9.2013, 23:25 |
|
|
|
|
maverick
|
18.9.2013, 1:01;
Ответить: maverick
Сообщение
#10
|
|
Бывалый Группа: User Сообщений: 252 Регистрация: 3.6.2013 Из: далека Поблагодарили: 178 раз Репутация: 40
|
(LebedevStr @ 17.9.2013, 21:17) Вопрос, как добавить спец. символы в фильтр? Например !@#$%^&*()- !"№;%:?*()- Просто добавьте после строк sStr = Replace(sStr, Chr(168), "") sStr = Replace(sStr, Chr(184), "") строки поиска нужного символа. Например, чтобы фильтровать !@#, нужно вставить строчки sStr = Replace(sStr, Chr(33), "") sStr = Replace(sStr, Chr(35), "") sStr = Replace(sStr, Chr(64), "") Ну, а остальные коды можете посмотреть, к примеру здесь. -------------------- |
|
|
|
|
|
Похожие темы
| Тема | Ответов | Автор | Просмотров | Последний ответ | |
|---|---|---|---|---|---|
 |
Как зарабатывать на Telegram в 2025 году: пошаговое руководство + готовая связка | 2 | leadmagnet | 760 | 17.5.2025, 21:47 автор: CrypTomera |
|
Как монетизировать мелкие Ютуб каналы? | 5 | uahomka | 2411 | 10.5.2025, 16:45 автор: prolisk |
|
Зачем все советуют делать сайты-сервисы? | 9 | Boymaster | 1746 | 2.5.2025, 21:51 автор: GlazAlmaz |
|
Как выводить на сайте разную рекламу для разных стран? | 5 | CrypTomera | 1924 | 2.5.2025, 20:57 автор: Boymaster |
|
Как создать учетные записи Gmail БЕЗ проверки номера телефона | 6 | Legitsms | 3168 | 29.4.2025, 22:15 автор: Vlad69 |
|
Текстовая версия | Сейчас: 19.5.2025, 16:22 |
