选择与预定义范围

Question

所以我试图制作散点图和直方图。

我已将活动选择范围保存在变量中，

Dim MyRange As Range
Set MyRange = Selection

我现在要做的是选择此范围左侧4列的另一个范围 - 但具有相同数量的单元格。同样，这可以保存到变量中。 - 如果我使用单个单元格来执行此操作，我将使用Active.Offset - 是否有类似的方法来执行此操作？

我当时想要做的是使用这两个范围作为x和y值生成散点图。

例如，

Range(MyRange, NewRange(this will be the rows, 4 columns adjacent to MyRange)).Select
ActiveSheet.Shapes.Addchart.Select
ActiveChart.ChartType = x1XYScatter

感谢任何指导。

Answer 1

使用

Dim r as Range, x as Range, y as Range
Set r = Selection
Set x = r.Offset(0,4)  `same size as r, but 4 columns to the right
Set y = r.Resize(r.Rows.Count,4)  `same rows as r, but with 4 columns