基于唯一ID查找并替换Excel整行数据的VBA实现需求

需求：将「Temp」工作表第2行的整行数据，替换「QuestLog」工作表A列中对应唯一ID所在的整行内容。

当前编写的VBA代码：

Sub UpdateQuest()
    
    Dim SrchSht As Worksheet
    Dim SearchValue, OutPlace
    Set SrchSht = Sheets("QuestLog")
    SearchValue = Sheets("Temp2").Range("A2").Value
    Set c = SrchSht.Range("A:A").Find(what:=SearchValue, LookIn:=xlValues)
      
    If Not c Is Nothing Then
        c.Value = Sheets("Temp2").Range("A2").Value
        c.Offset(0, 1) = Sheets("Temp2").Range("B2")
        c.Offset(0, 2) = Sheets("Temp2").Range("C2")
        c.Offset(0, 3) = Sheets("Temp2").Range("D2")
        c.Offset(0, 4) = Sheets("Temp2").Range("E2")
        c.Offset(0, 5) = Sheets("Temp2").Range("F2")
        c.Offset(0, 6) = Sheets("Temp2").Range("G2")
    Else
        MsgBox "Quest ID not found"
    End If
      
End Sub

优化后的代码 #

原代码存在逐个单元格赋值效率低、仅处理到G列、工作表名称与需求不符（需求为Temp，代码用了Temp2）等问题，优化后代码如下：

Sub UpdateQuest()
    Dim srchSht As Worksheet
    Dim tempSht As Worksheet
    Dim searchValue As Variant
    Dim foundCell As Range
    
    ' 绑定目标工作表
    Set srchSht = ThisWorkbook.Sheets("QuestLog")
    Set tempSht = ThisWorkbook.Sheets("Temp") ' 修正为需求指定的工作表
    
    ' 获取匹配用的唯一ID
    searchValue = tempSht.Range("A2").Value
    
    ' 精确查找ID（避免部分匹配）
    Set foundCell = srchSht.Range("A:A").Find( _
        What:=searchValue, _
        LookIn:=xlValues, _
        LookAt:=xlWhole _
    )
    
    If Not foundCell Is Nothing Then
        ' 整行复制替换，无需逐个单元格赋值
        tempSht.Rows(2).Copy Destination:=srchSht.Rows(foundCell.Row)
    Else
        MsgBox "Quest ID not found"
    End If
End Sub

优化说明 #

• 用Rows(2).Copy整行复制替代逐个单元格赋值，代码更简洁高效，且支持所有列的替换
• 添加LookAt:=xlWhole实现ID精确匹配，避免因部分匹配导致的错误替换
• 修正工作表名称为需求指定的「Temp」
• 变量命名更清晰，代码结构更易读

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