Excel 是否将图表源数据移到一列上？VBA

我很难把参考资料转换成图表。我想要有一个按钮，每次按下它时，它都会获取单元格引用的当前位置，即四列宽，并将其向右移动一列。我录制了一个宏，但它只工作一次，我希望它始终处于当前位置，然后将其移到右侧的一列上。下面是录音中的代码

ActiveSheet.ChartObjects("Chart 1").Activate
ActiveChart.PlotArea.Select
ActiveChart.SetSourceData Source:=Range( _
"'WTI Forward Prices'!$O$6:$O$36,'WTI Forward Prices'!$AC$6:$AF$36")

---

这四列是最右边的四列吗，或者右边还有更多的数据？它们是最右边的四列。然后你可以找到最后一列并使用

Resize

获取最后四列。我可以找到最后一列并将其放入字符串或长变量中，但我不确定如何使用Resize函数并将源数据设置为它。有没有办法将当前选择向右移动一列？我认为

Resize

是最好的选择。