vba - 循环遍历 Excel 工作表中的所有命名范围

Question

我需要循环遍历工作表中的所有命名范围。
我目前正在这样做:

For Each nm In ActiveWorkbook.Names

问题是该工作表的名称具有全局范围和工作表范围。
此循环仅获取全局范围。
我试过:

For Each nm In Activeworkbook.Sheets(1).Names

但无法使其发挥作用。此循环也仅获取具有全局范围的命名范围。有想法吗？
我知道最好的解决方案是更改名称的范围，但我做不到。

Answer 1

今天可以上类。为了在这里发帖，我让我的问题变得更加简单，但这不是一个好主意。

我真正做的是从工作表中导入一些值(使用 application.getopenfilename 选择并使用 workbooks.open 打开)。因此，我循环遍历此“导入”工作表中的所有名称，并将这些范围的值导入到原始工作表中具有相同名称的范围。

for each nm in thisworkbook.names
    if left(nm.name, 5) = "campo" then
        'here I make my copy
    end if
next nm

事实证明，当您有一个具有工作表范围的名称时， nm.name 返回如下内容:

 nameOfSheet!nameOfField

所以我永远无法进入这个假设。为了解决我的问题，我使用了以下行。感谢大家努力帮助我。

currentName = Mid(nm.Name, InStr(1, nm.Name, "!") + 1)