Короче, еще вопрос, вот этот код уже работает в Excel, так что пол дела есть.
Код |
---|
Sub HTML()
Dim cell As Range
For Each cell In ActiveSheet.UsedRange.Columns(9).Cells
cell = HTML_DeleteAttributes(cell)
Next cell
End Sub
Function HTML_DeleteAttributes(ByVal txt$)
On Error Resume Next
With CreateObject("VBScript.RegExp")
.Global = True
.Pattern = "[<ns1:INN>]\d{10}[</ns1:INN>]"
txt$ = .Replace(txt$, ">Удаленно<")
'.Pattern = "[<ns1:OGRN>]\d*[</ns1:OGRN>]"
'txt$ = .Replace(txt$, ">куку епт<")
End With
HTML_DeleteAttributes = txt$
End Function
|
Мне надо искать сразу несколько по нескольким условиям, но если писать как я отметил комментарием, то он выдает кашу. Может сделать несколько разных функций и вызывать их для каждой строки. Просто код тогда будет опять же не эстетичным. Может вопрос глупый, но я сам написал только 4 макроса.