pricex(i) = "=" & ActiveSheet.Name & ActiveCell.Address
應該修改為:
pricex(i) = "=" & ActiveSheet.Name &"!"& ActiveCell.Address
另外,如果工作表的名稱是純數字(例如1、2、3)或者含有特殊字符(例如=)需要給表名增加單引號,也就是語句如下:
pricex(i) = "='" & ActiveSheet.Name &"'!& ActiveCell.Address