Измените свойство ячейки на Нет, если совпадение найдено | VBA | Excel |

Question

Я хочу удалить содержимое ячейки в диапазоне строк 1: 6 и в столбце диапазона A: AE, если найдено совпадение "SUP" и "AL"

Диапазон: окрашен в желтый цвет для справки

Answer 1

Немного смущен, но разве это было то, что вы имели в виду?

Sub FindReplaceAll()

Application.ReplaceFormat.Interior.Pattern = xlNone

With ActiveWorkbook.Sheets(1).Range("A1:AE6")
    .Cells.Replace what:=UCase("SUP"), Replacement:="", ReplaceFormat:=True
    .Cells.Replace what:=UCase("SUP"), Replacement:="", ReplaceFormat:=False
    .Cells.Replace what:=UCase("AL"), Replacement:="", ReplaceFormat:=True
    .Cells.Replace what:=UCase("AL"), Replacement:="", ReplaceFormat:=False
End With

End Sub

При необходимости вы можете подать LookAt:=xlPart или LookAt:=xlWhole.