Mac 上的 VBA (Excel) 词典

Mac 上的 VBA (Excel) 词典

vba
Sub TestDictionary()
    Dim dict As Object
    Set dict = CreateObject("Scripting.Dictionary")
    
    ' 添加键-值对
    dict.Add "Apple", "苹果"
    dict.Add "Banana", "香蕉"
    dict.Add "Orange", "橙子"
    
    ' 获取值
    MsgBox dict("Apple") ' 输出：苹果
    
    ' 遍历所有键
    For Each key In dict.Keys
        MsgBox key & "：" & dict(key)
    Next key
End Sub

vba
Sub ProcessData()
    Dim dict As Object
    Set dict = CreateObject("Scripting.Dictionary")
    
    ' 读取数据并填充词典
    Dim lastRow As Long
    lastRow = Cells(Rows.Count, 1).End(xlUp).Row
    
    For i = 2 To lastRow
        Dim key As String
        Dim value As String
        
        key = Cells(i, 1).Value
        value = Cells(i, 2).Value
        
        dict.Add key, value
    Next i
    
    ' 处理数据
    For Each key In dict.Keys
        Dim newValue As String
        newValue = dict(key) & " processed"
        
        ' 将处理后的值写回到 Excel
        Cells(dict(key), 2).Value = newValue
    Next key
End Sub