VBA:根据单元格值将worksheet1中的单元格复制到worksheet2

Sub CopyCellsByValue()
    Dim ws1 As Worksheet
    Dim ws2 As Worksheet
    Dim cell As Range
    Dim copyRange As Range
    
    ' 设置要操作的工作表
    Set ws1 = ThisWorkbook.Worksheets("worksheet1")
    Set ws2 = ThisWorkbook.Worksheets("worksheet2")
    
    ' 清空worksheet2中的内容
    ws2.Cells.Clear
    
    ' 遍历worksheet1中的每个单元格
    For Each cell In ws1.UsedRange
        ' 判断单元格的值是否符合条件
        If cell.Value = "条件值" Then
            ' 将符合条件的单元格添加到复制范围
            If copyRange Is Nothing Then
                Set copyRange = cell
            Else
                Set copyRange = Union(copyRange, cell)
            End If
        End If
    Next cell
    
    ' 将复制范围的内容复制到worksheet2中
    If Not copyRange Is Nothing Then
        copyRange.Copy ws2.Cells(1, 1)
    End If
    
    ' 清除剪贴板中的内容
    Application.CutCopyMode = False
    
    ' 释放对象
    Set ws1 = Nothing
    Set ws2 = Nothing
    Set cell = Nothing
    Set copyRange = Nothing
End Sub