嘿，我刚看完你的代码，一眼就揪出了问题根源——错误的单元格偏移方向直接导致了1004错误！让我给你一步步拆解和修正：

错误核心原因 #

你的代码里写了cell.Offset(0, -6)和cell.Offset(0, -7)，但cell是Sheet1（Live Contracts）A列的单元格啊！A列是Excel的第1列，向左偏移6列就到了第1-6=-5列，这完全超出了Excel的列范围，系统当然会抛出错误。

你的需求是用A列的合同编号作为VLOOKUP的查找值，所以根本不需要向左偏移，直接用cell.Value或者cell本身就可以了。

修正后的完整代码 #

Option Explicit ' 强制声明变量，避免拼写错误这类低级问题

Sub UpdateContractDetails()
    Worksheets("Live Contracts").Unprotect ' 保留解除保护代码，以防后续需要
    
    Dim rng As Range
    Dim lastrow As Long
    Dim cell As Range
    Dim contractrange As Range
    
    ' 找到Sheet1中A列的最后一行有效数据
    lastrow = Worksheets("Live Contracts").Range("A" & Rows.Count).End(xlUp).Row
    ' 定义Sheet4的全量合同查找范围
    Set contractrange = Worksheets("Contract Sums").Range("A3:C676")
    ' 定义需要遍历的A列范围（从A2开始，跳过表头）
    Set rng = Worksheets("Live Contracts").Range("A2:A" & lastrow)
    
    For Each cell In rng
        ' 只处理非空的合同编号单元格
        If cell.Value <> "" Then
            ' G列：用当前A列的合同编号，在Sheet4中精确匹配合同编号（返回第1列的值）
            cell.Offset(0, 6).Value = Application.VLookup(cell.Value, contractrange, 1, False)
            
            ' H列：用当前A列的合同编号，在Sheet4中精确匹配并返回合同金额（第3列的值）
            cell.Offset(0, 7).Value = Application.VLookup(cell.Value, contractrange, 3, False)
        End If
    Next cell
    
    ' 如果你的工作表平时需要保护，可以取消下面这行的注释
    ' Worksheets("Live Contracts").Protect
End Sub

关键修改说明 #

1. 移除错误的负数偏移：把cell.Offset(0, -6)改成cell.Value，直接用A列的合同编号作为查找值，这是解决1004错误的核心。
2. 添加Option Explicit：这是VBA的好习惯，强制你声明所有变量，能帮你避免很多因为拼写错误导致的奇怪问题。
3. 优化代码格式：调整了缩进和注释，让代码结构更清晰，新手更容易跟着理解。

额外小提示 #

如果VLOOKUP找不到匹配的合同编号，单元格会显示#N/A，你可以用Application.IfError来美化提示，比如：

cell.Offset(0, 6).Value = Application.IfError(Application.VLookup(cell.Value, contractrange, 1, False), "无匹配合同")
cell.Offset(0, 7).Value = Application.IfError(Application.VLookup(cell.Value, contractrange, 3, False), "无匹配金额")

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