Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Удаление строк с русскими символами - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Удаление строк с русскими символами (Формулы/Formulas)
Удаление строк с русскими символами
Vladi Дата: Среда, 10.07.2019, 16:06 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 4
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Приветствую. Подскажите пожалуйста, как удалить строки, где встречается хоть один русский символ?
Исходный текст:
1. Text
16:04
Текст
Text (Text)

Результат:
1. Text
16:04
Text (Text)
 
Ответить
СообщениеПриветствую. Подскажите пожалуйста, как удалить строки, где встречается хоть один русский символ?
Исходный текст:
1. Text
16:04
Текст
Text (Text)

Результат:
1. Text
16:04
Text (Text)
Автор - Vladi
Дата добавления - 10.07.2019 в 16:06
bmv98rus Дата: Среда, 10.07.2019, 17:16 | Сообщение № 2
Группа: Друзья
Ранг: Участник клуба
Сообщений: 4107
Репутация: 768 ±
Замечаний: 0% ±

Excel 2013/2016
в доп. столбце или УФ написать формулу, которая проставит признак, что есть РУС символ. Фильтр, удаление.

Замечательный Временно просто медведь , процентов на 20.
 
Ответить
Сообщениев доп. столбце или УФ написать формулу, которая проставит признак, что есть РУС символ. Фильтр, удаление.
Автор - bmv98rus
Дата добавления - 10.07.2019 в 17:16
sboy Дата: Среда, 10.07.2019, 17:24 | Сообщение № 3
Группа: Друзья
Ранг: Участник клуба
Сообщений: 2566
Репутация: 724 ±
Замечаний: 0% ±

Excel 2010
Добрый день.
Если данные в одном столбце, выделяем - запускаем
[vba]
Код
Sub del()
Set cl = Selection.Cells
With CreateObject("VBScript.RegExp")
    .Pattern = "[а-яА-ЯёЁ]"
    For i = Selection.Rows.Count To 1 Step -1
        If .test(cl(i)) Then cl(i).EntireRow.Delete
    Next
End With
End Sub
[/vba]

Яндекс: 410016850021169
 
Ответить
СообщениеДобрый день.
Если данные в одном столбце, выделяем - запускаем
[vba]
Код
Sub del()
Set cl = Selection.Cells
With CreateObject("VBScript.RegExp")
    .Pattern = "[а-яА-ЯёЁ]"
    For i = Selection.Rows.Count To 1 Step -1
        If .test(cl(i)) Then cl(i).EntireRow.Delete
    Next
End With
End Sub
[/vba]
Автор - sboy
Дата добавления - 10.07.2019 в 17:24
Vladi Дата: Среда, 10.07.2019, 18:14 | Сообщение № 4
Группа: Пользователи
Ранг: Прохожий
Сообщений: 4
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
sboy, спасибо большое
 
Ответить
Сообщениеsboy, спасибо большое
Автор - Vladi
Дата добавления - 10.07.2019 в 18:14
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Удаление строк с русскими символами (Формулы/Formulas)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!