宏将单元格从一列复制到剪贴板，如果另一列等于值

Sub CopyCellsToClipboard()
    Dim sourceRange As Range
    Dim targetRange As Range
    Dim cell As Range
    
    ' 设置源列和目标列的范围
    Set sourceRange = Range("A1:A10") ' 源列的范围
    Set targetRange = Range("B1:B10") ' 目标列的范围
    
    ' 清空剪贴板
    Application.CutCopyMode = False
    
    ' 循环遍历源列的每个单元格
    For Each cell In sourceRange
        ' 判断目标列对应位置的单元格是否等于指定值
        If cell.Offset(0, 1).Value = "值" Then ' 这里的"值"是指要比较的值
            ' 将满足条件的单元格的值复制到剪贴板
            cell.Copy
            ' 将剪贴板中的内容粘贴到目标列对应位置的单元格
            cell.Offset(0, 1).PasteSpecial Paste:=xlPasteValues
        End If
    Next cell
    
    ' 清空剪贴板
    Application.CutCopyMode = False
End Sub