在Excel 2010中需要使用vba删除所有<font>，</ font>和<Font Color =“000000”> html标记
我通过一个.csv文件将testing用例导出到excel中，包含大量的HTML代码。 我在VBA中创build了一个格式化macros，用于清理布局和去除html标签。 不过，我在删除Font标签时遇到了问题。 你能帮助我最好的方式来删除字体标签？ 有没有一种方法可以很容易地删除所有的字体标签 – 仅供参考：包括使用<*>将任何重新生成的HTML代码replace为Chr（13）和Chr（10），因此它将用Chr（13）和Chr （10）。 下面是我的macros。 我对macros和VBA相当新，所以任何帮助，非常感谢。
Columns("W:W").Select Cells.Replace What:="<ol>", Replacement:="", LookAt:=xlPart, SearchOrder _ :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False Cells.Replace What:="</ol>", Replacement:="", LookAt:=xlPart, SearchOrder _ :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False Cells.Replace What:="<ul>", Replacement:="", LookAt:=xlPart, SearchOrder _ :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False Cells.Replace What:="<<li>", Replacement:="", LookAt:=xlPart, SearchOrder _ :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False Cells.Replace What:="&", Replacement:="", LookAt:=xlPart, SearchOrder _ :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False Cells.Replace What:=" ", Replacement:="", LookAt:=xlPart, SearchOrder _ :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False Cells.Replace What:="<font>", Replacement:="", LookAt:=xlPart, SearchOrder _ :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False Cells.Replace What:="</font>", Replacement:="", LookAt:=xlPart, SearchOrder _ :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False Cells.Replace What:="<font color="000000">", Replacement:="", LookAt:=xlPart, SearchOrder _ :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False Cells.Replace What:="<*>", Replacement:=Chr(13) & Chr(10), LookAt:=xlPart, SearchOrder _ :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False ActiveWindow.ScrollColumn = 5 ActiveWindow.ScrollColumn = 4 ActiveWindow.ScrollColumn = 3 ActiveWindow.ScrollColumn = 2 ActiveWindow.ScrollColumn = 1 Range("A:A,D:D,E:E,F:F,H:H,I:I,K:K,M:M,N:N,O:O,Q:Q,R:R,T:T,S:S,U:U,V:V").Select Range("V1").Activate ActiveWindow.SmallScroll ToRight:=18 Range("A:A,D:D,E:E,F:F,H:H,I:I,K:K,M:M,N:N,O:O,Q:Q,R:R,S:S,T:T,U:U,V:V,Y:Y").Select Range("Y1").Activate Selection.Delete Shift:=xlToLeft ActiveWindow.SmallScroll Down:=-45 ActiveWindow.LargeScroll ToRight:=-2 Range("A2").Select Cells.Select With Selection .HorizontalAlignment = xlGeneral .VerticalAlignment = xlTop .Orientation = 0 .AddIndent = False .IndentLevel = 0 .ShrinkToFit = False .ReadingOrder = xlContext .MergeCells = False End With Columns("G:G").Select Selection.ColumnWidth = 48.5 Columns("H:H").Select Selection.ColumnWidth = 48.5 Cells.Select Cells.EntireRow.AutoFit Columns("B:B").Select Selection.ColumnWidth = 48.5 Columns("B:B").Select With Selection .HorizontalAlignment = xlGeneral .VerticalAlignment = xlTop .WrapText = True .Orientation = 0 .AddIndent = False .IndentLevel = 0 .ShrinkToFit = False .ReadingOrder = xlContext .MergeCells = False End With Cells.Select Cells.EntireRow.AutoFit Columns("C:C").Select Selection.ColumnWidth = 11.75 Columns("C:C").Select With Selection .HorizontalAlignment = xlGeneral .VerticalAlignment = xlTop .WrapText = True .Orientation = 0 .AddIndent = False .IndentLevel = 0 .ShrinkToFit = False .ReadingOrder = xlContext .MergeCells = False End With Cells.Select Cells.EntireRow.AutoFit Columns("D:D").Select Selection.ColumnWidth = 11.75 Columns("D:D").Select With Selection .HorizontalAlignment = xlGeneral .VerticalAlignment = xlTop .WrapText = True .Orientation = 0 .AddIndent = False .IndentLevel = 0 .ShrinkToFit = False .ReadingOrder = xlContext .MergeCells = False End With Cells.Select Cells.EntireRow.AutoFit Columns("E:E").Select Selection.ColumnWidth = 11.75 Columns("E:E").Select With Selection .HorizontalAlignment = xlGeneral .VerticalAlignment = xlTop .WrapText = True .Orientation = 0 .AddIndent = False .IndentLevel = 0 .ShrinkToFit = False .ReadingOrder = xlContext .MergeCells = False End With Columns("J:J").Select Selection.Cut Columns("B:B").Select Selection.Insert Shift:=xlToRight Range("A1").Select End Sub 你需要逃避你的"在你的string与另一个" 。
"<font color="000000">"应该是"<font color=""000000"">"