ExcelVBAでHTMLタグを外す

正規表現を使って簡単に

 Private Function cdataConv(str As String) As String

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

 End Function

ネタ元

• http://news.mynavi.jp/articles/2012/04/20/excelvba/002.html