Excel转换（引号）“，以引用;而不会搞砸HTML链接

我有一个从我们的网站导出的excel文件，需要用html实体replace引号：

" 

这个：

 Dimensions are 7" wide by 5" tall. 

需要看起来像：

 Dimensions are 7" wide by 5" tall 

一个简单的Excel查找和replace将做的伎俩，但我们也有合法的引号，需要留下，因为他们embedded在这样的HTML链接：

 <a href="http://www.daylightcolor.com/csl/index.php?c=11" target="_blank"> 

我们如何find并replace正常的引号而不触及href标签内的任何引号？

Answer 1

用"(?![^<]*>)正则expression式来尝试这种方法，它将replace后面没有跟随的双引号：

 Sub CallReplMultiple() Dim ptrn As String, txt As String Dim regExp As Object ptrn = """(?![^<]*>)" Set regExp = CreateObject("VBScript.RegExp") With regExp .Global = True .Pattern = ptrn End With For i = 1 To ActiveSheet.UsedRange.Rows.Count For j = 1 To ActiveSheet.UsedRange.Columns.Count ActiveSheet.Cells(i, j) = regExp.Replace(ActiveSheet.Cells(i, j).Value, "&quot;") Next j Next i End Sub