excel - Excel VBA - 辞書 - 値の保存と取得

Question

私は以下の表に取り組んでおり、Excel VBA - 辞書 - すべての詳細を取得しようとしています - 1) 最初のステップは、「結果出力」列を検索することです - 値が「いいえ」の場合 - 次に必要です適切なヘッダーですべての値を読み取ります。2) したがって、2 番目のレコード (Name = XYZ) については、すべての詳細を保存する必要があります。No. of Subjects 列に基づいて (すべての被験者の値とそれに対応するマークを保存する必要があります)、さらなる計算に使用され、「結果」列が生成されます。

詳細をキャプチャできるように、部分的に機能しましたが、すべてのサブジェクトとそのマークの詳細を保存することはできません:

Sr. No. Results Out?    Result  Name    Age No. of Subjects Subject Names   Marks
1           Yes          Pass   ABC      21       3          Maths           10
                                                             Science         26
                                                             History         34
2           No                  XYZ      10       2          Maths           24
                                                             Science         36

以下は、部分的に機能している私が使用したコードです。

Public Sub test_dict()

Dim dict As New Scripting.dictionary
Set dict = New dictionary

sSheetIndex = 1
intTargetRow = 2

Set objUsedRange = Worksheets.Item(3).UsedRange

For Iter = 1 To objUsedRange.Columns.Count
   sCellName = objUsedRange.Cells(1, Iter)
   sCellValue = objUsedRange.Cells(intTargetRow, Iter)
   dict.Item(sCellName) = sCellValue

Next


For i = 0 To dict.Count - 1
    s = dict.Items()(i)
    Debug.Print dict.Keys()(i) & " " & dict.Items()(i)
    Debug.Print s
Next i

End Sub