复制没有静态参考的视觉效果

Question

我的excel有简单的代码，可根据单元格中的值复制一定范围的次数。但是，该范围包含一个视觉对象（填充的雷达），并且复制该视觉对象时，单元格引用保持不变（值在H50：h60范围内），因此每次复制时该视觉对象看起来都相同，并且需要手动将视觉对象调整为值与其单元格一致。

Sub CopyMulti()
    ActiveSheet.Unprotect Password:="Pass"

    Range("A46:s63").Copy Range("a64").Resize(18 * Range("q7").Value)
    Range("a64").Resize(18 * Range("q7").Value).RowHeight = Range("a46").RowHeight

    ActiveSheet.Protect Password:="Pass"
End Sub

我希望视觉对象引用新复制的行中的单元格。 因此，每个可视化对象都具有范围为H50：h60的值，当我运行宏时，我需要它引用H68：h78，然后是第二个对象H86：h96等。它不必是宏，但这是问题是当范围添加到视觉时，excel自动添加$，所以我得到$ H $ 50：$ h $ 60。