使用VBA跨工作表检查并粘贴数据的需求实现

针对你提到的Example Data和Dashboard工作表需求，结合B列存在合并单元格的情况，提供两种可自动更新的规整实现方案：

方案一：Power Query（推荐，无代码、支持自动刷新） #

• 打开Example Data工作表，选中任意数据单元格，点击数据选项卡 → 从表格/区域（确认勾选「我的表格有标题」）
• 在Power Query编辑器中处理合并单元格：选中B列，点击转换 → 填充 → 向下，将合并单元格的内容填充至所有子行
• 添加筛选条件列：点击添加列 → 条件列，设置规则：
  • 条件：[你的A列标题] 等于 "N" 或 [你的B列标题] 等于 "N"
  • 满足时输出「保留」，否则输出「排除」
• 筛选有效行：点击条件列的筛选按钮，仅保留标记为「保留」的行
• 清理无关列：选中A、B列和条件列，右键选择删除列，仅保留C、D列
• 匹配目标列名：将C列重命名为Dashboard A列，D列重命名为Dashboard B列（对应目标工作表的列）
• 加载数据到Dashboard：点击主页 → 关闭并上载至，选择Dashboard工作表的A1单元格，勾选「仅创建连接」；随后在数据选项卡的连接面板中，找到该连接并设置属性：勾选「打开文件时刷新数据」和「允许后台刷新」
• 手动触发刷新：需要即时更新时，在Dashboard点击数据 → 全部刷新，或按快捷键Ctrl+Alt+F5

方案二：VBA（实时触发更新） #

• 按Alt+F11打开VBA编辑器，在左侧工程资源管理器中双击Example Data工作表，打开其代码窗口
• 粘贴以下代码（注意替换注释中的标题行判断，若源数据无标题则修改循环起始行）：

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 仅监听A列的变更事件
    If Not Intersect(Target, Me.Range("A:A")) Is Nothing Then
        Dim wsSrc As Worksheet, wsDest As Worksheet
        Dim lastRowSrc As Long, lastRowDest As Long
        Dim i As Long, bVal As String
        
        Set wsSrc = ThisWorkbook.Worksheets("Example Data")
        Set wsDest = ThisWorkbook.Worksheets("Dashboard")
        
        ' 清空Dashboard旧数据（假设第1行是标题，从第2行开始清空）
        wsDest.Range("A2:B" & wsDest.Cells(wsDest.Rows.Count, "A").End(xlUp).Row).ClearContents
        
        lastRowSrc = wsSrc.Cells(wsSrc.Rows.Count, "A").End(xlUp).Row
        
        ' 遍历源数据行（若源数据无标题，将i=2改为i=1）
        For i = 2 To lastRowSrc
            ' 获取B列合并单元格的实际值
            bVal = wsSrc.Range("B" & i).MergeArea.Cells(1, 1).Value
            
            ' 判断条件：A列或B列为"N"
            If wsSrc.Range("A" & i).Value = "N" Or bVal = "N" Then
                lastRowDest = wsDest.Cells(wsDest.Rows.Count, "A").End(xlUp).Row + 1
                ' 写入Dashboard对应列
                wsDest.Range("A" & lastRowDest) = wsSrc.Range("C" & i).Value
                wsDest.Range("B" & lastRowDest) = wsSrc.Range("D" & i).Value
            End If
        Next i
    End If
End Sub

• 将工作簿保存为.xlsm格式（必须启用宏），此后修改Example Data的A列内容时，Dashboard会自动同步更新

关键提示 #

• Power Query方案无需启用宏，适合对代码陌生的用户；若B列合并结构变更，需重新进入编辑器刷新填充步骤
• VBA方案需确保宏已启用，否则无法触发自动更新；可根据实际数据是否有标题调整循环起始行

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