vba - 動的インデックス VBA を使用した範囲の定義

Question

VBAを使用してMS Excelでグラフを生成するのに苦労しています。

これが私のコードの1つのサブプロシージャです>

Sub fundamentalChart()
Dim fundamental As Chart
Dim trData As Range
Dim Qc1 As Range
Dim i As Integer
Dim clmLetter As String

'*******************************
'just for testing
Dim clmNumber(10) As Integer
clmNumber(1) = 43
'{43,46,49,52,55,58,61,64,67,70}
WSName = "2030184"
QcCount = 10
'*******************************

Set trData = Worksheets(WSName).Range("$D$1:$D$431224, $G$1:$G$431224")
Set fundametnal = Charts.Add
ActiveChart.ChartType = xlXYScatter
ActiveChart.SetSourceData Source:=trData
ActiveChart.Name = WSName & "Fundamental"

For i = 1 To QcCount

Set Qc1 = Worksheets(WSName).Range(Cells(1, clmNumber(i)), Cells(43124, clmNumber(i))) 
With ActiveChart.SeriesCollection.NewSeries
        .Name = "Qc" & i
        .Values = Qc1
        .XValues = Worksheets(WSName).Range("$D$1:$D$431224")
End With
Next i

End Sub

新しいシリーズ コレクションを追加しようとすると、問題が発生します。値 (QC1) の RANGE の定義に問題があります。私のコードでは、clmNumber（上記で明示的に述べられています）は、異なる次元に到達し、異なる値を含む（パブリック）配列です（シリーズの値を含む列番号を示します）。

列インデックスが異なる値 (clmNumber に格納) を取得する範囲を定義するにはどうすればよいですか?

ありがとうございました。

V.