[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