特定单元格变更时的数据捕获问题求助

我明白你的问题了——你的宏现在不管是B5还是C5变更，都会把两列的数据同步过去，这显然不是你要的精准触发效果。咱们可以通过在Worksheet_Change事件里精准判断触发变更的单元格来解决这个问题。

修正后的VBA代码 #

打开VBA编辑器（按下Alt+F11），找到你要监控的工作表（比如Sheet1，不是ThisWorkbook），粘贴以下代码：

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 禁用事件，防止后续写入操作触发循环执行
    Application.EnableEvents = False
    
    ' 出错时确保重新启用事件，避免后续功能异常
    On Error GoTo Cleanup
    
    ' 判断是否是B5单元格发生变更
    If Not Intersect(Target, Me.Range("B5")) Is Nothing Then
        ' 找到Sheet2中A列的第一个空行（追加数据用）
        Dim lastRowA As Long
        lastRowA = Sheet2.Cells(Sheet2.Rows.Count, "A").End(xlUp).Row + 1
        
        ' 将B3、B4的数据写入Sheet2的A、B列对应行
        Sheet2.Cells(lastRowA, "A").Value = Me.Range("B3").Value
        Sheet2.Cells(lastRowA, "B").Value = Me.Range("B4").Value
    End If
    
    ' 判断是否是C5单元格发生变更
    If Not Intersect(Target, Me.Range("C5")) Is Nothing Then
        ' 找到Sheet2中C列的第一个空行（追加数据用）
        Dim lastRowC As Long
        lastRowC = Sheet2.Cells(Sheet2.Rows.Count, "C").End(xlUp).Row + 1
        
        ' 将C3、C4的数据写入Sheet2的C、D列对应行
        Sheet2.Cells(lastRowC, "C").Value = Me.Range("C3").Value
        Sheet2.Cells(lastRowC, "D").Value = Me.Range("C4").Value
    End If

Cleanup:
    ' 重新启用事件，恢复Excel的正常事件响应
    Application.EnableEvents = True
    ' 如果有错误，抛出错误提示（方便排查问题）
    If Err.Number <> 0 Then Err.Raise Err.Number
End Sub

关键逻辑说明 #

• 精准触发判断：用Intersect(Target, Me.Range("B5"))检查触发变更的单元格是否包含B5，只有当B5变更时才执行B列数据的捕获；同理C5的判断逻辑独立，互不干扰。
• 防止循环触发：Application.EnableEvents = False是必须的——如果不加，当我们往Sheet2写入数据时，可能会再次触发Worksheet_Change事件，导致宏无限循环执行。
• 追加数据而非覆盖：通过End(xlUp).Row + 1计算对应列的下一个空行，每次变更的数据都会追加在已有数据的下方，不会覆盖之前的记录。

注意事项 #

• 代码必须放在目标工作表的模块中（比如你监控B5/C5的那个Sheet），不能放在标准模块或ThisWorkbook里，否则Me无法正确指代监控的工作表。
• 如果B5/C5是通过公式计算自动变更的，Worksheet_Change事件不会触发，这时需要改用Worksheet_Calculate事件，逻辑类似但需要额外判断单元格值是否真的发生了变化（避免重复触发）。

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