Очистить ячейки - Компьютерный форум OSzone.net

Компьютерный форум OSzone.net (http://forum.oszone.net/index.php)

- Microsoft Office (Word, Excel, Outlook и т.д.) (http://forum.oszone.net/forumdisplay.php?f=115)

- - Очистить ячейки (http://forum.oszone.net/showthread.php?t=352130)

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

Добрый день.
Подскажите, как можно через VBA очистить ячейки (не сдвигать остальной текст), которые не содержат <name>, <desc>, </name>, </desc>. Можно конечно использовать фильтр по НЕ СОДЕРЖИТ, но очень много файлов и столбцов (и выбрать можно только 2 значения)
Примем и оригинальный фаил

Цитата:

Цитата Zoidman

как можно через 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