Удаление в ячейках всех городов

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по Excel » Удаление в ячейках всех городов (Формулы/Formulas)

byte32

Дата: Пятница, 14.10.2016, 14:05 | Сообщение № 1

Группа: Пользователи

Ранг: Участник

Сообщений: 72

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

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

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

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

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

К сообщению приложен файл: excelworld-town.xlsx (8.5 Kb)

Ответить

byte32

Дата: Пятница, 14.10.2016, 14:31 | Сообщение № 2

Группа: Пользователи

Ранг: Участник

Сообщений: 72

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

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

Ответить

Gustav

Дата: Пятница, 14.10.2016, 17:33 | Сообщение № 3

Группа: Друзья

Ранг: Участник клуба

Сообщений: 2731

Репутация: 1132 ±

Замечаний: 0% ±

начинал с Excel 4.0, видел 2.1

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

МОИ: Ник, Tip box: 41001663842605

Ответить

byte32

Дата: Пятница, 14.10.2016, 18:31 | Сообщение № 4

Группа: Пользователи

Ранг: Участник

Сообщений: 72

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

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

Сообщение отредактировал byte32 - Пятница, 14.10.2016, 18:32

Ответить

Manyasha

Дата: Пятница, 14.10.2016, 19:06 | Сообщение № 5

Группа: Модераторы

Ранг: Старожил

Сообщений: 2198

Репутация: 898 ±

Замечаний: 0% ±

Excel 2010, 2016

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 (15.4 Kb)

ЯД: 410013299366744 WM: R193491431804

Ответить

byte32

Дата: Пятница, 14.10.2016, 19:23 | Сообщение № 6

Группа: Пользователи

Ранг: Участник

Сообщений: 72

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

Да, спасибо Вам огромное.

Ответить

Мир MS Excel » Вопросы и решения » Вопросы по Excel » Удаление в ячейках всех городов (Формулы/Formulas)

Страница 1 из 1
1