如何用VBA实现双条件满足时自动动态复制指定列到另一工作表

完全可以用VBA的If...And逻辑实现你的需求，而且通过工作表事件能做到动态触发——只要Sheet1的C列（班级）或D列（是否毕业）内容发生变化，就自动检查并执行复制操作。

实现代码 #

打开Excel，右键点击Sheet1的底部标签，选择「查看代码」，在弹出的VBA编辑器中粘贴以下代码：

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim wsSource As Worksheet
    Dim wsDest As Worksheet
    Dim lastRowSource As Long
    Dim lastRowDest As Long
    Dim i As Long
    
    ' 指定源表和目标表
    Set wsSource = ThisWorkbook.Sheets("Sheet1")
    Set wsDest = ThisWorkbook.Sheets("Sheet2")
    
    ' 仅监控C、D列的变化，避免无意义触发
    If Intersect(Target, wsSource.Range("C:D")) Is Nothing Then Exit Sub
    
    ' 清空Sheet2原有数据（需保留历史数据可删除此行）
    wsDest.Range("A:C").ClearContents
    
    ' 获取Sheet1最后一行的行号
    lastRowSource = wsSource.Cells(wsSource.Rows.Count, "A").End(xlUp).Row
    
    ' 遍历Sheet1数据行（从第2行开始跳过表头）
    For i = 2 To lastRowSource
        ' 核心AND逻辑：判断C、D列单元格均不为空
        If Not IsEmpty(wsSource.Cells(i, "C")) And Not IsEmpty(wsSource.Cells(i, "D")) Then
            ' 获取Sheet2的最后一行，用于粘贴新数据
            lastRowDest = wsDest.Cells(wsDest.Rows.Count, "A").End(xlUp).Row
            ' 首次粘贴从第2行开始，后续从下一行追加
            If lastRowDest = 1 Then lastRowDest = 2 Else lastRowDest = lastRowDest + 1
            
            ' 复制指定列到Sheet2对应位置
            wsDest.Cells(lastRowDest, "A").Value = wsSource.Cells(i, "A").Value
            wsDest.Cells(lastRowDest, "B").Value = wsSource.Cells(i, "B").Value
            wsDest.Cells(lastRowDest, "C").Value = wsSource.Cells(i, "E").Value
        End If
    Next i
End Sub

代码说明 #

• Worksheet_Change事件：Sheet1单元格内容变化时自动触发，通过Intersect限定只监控C、D列，减少不必要的计算。
• If Not IsEmpty(...) And Not IsEmpty(...)：实现你需要的双条件判断，只有C、D列都有值才执行复制。
• 动态更新：每次触发时会同步更新Sheet2的结果，确保数据始终是最新的。

示例效果 #

根据你提供的测试数据，只有Ariana和Harry的行符合条件（C、D列均有值），执行后Sheet2的内容会是：

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