Microsoft Excel宏扩展需求：实现4组牲畜信息框复用功能

重复代码失败的核心原因是容易出现单元格引用错误，且代码冗余难维护。最优方案是将核心逻辑封装为通用子过程，通过参数区分不同组别，以下是完整实现：

1. 通用子过程（核心逻辑） #

把拉取/清空牲畜信息的逻辑封装成可复用的过程，接收触发单元格、数据起始行、行号存储单元格三个参数：

Private Sub HandleLivestockInfo(ByVal triggerCell As Range, ByVal dataStartRow As Long, ByVal rowStoreCell As Range)
    Dim livestockRow As Long
    
    ' 若触发单元格非空，拉取信息
    If triggerCell.Value <> Empty Then
        ' 检查是否找到对应牲畜
        If rowStoreCell.Value = Empty Then
            If MsgBox("该牲畜未在Livestock_List中，是否添加？", vbYesNo, "牲畜未找到") = vbNo Then Exit Sub
            ' 保留原代码的添加用户窗体调用逻辑
            ' Launch userform to add livestock
        Else
            livestockRow = rowStoreCell.Value
            ' 填充对应区域数据
            Me.Range("L" & dataStartRow & ":M" & dataStartRow).Value = Livestock_List.Range("C" & livestockRow).Value ' DOB
            Me.Range("E" & dataStartRow + 1 & ":I" & dataStartRow + 1).Value = Livestock_List.Range("D" & livestockRow).Value ' 品种
            Me.Range("L" & dataStartRow + 1 & ":M" & dataStartRow + 1).Value = Livestock_List.Range("E" & livestockRow).Value ' EID
            Me.Range("E" & dataStartRow + 2 & ":F" & dataStartRow + 2).Value = Livestock_List.Range("F" & livestockRow).Value ' 是否注册
            Me.Range("I" & dataStartRow + 2).Value = Livestock_List.Range("G" & livestockRow).Value ' 注册机构
            Me.Range("L" & dataStartRow + 2 & ":M" & dataStartRow + 2).Value = Livestock_List.Range("H" & livestockRow).Value ' 注册号
            Me.Range("E" & dataStartRow + 3 & ":I" & dataStartRow + 3).Value = Livestock_List.Range("I" & livestockRow).Value ' 父畜
            Me.Range("L" & dataStartRow + 3 & ":M" & dataStartRow + 3).Value = Livestock_List.Range("J" & livestockRow).Value ' 父畜注册号
            Me.Range("E" & dataStartRow + 4 & ":I" & dataStartRow + 4).Value = Livestock_List.Range("K" & livestockRow).Value ' 母畜
            Me.Range("L" & dataStartRow + 4 & ":M" & dataStartRow + 4).Value = Livestock_List.Range("L" & livestockRow).Value ' 母畜注册号
        End If
    Else
        ' 清空对应区域内容
        Me.Range("L" & dataStartRow & ":M" & dataStartRow).ClearContents ' 清空DOB
        Me.Range("E" & dataStartRow + 1 & ":I" & dataStartRow + 1).ClearContents ' 清空品种
        Me.Range("L" & dataStartRow + 1 & ":M" & dataStartRow + 1).ClearContents ' 清空EID
        Me.Range("E" & dataStartRow + 2 & ":F" & dataStartRow + 2).ClearContents ' 清空是否注册
        Me.Range("I" & dataStartRow + 2).ClearContents ' 清空注册机构
        Me.Range("L" & dataStartRow + 2 & ":M" & dataStartRow + 2).ClearContents ' 清空注册号
        Me.Range("E" & dataStartRow + 3 & ":I" & dataStartRow + 3).ClearContents ' 清空父畜
        Me.Range("L" & dataStartRow + 3 & ":M" & dataStartRow + 3).ClearContents ' 清空父畜注册号
        Me.Range("E" & dataStartRow + 4 & ":I" & dataStartRow + 4).ClearContents ' 清空母畜
        Me.Range("L" & dataStartRow + 4 & ":M" & dataStartRow + 4).ClearContents ' 清空母畜注册号
    End If
End Sub

2. 工作表变更事件（触发逻辑） #

在工作表的Worksheet_Change事件中，判断触发的是哪一组的单元格，调用通用子过程。以下假设4组的对应关系（可根据实际布局修改）：

• 第1组：触发单元格E19，数据起始行19，行号存储单元格B8
• 第2组：触发单元格E25，数据起始行25，行号存储单元格B14
• 第3组：触发单元格E31，数据起始行31，行号存储单元格B20
• 第4组：触发单元格E37，数据起始行37，行号存储单元格B26

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 禁用事件防止循环触发
    Application.EnableEvents = False
    
    ' 处理第1组
    If Not Intersect(Target, Me.Range("E19")) Is Nothing Then
        Call HandleLivestockInfo(Me.Range("E19"), 19, Me.Range("B8"))
    End If
    
    ' 处理第2组
    If Not Intersect(Target, Me.Range("E25")) Is Nothing Then
        Call HandleLivestockInfo(Me.Range("E25"), 25, Me.Range("B14"))
    End If
    
    ' 处理第3组
    If Not Intersect(Target, Me.Range("E31")) Is Nothing Then
        Call HandleLivestockInfo(Me.Range("E31"), 31, Me.Range("B20"))
    End If
    
    ' 处理第4组
    If Not Intersect(Target, Me.Range("E37")) Is Nothing Then
        Call HandleLivestockInfo(Me.Range("E37"), 37, Me.Range("B26"))
    End If
    
    ' 恢复事件
    Application.EnableEvents = True
End Sub

关键说明 #

• 模块化优势：只需维护一份核心逻辑，修改或新增组别时只需添加对应事件调用即可，避免重复代码的错误
• 单元格适配：如果你的4组布局和假设不同，直接修改事件中的单元格地址和通用过程的参数即可
• 事件控制：添加Application.EnableEvents = False防止填充数据时再次触发Worksheet_Change事件，避免循环执行

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