excel中的VBA代码使标记之间的文本变为粗体

我有一个csv文件，其中包括html标签<b>和<\ b>来表示粗体文本。 （即在这些标签之间的几个单词，在单元格内的较长文本块中，应该是粗体的）。 有没有办法使用Excel中的VBA代码来剥离标签，并使标签之间的文本为粗体？

注 – 有时在给定单元格中有多组标签。

Answer 1

这应该做你想要的：

 Sub BoldTags() Dim X As Long, BoldOn As Boolean BoldOn = False 'Default from start of cell is not to bold For X = 1 To Len(ActiveCell.Text) If UCase(Mid(ActiveCell.Text, X, 3)) = "<B>" Then BoldOn = True ActiveCell.Characters(X, 3).Delete End If If UCase(Mid(ActiveCell.Text, X, 4)) = "</B>" Then BoldOn = False ActiveCell.Characters(X, 4).Delete End If ActiveCell.Characters(X, 1).Font.Bold = BoldOn Next End Sub 

目前设置为在活动单元上运行，您可以将其放置在一个循环中以执行整个列。 你可以很容易地适应这个代码的其他HTML标签单元格式（即斜体等）

这是在我testing的单元格中（减去<之后的空格）：<B>粗体结束</ B>的样例<b> Te </ b>

结果是：样品粗体结束

希望有所帮助