excel中怎么用VBA批量定义名称

名称的话可以用VBA建立

Sub 定义名称()
For i = 3 To Sheet1[A65536]End(xlUp)Row
    j = Sheet1Cells(i, 1000)End(xlToLeft)Column
    ActiveWorkbookNamesAdd Name:=Cells(i, 1), RefersToR1C1:="=Sheet1!R" & i & "C2:R" & i & "C" & j
Next
End Sub

'测试结果如下

从第三行开始执行，支持65536行和1000列范围内的名称定义

电子表格中使用定义和使用名称的方法如下：

1、首先选定要定义的区域。

2、然后在编辑栏左侧名称框内输入要定义的名称。

3、点击回车。

4、验证命名是否有效，在表中随便点击，然后再点击名称框的下拉菜单，点击刚才命名的名称，即可呈现效果。

1、短，容易写，容易记，有效减少公式的长度
2、突破限制，公式长度限制，公式嵌套层级限制
3、宏表函数在工作表中只能通过定义名称使用、在2003中的数据有效性涉及跨表引用时也需要定义名称
4、VBA中使用名称，可以简化引用范围的书写
5、定义名称可以用于中链接单元格区域（快照）
6、定义名称可用于图表的系列公式
7、定义名称可以通过名称快速定位指定的范围
8、可以定义一个适用于多表的名称，方便多个工作表公式的引用
9、方便存储常量或常量数组
10、短小的名称替代冗长的公式，可以减小文件大小。
定义名称的不足：
打开工作簿时，所有名称会被重新计算，所以虽然定义名称减小了文件大小，但却不一定能加快打开文件的速度。
复制相同结构的多个工作表时，容易因为名称相同而起冲突。

一、首先定义一个动态数据区
这一步最重要的是要定义一个动态数据区，以名称形式保存。假设名称为qqq。那么公式为=OFFSET($A$1,,,COUNTA($A:$A),COUNTA($1:$1))
具体步骤是：数据--公式--定义名称，在名称上输入qqq,在引用位置上输入上面的公式。即定义完了动态表的名称
说明，这个动态表是数据源保存区域，视为从第一行第一列开始。这张表中修改数据时最好用“清除数据”功能，尽量不要用删除功能，尤其不能删除第一列和第一行，否则造成名称引用错误
二、插入数据透视表
正常插入图表，并完成相应修改。
三、修改完成动态数据透视表
单击图表--右键--选择数据，在出来的对话框中，上方有一个图表数据区域，用qqq这个名称替换原来的数据区，不用输入等号。

---