Question

我在工作表中列出了很长的已定义单元名称列表。我想在子中使用这些来清除所有内容。但是，我不确定是否有一种好方法将它们全部放入数组中然后删除数组的内容。

我知道我可以将变量设置为等于每个已定义的名称然后清除，但这是一个非常繁琐的解决方案，因为我有很多明确定义的名称要清除：

Sub arraySolution()

    Dim variableName As Variant

    variableName = ThisWorkbook.Names("CI_DESC").RefersTo
    Range(variableName).ClearContents

End Sub

Answer 1

如果我理解你的问题，你想要清除文件中所有命名范围的内容（值）吗？

这样做：

Sub ClearValsOfNamedRanges()

    Dim namRng As Name

    For Each namRng In ThisWorkbook.Names
         namRng.RefersToRange.ClearContents
    Next namRng

End Sub

如何在数组中使用已定义的名称

1 个答案: