使用VBA

Question

我需要在图表中创建~200动态（想要改变数据点的数量）命名范围。

我在工作表中设置了范围名称和公式，如下所示：

Name    Range
Range1  Com!OFFSET($B$13,COUNTA(A:A)-Csummary!$U$1,0,Csummary!$U$1,1)
Range2  Com!OFFSET($C$13,COUNTA(A:A)-Csummary!$U$1,0,Csummary!$U$1,1)
Range3  Com!OFFSET($D$13,COUNTA(A:A)-Csummary!$U$1,0,Csummary!$U$1,1)
Range4  Com!OFFSET($E$13,COUNTA(A:A)-Csummary!$U$1,0,Csummary!$U$1,1)
Range5  Com!OFFSET($F$13,COUNTA(A:A)-Csummary!$U$1,0,Csummary!$U$1,1)

下面的代码用于创建传统的命名区域，但似乎不适用于动态变种。

Sub Range()
For x = 1 To 20
ThisWorkbook.Names.Add Name:=Cells(x + 1, 1).Value, RefersTo:="=" & Cells(x + 1, 2).Value

Next x

End Sub

非常感谢任何协助。