为每个goto注释创建一个新选项卡

Question

我有一个包含大量信息的电子表格。每个信息部分都有一个注释，允许我们使用goto函数（F5）找到它。

我想创建一个循环遍历所有注释的vba脚本/宏，并将相关数据放入每个注释部分的新选项卡中。

我已搜索过，无法找到有关如何执行此操作的任何信息。如果有人能提供这样的链接，我会很感激。

Answer 1

谢谢n8的提示。我有一些工作，这里是：

Dim sheetName As String

sheetName = ActiveSheet.Name

Dim nName As Name

For Each nName In Names
    If InStr(1, nName.RefersTo, sheetName) > 0 Then
        Application.Goto Reference:=nName.Name
        Selection.Copy
        Sheets.Add After:=Sheets(Sheets.Count)
        ActiveSheet.Name = nName.Name
        ActiveSheet.Paste
    End If
Next nName