【Excel VBA编程】黄金搭档:数据字典和数组的组合应用

Sub AlignTablesByColumnB()    Dim ws As Worksheet    Dim lastRowB As Long, lastRowF As Long    Dim i As Long, j As Long    Dim arrB As Variant, arrF As Variant, arrG As Variant    Dim tempF As Variant, tempG As Variant    Dim dict As Object    Dim found As Boolean    ' 设置当前工作表    Set ws = ActiveSheet    ' 获取B列和F列的最后一行数据    lastRowB = ws.Cells(ws.Rows.Count, "B").End(xlUp).Row    lastRowF = ws.Cells(ws.Rows.Count, "F").End(xlUp).Row    ' 将数据读入数组    arrB = ws.Range("B1:B" & lastRowB).Value    arrF = ws.Range("F1:F" & lastRowF).Value    arrG = ws.Range("G1:G" & lastRowF).Value    ' 创建临时数组存储重新排序后的数据    ReDim tempF(1 To lastRowB, 1 To 1)    ReDim tempG(1 To lastRowB, 1 To 1)    ' 使用字典建立F列值的快速查找索引    Set dict = CreateObject("Scripting.Dictionary")    For i = 1 To UBound(arrF, 1)        If Not dict.Exists(arrF(i, 1)) Then            dict(arrF(i, 1)) = i ' 存储行索引        End If    Next i    ' 按照B列的顺序重新排列F、G列数据    For i = 1 To UBound(arrB, 1)        found = False        If dict.Exists(arrB(i, 1)) Then            j = dict(arrB(i, 1))            tempF(i, 1) = arrF(j, 1)            tempG(i, 1) = arrG(j, 1)            found = True        End If        ' 如果未找到匹配项，可以留空或标记        If Not found Then            tempF(i, 1) = CVErr(xlErrNA) ' 或 ""            tempG(i, 1) = CVErr(xlErrNA) ' 或 ""        End If    Next i    ' 将重新排序后的数据写回F、G列    ws.Range("F1").Resize(UBound(tempF, 1), 1).Value = tempF    ws.Range("G1").Resize(UBound(tempG, 1), 1).Value = tempG    ' 清理对象    Set dict = Nothing    MsgBox "表格对齐完成！F、G列已按照B列的顺序重新排列。", vbInformationEnd Sub