Excel VBA VLookup运行时错误'1004'：工作表数据合并问题求助

嘿，我来帮你搞定这个VLookup报错的问题～先梳理下你代码里可能踩的坑，再给你修正后的完整实现：

为啥会弹出1004错误？ #

你的场景里这个错误大概率是这几个原因：

• 空行计算逻辑翻车：你用Offset(-3)来定位Tabelle3的下一个空行，这逻辑太不稳定了——要是Tabelle3最后一行往上数3行本来就有数据，新写入的内容会直接覆盖旧数据，还会让VLookup引用到混乱的区域。
• VLookup参数没搞对：要么是查找值不在目标区域的第一列，要么是区域引用写错了（比如没指定工作表），要么是匹配类型选得不对（比如用近似匹配但区域没排序）。
• 代码没写完就跑：你的循环体只写了开头，单元格引用和VLookup的完整逻辑都缺失，自然容易出问题。

修正后的完整代码 #

下面是调整后的代码，把坑都填上了，还加了错误处理防止崩掉：

Sub ConsolidateData()
    Dim lastrowT5 As Long
    Dim NFR As Long
    Dim i As Long
    Dim lookupValue As Variant
    Dim result As Variant
    
    ' 先拿到Tabelle5最后一行有数据的行号（从A列判断）
    lastrowT5 = Tabelle5.Range("A" & Tabelle5.Rows.Count).End(xlUp).Row
    
    ' 精准定位Tabelle3的下一个空行：找到A列最后一行，再往下挪1行
    ' 替换你原来的Offset(-3)，这个逻辑靠谱多了
    NFR = Tabelle3.Range("A" & Tabelle3.Rows.Count).End(xlUp).Row + 1
    
    ' 从Tabelle5第4行开始循环（和你原来的起始行一致）
    For i = 4 To lastrowT5
        ' 假设你用A列的值做VLookup的查找依据，可根据实际改列号
        lookupValue = Tabelle5.Cells(i, "A").Value
        
        ' 加个错误处理，避免VLookup找不到值直接炸锅
        On Error Resume Next
        ' 示例：从Tabelle3的A:C区域找lookupValue，返回第3列的值，精确匹配
        result = Application.VLookup(lookupValue, Tabelle3.Range("A:C"), 3, False)
        On Error GoTo 0
        
        ' 把Tabelle5的数据写到Tabelle3的空行里
        Tabelle3.Cells(NFR, "A").Value = Tabelle5.Cells(i, "A").Value
        Tabelle3.Cells(NFR, "B").Value = Tabelle5.Cells(i, "B").Value
        ' 要是VLookup有结果就写，没有就留空
        Tabelle3.Cells(NFR, "C").Value = IIf(IsEmpty(result), "", result)
        
        ' 空行号往下挪一位，准备写下一行
        NFR = NFR + 1
    Next i
    
    MsgBox "数据合并搞定啦！", vbInformation
End Sub

关键调整点说明 #

1. 空行计算改靠谱了：去掉容易出错的Offset(-3)，用End(xlUp).Row + 1精准找下一个空行，适配绝大多数常规表格。
2. 加了错误防护：用On Error Resume Next包裹VLookup，就算找不到值也不会直接弹出1004错误，还能通过IsEmpty判断结果是否有效。
3. 明确工作表范围：所有Rows.Count都指定了对应工作表，避免切换工作表时引用出错。
4. 补全了循环逻辑：完整实现了从读数据、查数据到写数据的流程，你可以根据自己的列对应关系调整代码里的列号。

要是还报错怎么办？ #

可以按这几步排查：

• 先在Excel单元格里手动写VLookup公式测试，看能不能得到结果，再对应到代码里调整参数。
• 检查VLookup的查找区域第一列是不是真的包含你要找的值。
• 确认查找区域的引用范围对不对（比如是不是应该选Tabelle5.Range("A:D")而不是A:C）。

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