如何编写VBA实现相同F列ID对应G列ID的空白填充？

嘿，我完全get到你的需求了——你要让Excel自动处理F列（ID）和G列（ID2）：当F列里出现相同的ID时，把G列中对应的空白单元格填上该ID对应的已存在的ID2值，而且还得灵活处理，不能无脑照搬上方的ID2（毕竟有些场景下不能用上面的值）。

我基于你提到的Stack Overflow思路，调整出了适配你需求的VBA代码，直接能用：

Sub FindingtheBID()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim cell As Range
    Dim idDict As Object
    Dim currentID As String
    Dim currentID2 As String
    
    ' 设置要处理的工作表，这里假设是当前激活的工作表，你可以改成具体表名比如Sheet1
    Set ws = ActiveSheet
    ' 获取F列最后一行有数据的行号
    lastRow = ws.Cells(ws.Rows.Count, "F").End(xlUp).Row
    ' 创建字典对象，用来存储ID和对应的ID2
    Set idDict = CreateObject("Scripting.Dictionary")
    
    ' 遍历F列从第2行开始的数据（假设第1行是表头）
    For Each cell In ws.Range("F2:F" & lastRow)
        currentID = cell.Value
        currentID2 = cell.Offset(0, 1).Value ' 获取对应的G列值
        
        If currentID <> "" Then ' 只处理有ID的行
            ' 如果G列当前单元格是空的，且字典里有这个ID的记录，就填充
            If currentID2 = "" And idDict.Exists(currentID) Then
                cell.Offset(0, 1).Value = idDict(currentID)
            ElseIf currentID2 <> "" Then
                ' 如果G列有值，就更新字典里的记录（确保后续空白用最新的正确ID2）
                idDict(currentID) = currentID2
            End If
        End If
    Next cell
    
    ' 释放对象
    Set idDict = Nothing
    Set ws = Nothing
    
    MsgBox "空白ID2填充完成！", vbInformation
End Sub

代码关键点说明： #

• 字典存储：用字典来记录每个ID对应的有效ID2值，不管同ID的行是连续还是分散的，都能快速查找对应值
• 灵活填充：只有当G列空白且字典里有该ID的记录时才填充；如果G列有值，就更新字典，这样后面的同ID空白会用最新出现的有效ID2，完美适配你说的“部分场景不使用上方ID值”的需求
• 范围精准：自动识别F列最后一行数据，避免处理空行，提升效率

使用的时候，直接按Alt+F11打开VBA编辑器，插入模块把代码粘进去，运行就行啦。

内容的提问来源于stack exchange，提问作者George H