请高手指点：建立分表，复制标题时受阻下界越标

taorigin

您好！
1、我有一个总表“数据源”。
2、我要建几张分表，数据Array("业绩增长", "扭亏为盈", "业绩亏损", "申核通过", "其他") ，这是分表的表格名称。
3、每张分表与总表的标题一样，将总表的标题行rng1，复制到分表的标题位置rng2，出错行停留在
Set rng2 = Worksheets(var1).Range("A1")
总是提示错误“下界越标”，我没检查出哪个地方不对。

烦请高手指点。十分感谢。

taorigin

源代码附上，如下，十分感谢

Sub fb()

'建立分表，并为各表复制标题行
'
Dim ws As Worksheet
Dim rng1 As Range, rng2 As Range
Dim var1 As Long
Dim myarray

    ActiveSheet.Name = "数据源"
    Set rng1 = Worksheets("数据源").Rows(1) '复制标题行

myarray = Array("业绩增长", "扭亏为盈", "业绩亏损", "申核通过", "其他")  '欲建分表的名称
For var1 = LBound(myarray) To UBound(myarray)
Set ws = Worksheets.Add(After:=Worksheets(Worksheets.Count))
ws.Name = myarray(var1)
Set rng2 = Worksheets(var1).Range("A1")   '通过循环语句，定位到每次新增分表的A1位置
rng1.Copy Destination:=rng2  '复制标题行
Next var1

End Sub

3190496160

Sub fb()

'建立分表，并为各表复制标题行
'
Dim ws As Worksheet
Dim rng1 As Range, rng2 As Range
Dim var1 As Long
Dim myarray

    ActiveSheet.Name = "数据源"
    Set rng1 = Worksheets("数据源").Rows(1) '复制标题行

myarray = Array("业绩增长", "扭亏为盈", "业绩亏损", "申核通过", "其他")  '欲建分表的名称
For var1 = LBound(myarray) To UBound(myarray)
Set ws = Worksheets.Add(After:=Worksheets(Worksheets.Count))
ws.Name = myarray(var1)
Set rng2 = Worksheets(myarray(var1)).Range("A1")   '通过循环语句，定位到每次新增分表的A1位置
rng1.Copy Destination:=rng2  '复制标题行
Next var1

End Sub

3190496160

var1  只是一个序号，myarray(var1) 才是数组的元素

microyip

Set rng2 = Worksheets(myarray(var1)).Range("A1")