Excel VBA从一个工作表向另一个工作表复制和粘贴具有特定值的单元格

Sub CopyPasteCells()
    Dim sourceSheet As Worksheet
    Dim targetSheet As Worksheet
    Dim sourceRange As Range
    Dim targetRange As Range
    Dim cell As Range
    
    ' 设置源工作表和目标工作表
    Set sourceSheet = ThisWorkbook.Worksheets("源工作表名称")
    Set targetSheet = ThisWorkbook.Worksheets("目标工作表名称")
    
    ' 设置源单元格区域
    Set sourceRange = sourceSheet.Range("A1:A10") ' 假设要复制的单元格范围是A1到A10
    
    ' 设置目标单元格区域
    Set targetRange = targetSheet.Range("B1:B10") ' 假设要粘贴的单元格范围是B1到B10
    
    ' 循环遍历源单元格区域
    For Each cell In sourceRange
        ' 检查单元格的值是否符合条件
        If cell.Value = "特定值" Then
            ' 复制单元格的值到目标单元格
            cell.Copy targetRange.Cells(cell.Row, 1) ' 这里假设目标单元格的列偏移量为1
        End If
    Next cell
End Sub