Очистить ячейки

[Zoidman]

Добрый день.
Подскажите, как можно через VBA очистить ячейки (не сдвигать остальной текст), которые не содержат <name>, <desc>, </name>, </desc>. Можно конечно использовать фильтр по НЕ СОДЕРЖИТ, но очень много файлов и столбцов (и выбрать можно только 2 значения)
Примем и оригинальный фаил (https://drive.google.com/file/d/1LXS8nIcJZ_HTDX3rQVSLtPl1Wif3fdsm/view?usp=sharing)

[a_axe]

как можно через VBA очистить ячейки (не сдвигать остальной текст), которые не содержат <name>, <desc>, </name>, </desc> »
Попробуйте код ниже. Необходимо выделить нужный диапазон ячеек и запустить код.
Sub del_txt()
Dim vrtData, i As Integer, j As Integer, k As Integer, A, flag As Boolean
vrtData = Selection
A = Array("<name>", "<desc>", "</name>", "</desc>")
For j = LBound(vrtData, 1) To UBound(vrtData, 1)
For k = LBound(vrtData, 2) To UBound(vrtData, 2)
flag = True
For i = LBound(A) To UBound(A)
If vrtData(j, k) Like "*" & A(i) & "*" Then
flag = False
Exit For
End If
Next i
If flag Then vrtData(j, k) = ""

Next k
Next j

Selection.Value = vrtData
End Sub