求助：实现Excel每周自动同步Workbook1的L15值至Workbook2的C列

代码说明 #

因为L15是公式计算的结果，原Worksheet_Change事件只响应手动单元格修改，所以改用Worksheet_Calculate事件监听公式计算后的数值变化，确保每次L15刷新时自动同步数据。

完整代码 #

将以下代码粘贴到Workbook1中包含L15单元格的工作表模块里（右键工作表标签→查看代码，粘贴进去）：

Private Sub Worksheet_Calculate()
    Dim wb1 As Workbook
    Dim ws1 As Worksheet
    Dim wb2 As Workbook
    Dim ws2 As Worksheet
    Dim targetRow As Long
    Dim wb2Path As String
    
    ' 设置Workbook2的完整路径，改成你实际的文件路径
    wb2Path = "C:\你的文件夹路径\Workbook2.xlsx"
    
    Set wb1 = ThisWorkbook
    Set ws1 = wb1.Worksheets("你的工作表名称") ' 改成包含L15的工作表名
    
    ' 处理Workbook2是否已打开的情况
    On Error Resume Next
    Set wb2 = Workbooks(Dir(wb2Path))
    On Error GoTo 0
    
    ' 如果没打开，就打开它
    If wb2 Is Nothing Then
        Set wb2 = Workbooks.Open(wb2Path)
    End If
    
    Set ws2 = wb2.Worksheets("你的目标工作表名称") ' 改成Workbook2中要写入数据的工作表名
    
    ' 找到C列从第175行开始的第一个空行
    targetRow = ws2.Cells(ws2.Rows.Count, "C").End(xlUp).Row
    If targetRow < 175 Then
        targetRow = 175
    Else
        targetRow = targetRow + 1
    End If
    
    ' 同步L15的值到目标单元格
    ws2.Cells(targetRow, "C").Value = ws1.Range("L15").Value
    
    ' 保存Workbook2（可选，根据需求决定是否自动保存）
    wb2.Save
    
    ' 关闭Workbook2（可选，如果不需要保持打开可以启用）
    ' wb2.Close SaveChanges:=True
End Sub

关键修改点说明 #

• 触发事件替换：用Worksheet_Calculate替代原Worksheet_Change，确保公式计算后的值变化能触发同步。
• 目标行定位：优先从C175开始，若C175及以下已有数据，则自动定位到下一个空行，符合每周追加的需求。
• 文件路径处理：增加了Workbook2未打开时的自动打开逻辑，避免因文件未打开导致的错误。

使用注意事项 #

1. 把代码中的C:\你的文件夹路径\Workbook2.xlsx改成你实际的Workbook2文件路径。
2. 替换你的工作表名称和你的目标工作表名称为对应的工作表真实名称。
3. 若不需要自动保存Workbook2，可删除wb2.Save这一行；若需要同步后自动关闭文件，取消wb2.Close SaveChanges:=True的注释。

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