EXCLE定义管理名称的导出和导入。

1、快捷键：Alt+F11,单击插入模块

2、输入内容：

Sub 名称导入()

   On Error Resume Next

    For k = 1 To Range("a" & Rows.Count).End(3).Row

      ActiveWorkbook.Names.Add Name:=Cells(k, 1).Value, RefersTo:=Cells(k, 2).Value

    Next

End Sub

3、返回Excle表，在A列输入名称，B列输入公式引用

4、然后快捷键：Alt+F8,运行

5、效果如下，成功导入