VBA更新超链接SubAddress出错

背景

excel中有A、B两行，
A行中有一个定位到本sheet中某一单元格的超链接，
B行的内容是从A行复制得到的。

在对A行的超链接的SubAddress更新时，
发现B行的超链接也被更新了。

原因未知，推测由于浅拷贝导致。

对于超链接的更新，不建议直接修改其属性。
建议直接新建超链接 

' Not suggest
rng.Hyperlinks(1).SubAddress = "Table1!A1"
' Suggest
ActiveSheet.Hyperlinks.Add Anchor:=rng, _