Excel VBA 如何按条件将Invoice工作表内容复制到Customer工作表

• 替换原代码中写死的客户行匹配逻辑，通过Find方法在Customer工作表的客户姓名列（你现有逻辑是B列存客户名）全局搜索和Invoice工作表A11单元格输入的姓名完全匹配的行
• 匹配到对应客户行后，再将Invoice表A12:A15的修改内容同步到Customer表对应行的指定列即可
• 增加事件开关和异常处理逻辑，避免修改单元格时重复触发Change事件导致死循环，同时确保异常场景下Excel事件能正常恢复

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim sh1 As Worksheet, sh4 As Worksheet
    Dim findRng As Range
    Dim custName As String
    
    ' 关闭事件触发，避免修改内容时重复触发当前事件
    Application.EnableEvents = False
    ' 错误捕获，确保出错时重新开启事件
    On Error GoTo ErrHandler
    
    Set sh1 = ThisWorkbook.Sheets("Customer")
    Set sh4 = ThisWorkbook.Sheets("Invoice") ' 此处也可以直接用Me指代当前Invoice工作表
    
    ' 仅监听A12:A15范围的修改
    If Not Intersect(Target, sh4.Range("A12:A15")) Is Nothing Then
        custName = sh4.Range("A11").Value
        ' 客户姓名为空直接退出
        If custName = "" Then GoTo ErrHandler
        
        ' 在Customer表B列（客户姓名列）完全匹配查找对应客户行
        Set findRng = sh1.Range("B:B").Find(What:=custName, LookAt:=xlWhole, MatchCase:=False)
        
        ' 找到匹配客户再执行同步
        If Not findRng Is Nothing Then
            ' 可根据你的实际字段对应关系修改下方赋值逻辑
            sh1.Range("F" & findRng.Row).Value = sh4.Range("A12").Value
            sh1.Range("G" & findRng.Row).Value = sh4.Range("A13").Value
            ' 如果需要同步A14、A15，继续加对应赋值即可，示例：
            ' sh1.Range("H" & findRng.Row).Value = sh4.Range("A14").Value
            ' sh1.Range("I" & findRng.Row).Value = sh4.Range("A15").Value
        Else
            MsgBox "未在客户表中找到匹配的客户信息，同步失败", vbExclamation
        End If
    End If
    
ErrHandler:
    ' 恢复事件触发
    Application.EnableEvents = True
End Sub

• 如果你的Customer表中客户姓名不是存储在B列，自行修改Find方法的搜索范围sh1.Range("B:B")为对应列即可
• 字段的列映射关系可根据你的实际表结构调整，只需保证Invoice表的单元格和Customer表对应列匹配即可
• LookAt:=xlWhole表示完全匹配客户姓名，避免出现姓名部分重合导致的匹配错误，不需要可删除该参数

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