Excel宏是否有更快的方式将非标准字符转换为HTML实体?

时间:2011-07-10 13:34:48

标签: excel vba text excel-vba html-entities

我通过 this really useful snippet 找到了Jay,这有助于我在Excel中将文本转换为 HTML实体(通过切换之前和之后)准备CSV导出。

e.g。 ReplaceCharacter cell, "€","€" 'euro

但是,根据该线程的第二条评论,这不是最有效的方法 - 例如,我有一个大约90行和大约13列的文档。作为VBA /宏的新手,我对脚本如何工作的理解是它滚动每个单元格,找到字符并替换它们。

这个特殊的方法花了不到1分钟(55秒) - 我通过在完成运行后放置msgbox弹出窗口来计时。

虽然这仍然是合理的(我可以在一分钟内离开并泡一杯茶)但如果有1000行代替它将不一样,所以我想知道是否有人可以建议任何改进或替代方法达到同样的目的?

1 个答案:

答案 0 :(得分:2)

2002行在3秒内......

    Cells.Replace What:="€", Replacement:="&euro", LookAt:=xlPart, _
    SearchOrder:=xlByRows, MatchCase:=False

只要把几个人叠在一起,你就会好起来! (不需要循环!)