基于筛选行从选项卡中复制数据的宏

以下是一个基于筛选行从选项卡中复制数据的宏的示例代码：

Sub CopyFilteredData()
    Dim sourceSheet As Worksheet
    Dim targetSheet As Worksheet
    
    ' 设置源选项卡和目标选项卡
    Set sourceSheet = ThisWorkbook.Worksheets("源选项卡")
    Set targetSheet = ThisWorkbook.Worksheets("目标选项卡")
    
    ' 清空目标选项卡中的数据
    targetSheet.Cells.Clear
    
    ' 复制源选项卡中的标题行
    sourceSheet.Rows(1).Copy Destination:=targetSheet.Rows(1)
    
    ' 筛选并复制数据
    sourceSheet.UsedRange.AutoFilter Field:=1, Criteria1:="条件1"
    sourceSheet.UsedRange.SpecialCells(xlCellTypeVisible).Copy Destination:=targetSheet.Cells(Rows.Count, 1).End(xlUp).Offset(1)
    
    ' 取消筛选
    sourceSheet.AutoFilterMode = False
    
    ' 提示完成
    MsgBox "数据已复制到目标选项卡。"
End Sub

在上述代码中，你需要根据实际情况修改源选项卡和目标选项卡的名称。代码首先清空目标选项卡中的数据，然后复制源选项卡中的标题行。接下来，使用筛选功能筛选出符合特定条件的行，并将可见单元格的数据复制到目标选项卡中。最后，取消筛选并显示一个消息框提示操作完成。