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