excel vba编程问题：变量储存一个单元格的地址，用此变量给另一单元格赋值出错。

Question

VBA的前辈们好，小弟请教个问题，如下：
本人的报价表前后有很多重复清单行，为了提高效率，我写了个vba程序，识别相同的清单行，然后把前面已有数据清单行的赋值给后面相同清单行。变量类型string，储存的内容为：“=工作表名称！$a$1。一般来说，excel就会引用这个a1单元格的数值。可是我的赋值完成不了。所以请教一下大神。代码如下：

Sub ceshifuzhi() '测试数组储存引用地址的函数
Dim i As Integer
Dim pricex(1 To 5) As String
For i = 1 To 5 Step 1
pricex(i) = "=" & ActiveSheet.Name & ActiveCell.Address
Call move_right(1) ‘自己写的函数，右移一格
Next
Call move_left(5) ‘自己写的函数，左移五格
Call move_down ‘自己写的函数，下移
‘以上把五个成本数据引用地址储存在pricex数组里
‘以下对单元格赋值，就出问题了。请大神帮我看看。
For i = 1 To 5 Step 1
ActiveCell.Value = pricex(i)
Call move_right(1)
Next
End Sub

Answer 1

你遗漏了感叹号哦，下面的语句：
pricex(i) = "=" & ActiveSheet.Name & ActiveCell.Address
应该修改为：
pricex(i) = "=" & ActiveSheet.Name &"!"& ActiveCell.Address
另外，如果工作表的名称是纯数字（例如1、2、3）或者含有特殊字符（例如=）需要给表名增加单引号，也就是语句如下：
pricex(i) = "='" & ActiveSheet.Name &"'!& ActiveCell.Address