VBA -从多个工作表和区域创建字典

Sub CreateDictionaryFromWorksheetsAndRanges()
    Dim dict As Object
    Set dict = CreateObject("Scripting.Dictionary")
    
    Dim ws As Worksheet
    For Each ws In ThisWorkbook.Worksheets
        Dim rng As Range
        Set rng = ws.Range("A1:B10") ' 设置要读取的区域
        
        Dim cell As Range
        For Each cell In rng
            ' 将单元格的值作为键，将单元格地址作为值存储到字典中
            dict(cell.Value) = cell.Address
        Next cell
    Next ws
    
    ' 遍历字典并输出键值对
    Dim key As Variant
    For Each key In dict
        Debug.Print "键: " & key & "，值: " & dict(key)
    Next key
End Sub