分割动态列表vba

Sub SplitDynamicList()
    Dim sourceList As Range
    Dim targetList1 As Range
    Dim targetList2 As Range
    Dim cell As Range
    
    ' 设置源列表范围
    Set sourceList = Range("A1:A10")
    
    ' 设置目标列表1的起始单元格
    Set targetList1 = Range("C1")
    
    ' 设置目标列表2的起始单元格
    Set targetList2 = Range("E1")
    
    ' 遍历源列表
    For Each cell In sourceList
        ' 根据条件将单元格的值分配到不同的目标列表
        If cell.Value > 5 Then
            targetList1.Value = cell.Value
            Set targetList1 = targetList1.Offset(1, 0)
        Else
            targetList2.Value = cell.Value
            Set targetList2 = targetList2.Offset(1, 0)
        End If
    Next cell
End Sub