VBA 将存储在字典中的单元格粘贴到另一个工作表中的单元格

使用VBA编程语言可以实现将存储在字典中的单元格数据粘贴到另一个工作表中的单元格的功能。字典是一种非常有用的数据结构，它可以存储键值对，并且可以根据键快速查找对应的值。

vba
Dim dict As Object
Set dict = CreateObject("Scripting.Dictionary")

vba
Dim sourceSheet As Worksheet
Set sourceSheet = ThisWorkbook.Sheets("源工作表")
Dim lastRow As Long
lastRow = sourceSheet.Cells(sourceSheet.Rows.Count, "A").End(xlUp).Row
Dim i As Long
For i = 2 To lastRow
    dict.Add sourceSheet.Cells(i, "A").Value, sourceSheet.Cells(i, "A").Value
Next i

vba
Dim targetSheet As Worksheet
Set targetSheet = ThisWorkbook.Sheets("目标工作表")
Dim j As Long
j = 2
For Each key In dict.Keys
    targetSheet.Cells(j, "B").Value = dict(key)
    j = j + 1
Next key

vba
Sub CopyDataFromDictionary()
    Dim dict As Object
    Set dict = CreateObject("Scripting.Dictionary")
    
    Dim sourceSheet As Worksheet
    Set sourceSheet = ThisWorkbook.Sheets("源工作表")
    
    Dim lastRow As Long
    lastRow = sourceSheet.Cells(sourceSheet.Rows.Count, "A").End(xlUp).Row
    
    Dim i As Long
    For i = 2 To lastRow
        dict.Add sourceSheet.Cells(i, "A").Value, sourceSheet.Cells(i, "A").Value
    Next i
    
    Dim targetSheet As Worksheet
    Set targetSheet = ThisWorkbook.Sheets("目标工作表")
    
    Dim j As Long
    j = 2
    
    For Each key In dict.Keys
        targetSheet.Cells(j, "B").Value = dict(key)
        j = j + 1
    Next key
End Sub