Как макросом отчистить ячейки по условию

Lerik2020

Пользователь

Сообщений: 47 Регистрация: 14.01.2020

25.10.2021 18:38:43

Здравствуйте подскажите пожалуйста. Как макросом отчистить ячейки по условию. Например в столбце "B:B" имеются такие записи ("№ договора", "от какого числа", "протокол № ", "Дата и время", а в столбце "C:C", идет заполнение. Можно ли ориентируясь на столбца "B:B" очистить заполнение в столбце "C:C". Можно фиксированно конечно сделать, какие ячейки отчистить, а если скажем строки по едут на одну сместятся, верх или вниз, то геморройно будет опять перебивать в какие ячейки отчистить от информации .

Или может просто выделить определенный столбец в котором будет символы например "$%@^", то ячейки из столбца "C:C" очистить. Например если в ячейка "B11" есть эти символы "$%@^", то ячейку "C11" отчистить от информации, наверно так проще будет.

Прикрепленные файлы

Шаботч.xlsm (12.96 КБ)

Ігор Гончаренко

Пользователь

Сообщений: 14576 Регистрация: 01.01.1970

25.10.2021 18:56:53

положите этот макрос в модуль Листа1 или в стандартный модуль

Код

Sub ClearData()
  Dim rg As Range, wds, wd
  wds = Array("№ договора", "От какого числа", "Остальное", "САМОСТОЯТЕЛЬНО")
  For Each wd In wds
    Set rg = [B:B].Find(wd, , xlValues, xlWhole, SearchFormat:=False)
    If Not rg Is Nothing Then rg.Offset(0, 1).ClearContents
  Next
End Sub

внесите в него нужные изменения
сохраните файл с поддержкой макросов
пользуйтесь

Изменено: Ігор Гончаренко - 25.10.2021 18:57:35

Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!

Lerik2020 Пользователь Сообщений: 47 Регистрация: 14.01.2020	#3 30.10.2021 08:01:49 Спасибо, забыл про свой вопрос, поэтому не своевременно по благодарил. А, можно подправить, чтобы выполнял тоже самое, но где есть набор определенных символов например "!%?"