Для ячейки есть возможность сохранить дополнительный параметр типа string? - VB

Формулировка задачи:

В двух словах примерно так: я заполняю ячейки Cells(i, j) значениями, но кроме этого, для каждой ячейки хочу сохранить, назовем так, адрес, откуда я это значение взял. Есть ли такая возможность?

Решение задачи: «Для ячейки есть возможность сохранить дополнительный параметр типа string?»

textual
                            Листинг программы 
                        

                            Sub testDic()

    Dim dicTest
    Set dicTest = CreateObject("Scripting.Dictionary")

    Dim asheet As Worksheet
    Dim rowNo As Integer, colNo As Integer
    Dim i As Integer, j As Integer, k As Integer
    Dim Key As String
    Dim DataValue As String
    
    'определяем используемую область листа
    With ThisWorkbook
        Set asheet = .Worksheets("Лист1")
    End With
    
    rowNo = asheet.UsedRange.Rows.Count
    colNo = asheet.UsedRange.Columns.Count
    
    Debug.Print Now
        
    'загрузка словаря
    For i = 1 To rowNo
        For j = 1 To colNo
            Key = "test<br>Comment:" & Str(i) & ":" & Str(j)
            DataValue = asheet.Cells(i, j)
            dicTest.Item(Key) = DataValue
        Next j
    Next i
    
Debug.Print Now
Debug.Print dicTest.Count

    'чтение значений по ключу
    For i = 1 To rowNo
        For j = 1 To colNo
            Key = "test<br>Comment:" & Str(i) & ":" & Str(j)
            DataValue = dicTest.Item(Key)
        Next j
    Next i

Debug.Print Now

End Sub

                        