Excel макрос удаление значения ячейки

Неправильный синтаксис проверки. Правильно:

If Cells(i, 3).Value <> "Deal" Or Cells(i, 3).Value <> "Meal" Or Cells(i, 3).Value <> "Run" Then

Так правильно с точки зрения синтаксиса, но неправильно логически. Применяется оператор Or (ИЛИ). При такой записи не может быть результата False.

Примеры.

В ячейке слово «Deal«:

"Deal" <> "Deal" Or "Deal" <> "Meal" = False + True = True

В ячейке слво «Excel«:

"Excel" <> "Deal" Or "Excel" <> "Meal" = True + True = True

В этом случае нужно применять оператор And (И).

===========================

Просматриваем строки с 3 по 25. Если в ячейке столбца С значение не равно указанным, очищаем ячейку. Вместо And — каскад If, позволяющий отрезать лишние вычисления.

Sub DelVal1()
Dim i As Long
    For i = 3 To 25' цикл по строкам
        If Cells(i, 3).Value <> "Deal" Then
            If Cells(i, 3).Value <> "Meal" Then
                If Cells(i, 3).Value <> "Run" Then Cells(i, 3).ClearContents
            End If
        End If
    Next i
End Sub

Значение ячейки можно искать в тексте, составленном из искомых слов:

Sub DelVal2()
Dim i As Long
    For i = 3 To 25
        If Not ("DealMealRun" Like "*" & Cells(i, 3).Value & "*") Then _
                                            Cells(i, 3).ClearContents
    Next i
End Sub

Если слов много, имеет смысл занести их в массив:

Sub DelVal3()
Dim ArrVal()
Dim i As Long, j As Long
    ArrVal = Array("Deal", "Meal", "Run") ' значения в массив

    For i = 3 To 25 ' цикл по строкам
        For j = 0 To UBound(ArrVal) ' цикл по массиву
            If Cells(i, 3).Value = ArrVal(j) Then Exit For
        Next j

        ' ни одно не найдено - очищаем ячейку
        If j = UBound(ArrVal) + 1 Then Cells(i, 3).ClearContents
    Next i
End Sub

Многим пользователям, в том числе и мне, приходится ежедневно, еженедельно, ежемесячно либо ежегодно использовать одни и те же таблицы, сделанные в Excel. Для повторного и последующего использования этих таблиц, как правило приходится удалять значения некоторых ячеек для того, чтобы освободить место для внесения в них новых данных. Удалить устаревшие значения в таблице тем дольше и сложнее, чем старее версия Excel, чем больше таблица и чем больше промежуточных расчетов и результатов в этой таблице. Как сделать это быстро?

Чтобы было понятно о чем пойдет речь, вспомним, что ячейка — это часть табличного пространства, образованная пересечением строки и столбца. Ячейка может содержать какие-то значения, например числа, текст, формулы и так далее, а также может содержать информацию о шрифтах, их цветах и размерах, заливках, рамках, защите и так далее. Таким образом, удалять можно как сами ячейки со всем их содержимым (при этом место удаленной ячейки занимает новая, а всё табличное пространство смещается либо вверх, либо влево) так и часть информации, например только значения или только форматы. В этой публикации речь пойдет об удалении значений, когда сами ячейки остаются на своих местах и информация об их форматах остается неизменной.

Стандартные средства для удаления значений ячеек

Представим (либо посмотрим на видео ниже), что на рабочем листе Excel расположена таблица. В этой таблице шапка и некоторые столбцы, содержат различные текстовые значения, основное пространство таблицы содержит ячейки с числовыми значениями, которые в свою очередь участвуют в расчетах, определенных формулами. К примеру, необходимо удалить из этой таблицы только числа, не удаляя при этом формулы, или только текст, не удаляя при этом числа и всё остальное.

Для того чтобы очистить место в таблице для внесения новых значений можно выделять поочередно нужные диапазоны ячеек и нажимать кнопку «Delete» на клавиатуре, как говорится, медленно, но верно. Проделав такую операцию полтора десятка раз невольно появляется вопрос «а можно ли как-нибудь быстрее?». Конечно можно! Даже нужно. В Microsoft Excel 2007 и выше для этих целей подойдет такой инструмент как «Выделение группы ячеек». Для этого выбираем на ленте Excel вкладку «Главная», переходим в группу «Редактирование», нажимаем кнопку «Найти и выделить» и выбираем команду «Выделение группы ячеек». Появляется одноименное диалоговое окно, при помощи которого можно выделить определенные ячейки таблицы и после этого удалить их значения.

Выделение группы ячеек производится последовательно, нельзя например одновременно выделить и константы и формулы. Так уже гораздо быстрее, не правда ли? Но и это не предел. Все-таки удаление происходит в два этапа, сначала выделяем, затем удаляем. Если таблицы на разных листах и их много, то и с таким способом можно провозиться достаточно долго. В Excel 2003 выделение группы ячеек вообще не предусмотрено и в этой версии без дополнительных инструментов не обойтись.

Дополнительные инструменты для выборочного удаления значений

В некоторых случаях ускорить выборочное удаление значений ячеек поможет надстройка, которая легко устанавливается и запускается одним нажатием кнопки, выведенной прямо в главное меню. Надстройка позволяет удалять значения из ячеек с числами, с текстом, с формулами, с примечаниями, с заливкой, с рамками, как по раздельности, так и в любых сочетаниях. Кроме того предусмотрен выбор диапазона для удаления значений. Возможен используемый диапазон (с первой до последней заполненной ячейки), используемые диапазоны (используемый диапазон на каждом листе активной рабочей книги), выделенный пользователем диапазон, а также выделенный диапазон, но на каждом листе рабочей книги.

Использование надстройки позволяет:

1. выборочно удалять значения из ячеек с числами, с текстом, с формулами, с датами, ячеек содержащих примечания, цветную заливку, цветной шрифт, границы;

2. проводить выборочное удаление значений из ячеек используемых диапазонов, предварительно выделенных диапазонов, диапазонов, выбранных вручную, а также столбцов с заданными именами;

3. осуществлять очистку ячеек от значений на видимых, скрытых, непустых листах, листах с заданными именами, с заданными номерами, с заданным значением в определенном диапазоне, а также на всех листах рабочей книги Excel.

Видео по работе с надстройкой

макрос (надстройка) для выборочного удаления значений из ячеек

Видео по выборочному удалению значений ячеек