ExcelVBAでHTMLタグを外す

ExcelVBA

正規表現を使って簡単に

 Private Function cdataConv(str As String) As String

    Dim regEx As New RegExp
    regEx.Pattern = "<[^>]*>"
    regEx.Global = True
    cdataConv = regEx.Replace(str, "")

 End Function


ネタ元