删除大量命名单元格的最有效方法是什么？

Question

我有大约110个命名单元格，我经常使用vba删除它们。我这样做的方式只是：

NamedCell_1 = ""

NamedCell_2 = ""

NamedCell_3 = ""

依旧......

有更快的方法来完成这个过程吗？在删除时，由于特定原因，每个命名单元格必须按名称调用，不能引用行/单元格编号。请指教，谢谢！

Answer 1

我做了一些谷歌搜索，我认为最快的方法是：

On Error Resume Next

   For Each nm In ActiveWorkbook.Names
        Range(nm).value = ""
    Next nm

但后来我进行了实验，这个速度提高了约50％：

On Error Resume Next

   For Each nm In ActiveWorkbook.Names
        Range(nm).ClearContents
    Next nm

然而，两种解决方案都比我以前的方式更快地实现了跨越式发展