Excelmacros将非标准字符转换为HTML实体有更快的方法吗？

我发现这个 杰伊 非常有用的片段 ，帮助我在Excel中准备将文本转换为 HTML实体（通过切换前后）来进行CSV导出。

例如ReplaceCharacter cell, "€","€" 'euro ReplaceCharacter cell, "€","€" 'euro

但是，按照该线程的第二条评论，这不是最有效的方法 – 例如，我有一个大约90行，大约13列的文档。 作为VBA /macros的新手，我对脚本的工作原理是滚动浏览每个单元格，find字符并replace它们。

这个特殊的方法花了不到1分钟（55秒） – 我通过msgboxpopup完成运行后计时。

虽然这仍然是合理的（我可以在一分钟内离开一杯茶），但是如果有1000行，那么这将是不一样的，所以我想知道是否有人可以提出任何改进或替代方法来实现一样？

Answer 1

2002年排3秒…

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

只要把这些东西叠在一起就可以了！ （不需要循环！）