VBA在其他文件中的条件后复制

Sub CopyDataBasedOnCondition()
    Dim sourceWorkbook As Workbook
    Dim targetWorkbook As Workbook
    Dim sourceWorksheet As Worksheet
    Dim targetWorksheet As Worksheet
    Dim sourceRange As Range
    Dim targetRange As Range
    Dim condition As String
    
    ' 打开源文件和目标文件
    Set sourceWorkbook = Workbooks.Open("源文件路径")
    Set targetWorkbook = Workbooks.Open("目标文件路径")
    
    ' 定义条件
    condition = "条件内容"
    
    ' 获取源文件和目标文件的工作表
    Set sourceWorksheet = sourceWorkbook.Worksheets("源工作表名称")
    Set targetWorksheet = targetWorkbook.Worksheets("目标工作表名称")
    
    ' 选择要复制的源范围
    Set sourceRange = sourceWorksheet.Range("源范围")
    
    ' 选择要粘贴的目标范围
    Set targetRange = targetWorksheet.Range("目标范围")
    
    ' 复制满足条件的内容
    For Each cell In sourceRange
        If cell.Value = condition Then
            cell.Copy targetRange
            Set targetRange = targetRange.Offset(1) ' 每次复制后向下移动一行
        End If
    Next cell
    
    ' 保存目标文件
    targetWorkbook.Save
    
    ' 关闭文件
    sourceWorkbook.Close
    targetWorkbook.Close
End Sub