Excel VBA根据列中的条件复制并粘贴多个区域，而不使用合并的单元格

Sub CopyPasteMultipleRanges()
    Dim sourceRange As Range
    Dim targetRange As Range
    Dim cell As Range
    
    ' 设置源区域
    Set sourceRange = Range("A1:A10")
    
    ' 设置目标区域
    Set targetRange = Range("B1")
    
    ' 循环遍历源区域中的每个单元格
    For Each cell In sourceRange
        ' 判断单元格的值是否满足条件
        If cell.Value = "条件" Then
            ' 复制源区域中的单元格
            cell.Copy
            
            ' 粘贴到目标区域
            targetRange.PasteSpecial xlPasteValues
            
            ' 更新目标区域
            Set targetRange = targetRange.Offset(1)
        End If
    Next cell
End Sub