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

Вход

Регистрация

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

 

= Мир MS Excel/Удаление в ячейках всех городов - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
Страница 1 из 11
Модератор форума: _Boroda_, Pelena, Manyasha, SLAVICK 
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Удаление в ячейках всех городов (Формулы/Formulas)
Удаление в ячейках всех городов
byte32 Дата: Пятница, 14.10.2016, 14:05 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 36
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Здравствуйте. Я снова к любимому форуму. так уж сложилось, что в последний год, я могу получить ответы только тут. И спасибо Вам за это

Теперь, собственно, вопрос.

Есть ячейки со списком слов. На данный момент они с городами. У меня отдельно есть список всех городов, которые надо исключить. Города написаны в разных вариантах и в разных регистрах.

Как мне сделать так, чтобы excel автоматом удалил в ячейках города, из моего списка. И вообще это возможно? Как-то Косноязычно получилось,надеюсь пример будет более понятен
К сообщению приложен файл: excelworld-town.xlsx(8Kb)
 
Ответить
СообщениеЗдравствуйте. Я снова к любимому форуму. так уж сложилось, что в последний год, я могу получить ответы только тут. И спасибо Вам за это

Теперь, собственно, вопрос.

Есть ячейки со списком слов. На данный момент они с городами. У меня отдельно есть список всех городов, которые надо исключить. Города написаны в разных вариантах и в разных регистрах.

Как мне сделать так, чтобы excel автоматом удалил в ячейках города, из моего списка. И вообще это возможно? Как-то Косноязычно получилось,надеюсь пример будет более понятен

Автор - byte32
Дата добавления - 14.10.2016 в 14:05
byte32 Дата: Пятница, 14.10.2016, 14:31 | Сообщение № 2
Группа: Пользователи
Ранг: Новичок
Сообщений: 36
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Я пытаюсь и так и так вертеть мою проблему. А если так. Есть список слов, которые не должны содержаться в Ячейках, и если они там есть, то удалить?
 
Ответить
СообщениеЯ пытаюсь и так и так вертеть мою проблему. А если так. Есть список слов, которые не должны содержаться в Ячейках, и если они там есть, то удалить?

Автор - byte32
Дата добавления - 14.10.2016 в 14:31
Gustav Дата: Пятница, 14.10.2016, 17:33 | Сообщение № 3
Группа: Друзья
Ранг: Старожил
Сообщений: 1211
Репутация: 484 ±
Замечаний: 0% ±

начинал с Excel 4.0...
Ещё и падежи с предлогами... Слишком многого хотите, однако! По какому критерию, по-вашему, по слову "Тверь" заменится на пустую строку строка " в Твери"?


Мой tip box - яд 41001663842605
 
Ответить
СообщениеЕщё и падежи с предлогами... Слишком многого хотите, однако! По какому критерию, по-вашему, по слову "Тверь" заменится на пустую строку строка " в Твери"?

Автор - Gustav
Дата добавления - 14.10.2016 в 17:33
byte32 Дата: Пятница, 14.10.2016, 18:31 | Сообщение № 4
Группа: Пользователи
Ранг: Новичок
Сообщений: 36
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Да нет, я сам сделаю. Тверь, в Твери, тверь , в твери, и т.д


Сообщение отредактировал byte32 - Пятница, 14.10.2016, 18:32
 
Ответить
СообщениеДа нет, я сам сделаю. Тверь, в Твери, тверь , в твери, и т.д

Автор - byte32
Дата добавления - 14.10.2016 в 18:31
Manyasha Дата: Пятница, 14.10.2016, 19:06 | Сообщение № 5
Группа: Модераторы
Ранг: Старожил
Сообщений: 1590
Репутация: 669 ±
Замечаний: 0% ±

Excel 2007, 2010
byte32, так подойдет?
[vba]
Код
Sub deleteWords()
    Application.ScreenUpdating = False
    Dim lr&
    lr = Cells(Rows.Count, 1).End(xlUp).Row
    Range("a2:a" & lr).Copy Range("b2:b" & lr)
    For i = 2 To Cells(Rows.Count, 4).End(xlUp).Row
        Range("b2:b" & lr).Replace Cells(i, 4), "", xlPart
    Next i
    For Each cell In Range("b2:b" & lr)
        cell.Value = Application.Trim(cell.Value)
    Next cell
    Application.ScreenUpdating = True
End Sub
[/vba]
К сообщению приложен файл: excelworld-town.xlsm(15Kb)


marinamorozova_box@mail.ru
ЯД: 410013299366744 WM: R193491431804
 
Ответить
Сообщениеbyte32, так подойдет?
[vba]
Код
Sub deleteWords()
    Application.ScreenUpdating = False
    Dim lr&
    lr = Cells(Rows.Count, 1).End(xlUp).Row
    Range("a2:a" & lr).Copy Range("b2:b" & lr)
    For i = 2 To Cells(Rows.Count, 4).End(xlUp).Row
        Range("b2:b" & lr).Replace Cells(i, 4), "", xlPart
    Next i
    For Each cell In Range("b2:b" & lr)
        cell.Value = Application.Trim(cell.Value)
    Next cell
    Application.ScreenUpdating = True
End Sub
[/vba]

Автор - Manyasha
Дата добавления - 14.10.2016 в 19:06
byte32 Дата: Пятница, 14.10.2016, 19:23 | Сообщение № 6
Группа: Пользователи
Ранг: Новичок
Сообщений: 36
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Да, спасибо Вам огромное.
 
Ответить
СообщениеДа, спасибо Вам огромное.

Автор - byte32
Дата добавления - 14.10.2016 в 19:23
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Удаление в ячейках всех городов (Формулы/Formulas)
Страница 1 из 11
Поиск:

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