Excel VBA条件VLookup：避免空值覆盖已有数据

我太懂这个困扰了——用VLookup逻辑做数据匹配复制时，目标表的已有数据被源表的空单元格覆盖，真的很头疼。咱们直接修改代码，核心思路就是给复制操作加个「非空判断」，只有源单元格有有效内容时才执行写入，完全保留目标表原有的数据。

修改后的完整代码 #

Sub MatchAndCopyWithoutOverwrite()
    Dim wsSource As Worksheet
    Dim wsTarget As Worksheet
    Dim matchRow As Variant
    Dim i As Integer
    Dim targetRow As Integer
    Dim copyColumns As Variant
    Dim col As Variant
    
    ' 设置工作表对象
    Set wsSource = ThisWorkbook.Worksheets("Tabelle5")
    Set wsTarget = ThisWorkbook.Worksheets("Tabelle3")
    
    ' 定义需要复制的列（这里用列号，比如B=2，D=4，可根据需求调整）
    copyColumns = Array(2, 4) ' 对应例子中的B列和D列
    
    ' 遍历Tabelle3中需要匹配的行（从第8行开始，对应7+i的起始）
    For i = 0 To 10 ' 这里的循环范围可根据实际数据行数调整
        targetRow = 7 + i
        ' 用VLookup查找识别号的匹配行
        matchRow = Application.VLookup(wsTarget.Cells(targetRow, 1).Value, _
                                      wsSource.Range("A:A"), 1, False)
        
        ' 如果找到匹配项
        If Not IsError(matchRow) Then
            ' 获取匹配行的行号
            matchRow = wsSource.Range("A:A").Find(wsTarget.Cells(targetRow, 1).Value).Row
            
            ' 遍历需要复制的列
            For Each col In copyColumns
                ' 关键判断：只有源单元格非空时才复制
                If wsSource.Cells(matchRow, col).Value <> "" Then
                    wsTarget.Cells(targetRow, col).Value = wsSource.Cells(matchRow, col).Value
                End If
            Next col
        End If
    Next i
End Sub

关键修改点说明 #

• 非空判断逻辑：在复制前增加If wsSource.Cells(matchRow, col).Value <> "" Then，确保只有源单元格有内容时才执行写入，彻底避免空值覆盖。
• 灵活指定复制列：用copyColumns数组定义需要同步的列，比如你例子中的B列（2）和D列（4），后续要加其他列直接修改数组即可。
• 匹配行的准确获取：用Find方法替代单纯的VLookup返回值，确保能拿到准确的匹配行行号，避免VLookup返回值本身是数据而非行号的问题。

对应你的示例场景 #

当Tabelle3第12行（对应i=5，7+5=12）的识别号匹配到Tabelle5第29行时：

• Tabelle5的B29非空 → 复制到Tabelle3的B12
• Tabelle5的C29为空 → 跳过，Tabelle3的C12原有数据保留
• Tabelle5的D29非空 → 复制到Tabelle3的D12

完美实现你要的「只复制有效数据，不覆盖原有内容」的需求。

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