Excel VBA技术需求：自动同步指定条件行至另一工作表并实现更新覆盖

看起来你遇到的核心问题是自动触发同步、覆盖旧数据而非追加，还有原代码的语法错误导致功能异常。我来帮你梳理出完整的解决方案，完全贴合你的需求：

需求回顾（确认我没理解错）： #

• 源表：名为Capacity，数据范围是第4行到第92行
• 触发条件：每当保存文件时，自动同步K列值>0的整行到Sheet1
• 关键要求：Sheet1每次同步前清空旧数据，只保留最新符合条件的行，且仅粘贴值（避免格式干扰，同时保证原表修改后下次同步能更新）

问题根源分析 #

你之前的代码有几个语法错误（比如WithSheets少了空格、PasteSpecial写法不规范），而且没有做清空旧数据的操作，所以会出现追加重复的情况，也没有绑定自动触发的事件。

完整解决方案代码 #

第一步：绑定保存触发事件（ThisWorkbook模块）

这个代码会让同步操作在你保存文件时自动执行：
打开Excel后按Alt+F11打开VBA编辑器，在左侧窗口双击ThisWorkbook，粘贴以下代码：

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    ' 调用同步过程，保存时自动执行
    SyncCapacityToSheet1
End Sub

第二步：同步核心逻辑（标准模块）

右键左侧项目窗口，选择「插入」→「模块」，粘贴以下代码：

Sub SyncCapacityToSheet1()
    Dim wsSource As Worksheet
    Dim wsTarget As Worksheet
    Dim srcRow As Long
    Dim targetRow As Long
    
    ' 定义源表和目标表
    Set wsSource = ThisWorkbook.Worksheets("Capacity")
    Set wsTarget = ThisWorkbook.Worksheets("Sheet1")
    
    ' 清空目标表旧数据：如果Sheet1有固定表头，把这句改成 wsTarget.Rows("2:" & wsTarget.Rows.Count).ClearContents
    wsTarget.Cells.ClearContents
    
    ' 初始化目标表的起始行（如果有表头，改成2）
    targetRow = 1
    
    ' 遍历源表指定行范围（4到92行）
    For srcRow = 4 To 92
        ' 检查K列（第11列）的值是否大于0
        If wsSource.Cells(srcRow, 11).Value > 0 Then
            ' 复制整行的值到目标表
            wsSource.Rows(srcRow).Copy
            wsTarget.Rows(targetRow).PasteSpecial Paste:=xlPasteValues
            ' 目标行下移，准备下一行数据
            targetRow = targetRow + 1
        End If
    Next srcRow
    
    ' 清除剪贴板，避免Excel一直显示复制状态
    Application.CutCopyMode = False
    
    ' 可选：同步完成提示，不需要可以删掉
    MsgBox "同步完成！Sheet1已更新为最新符合条件的数据。", vbInformation
End Sub

关键细节说明 #

1. 自动触发：通过Workbook_BeforeSave事件，每次保存文件时自动执行同步，完全不需要手动运行宏
2. 覆盖旧数据：每次同步前先清空Sheet1的内容（如果有表头，记得修改清空的行范围，保留表头）
3. 仅粘贴值：使用xlPasteValues确保只复制单元格内容，避免格式冲突，同时原表数据修改后，下次同步会自动更新到Sheet1
4. 指定行范围：严格遍历第4到92行，符合你的表结构要求

使用注意事项 #

• 保存文件时，要选择启用宏的格式（.xlsm 或 .xlsb），否则宏会丢失
• 如果Sheet1有固定表头，记得把代码里的清空行和起始行改成对应位置（比如表头在第1行，就从第2行开始写入数据）

备注：内容来源于stack exchange，提问作者Chalon