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

[Jim]

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

Есть таблица, в которой в столбце А различный текст. в некоторых ячейках текст зачеркнут (текст).
необходимо такую ячейку удалить.
Давным давно это у меня работало через формулу. В соседней ячейке с помощью формулы прописывались значение 1 или 0. и по ним просто делался фильтр.
Помогите это повторить.

Заранее спасибо.

[cheshiki1]

Код Выделить Развернуть

Sub Макрос1()
Dim i&
For i = Cells(Rows.Count, 1).End(xlUp).Row To 2 Step -1
If Cells(i, 1).Font.Strikethrough = True Then Rows(i).EntireRow.Delete 'удаляем строку
'If Cells(i, 1).Font.Strikethrough = True Then Rows(i).EntireRow.Hidden = True 'если нужно скрыть
Next
End Sub
про описанный вами вариант могу сказать следующее:
1. скорей всего зачеркивание у вас было сделано с помощью УФ, соответственно данное условие можно было перенести в ячейку.
2. использовалась макрофункция в имени

Код Выделить Развернуть

=ПОЛУЧИТЬ.ЯЧЕЙКУ(23;A1)

[zs]

Здравствуйте, Jim. Если зачеркивать текст по образцу, то может и получиться

[vikttur]

zs, можно без ЕСЛИ:

Код Выделить Развернуть

=--(ЯЧЕЙКА("формат";A2)="C2")
Но при чем здесь финансовый формат?

[zs]

Здравствуйте, vikttur. Вопрос состоит в том, не как присваивать формат, а по формату определять значение (последнее и определяет почему финансовый или иной отличный от общего).
P.S. Если аргумент «тип_информации» функции ЯЧЕЙКА имеет значение «формат», а формат ячейки был изменен, необходимо пересчитать лист для обновления значения функции ЯЧЕЙКА. (поэтому необходимый фомат "по образцу"-копируется из другой ячейки).
С уважением, ZS5 (5, потому что в школе учился на "отлично")))