如何为VBA复制粘贴宏添加单元格条件（P列值为Yes!时执行）

方法一：逐行判断复制（适合数据量较小的场景） #

逐行检查Sheet A中P列的值，仅当值为Yes!时，将对应行的Q-AA列数据复制到Sheet B末尾。

Sub copy_sheetA_to_sheetB()
    Dim wsA As Worksheet, wsB As Worksheet
    Dim lastRowA As Long, lastRowB As Long
    Dim i As Long
    
    ' 定义工作表对象，避免活动表切换导致的错误
    Set wsA = ThisWorkbook.Sheets("Sheet A")
    Set wsB = ThisWorkbook.Sheets("Sheet B")
    
    ' 获取Sheet A中数据的最后一行（以A列为准）
    lastRowA = wsA.Cells(wsA.Rows.Count, "A").End(xlUp).Row
    
    ' 从第2行开始遍历数据行
    For i = 2 To lastRowA
        ' 检查当前行P列的值是否为"Yes!"
        If wsA.Cells(i, "P").Value = "Yes!" Then
            ' 获取Sheet B中目标区域的最后一行
            lastRowB = wsB.Cells(wsB.Rows.Count, "A").End(xlUp).Row + 1
            ' 复制Sheet A当前行Q-AA列的值到Sheet B的对应位置
            wsA.Range("Q" & i & ":AA" & i).Copy
            wsB.Range("A" & lastRowB).PasteSpecial Paste:=xlPasteValues
        End If
    Next i
    
    Application.CutCopyMode = False
End Sub

方法二：使用筛选复制（适合数据量较大的场景） #

利用AutoFilter筛选出P列为Yes!的行，直接复制可见区域的数据，效率更高。

Sub copy_sheetA_to_sheetB_with_filter()
    Dim wsA As Worksheet, wsB As Worksheet
    Dim lastRowA As Long, lastRowB As Long
    Dim copyRng As Range
    
    Set wsA = ThisWorkbook.Sheets("Sheet A")
    Set wsB = ThisWorkbook.Sheets("Sheet B")
    
    ' 取消Sheet A可能存在的筛选状态
    If wsA.AutoFilterMode Then wsA.AutoFilterMode = False
    
    lastRowA = wsA.Cells(wsA.Rows.Count, "A").End(xlUp).Row
    ' 对P列设置筛选条件为"Yes!"
    wsA.Range("P1:P" & lastRowA).AutoFilter Field:=1, Criteria1:="Yes!"
    
    ' 获取筛选后可见的Q-AA列数据区域（跳过表头）
    On Error Resume Next ' 防止没有符合条件的数据时出错
    Set copyRng = wsA.Range("Q2:AA" & lastRowA).SpecialCells(xlCellTypeVisible)
    On Error GoTo 0
    
    If Not copyRng Is Nothing Then
        lastRowB = wsB.Cells(wsB.Rows.Count, "A").End(xlUp).Row + 1
        copyRng.Copy
        wsB.Range("A" & lastRowB).PasteSpecial Paste:=xlPasteValues
    End If
    
    ' 取消筛选
    wsA.AutoFilterMode = False
    Application.CutCopyMode = False
End Sub

关键优化说明 #

• 明确指定工作表对象，避免因活动工作表切换导致的行数获取或操作错误；
• 保留原宏的xlPasteValues设置，仅复制单元格值；
• 方法二加入错误处理，避免无符合条件数据时宏报错；
• 筛选完成后恢复工作表无筛选状态，不影响后续操作。

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