Excel VBA宏问题：将Sheet2/Sheet3缺失值补充至Sheet1列A

原代码的核心问题 #

• 变量类型错误：wb被定义为Worksheet，但实际赋值的是ThisWorkbook（工作簿对象），这会直接导致编译错误。
• 重复值未过滤：处理Sheet3时仅对比原始Sheet1的内容，未包含从Sheet2刚添加的新值，会导致同时存在于Sheet2和Sheet3的值被重复添加。
• 目标行号未更新：从Sheet2复制后，Sheet1的最后一行已变化，但仍使用初始的lastRowSh1计算目标位置，会导致内容覆盖或错位。
• 未处理空单元格：Sheet2/Sheet3的A列若有空值，会被错误添加到Sheet1。

修正后的代码 #

Sub AddMissingValues()
    Dim wb As Workbook
    Dim ws1 As Worksheet, ws2 As Worksheet, ws3 As Worksheet
    Dim lastRow1 As Long, lastRow2 As Long, lastRow3 As Long
    Dim cell As Range
    Dim uniqueValues As New Collection
    
    ' 初始化工作簿和工作表对象
    Set wb = ThisWorkbook
    Set ws1 = wb.Worksheets("Sheet1")
    Set ws2 = wb.Worksheets("Sheet2")
    Set ws3 = wb.Worksheets("Sheet3")
    
    ' 获取各表A列最后一行行号
    lastRow1 = ws1.Range("A" & ws1.Rows.Count).End(xlUp).Row
    lastRow2 = ws2.Range("A" & ws2.Rows.Count).End(xlUp).Row
    lastRow3 = ws3.Range("A" & ws3.Rows.Count).End(xlUp).Row
    
    ' 先将Sheet1已有的值存入集合（避免重复）
    On Error Resume Next
    For Each cell In ws1.Range("A1:A" & lastRow1)
        If cell.Value <> "" Then
            uniqueValues.Add cell.Value, Key:=CStr(cell.Value)
        End If
    Next cell
    On Error GoTo 0
    
    ' 处理Sheet2的缺失值
    For Each cell In ws2.Range("A1:A" & lastRow2)
        If cell.Value <> "" Then
            On Error Resume Next
            uniqueValues.Add cell.Value, Key:=CStr(cell.Value)
            On Error GoTo 0
        End If
    Next cell
    
    ' 处理Sheet3的缺失值
    For Each cell In ws3.Range("A1:A" & lastRow3)
        If cell.Value <> "" Then
            On Error Resume Next
            uniqueValues.Add cell.Value, Key:=CStr(cell.Value)
            On Error GoTo 0
        End If
    Next cell
    
    ' 将集合中的值写入Sheet1底部（跳过已存在的原始值）
    If uniqueValues.Count > lastRow1 Then
        For i = lastRow1 + 1 To uniqueValues.Count
            ws1.Range("A" & i).Value = uniqueValues(i)
        Next i
    End If
End Sub

代码改进说明 #

1. 修正变量类型：将wb改为Workbook类型，匹配赋值的ThisWorkbook对象，解决编译错误。
2. 用集合过滤重复值：利用Collection的Key特性自动去重，同时覆盖Sheet1已存在的值、Sheet2和Sheet3的重复值，确保每个值只保留一次。
3. 统一写入操作：最后一次性将需要添加的值写入Sheet1，避免中途行号变化导致的位置错误。
4. 空值过滤：添加cell.Value <> ""判断，跳过空单元格，避免无效值被添加。

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