VBA-从范围过滤多个数据并复制到多张纸上

时间:2020-08-17 14:48:19

标签: excel vba

希望有人可以提供帮助,因为我有点被卡住了!

我有一些支持数据,我正在尝试按范围中的名称进行过滤,然后将每个过滤后的数据实例复制到与该范围相同的其他工作表中-如果有意义的话?

到目前为止,这是我融合在一起的内容,它确实按范围过滤数据并可以很好地循环,但是我一直坚持如何将数据复制到xRg中每个名称的表单上!

Set WIP = Worksheets("WIP")
Set Info = Worksheets("Information")

Dim xRg As Excel.Range

For Each xRg In Info.Range("D2:D16")

With WIP
    .AutoFilterMode = False
    
        With Range("X1")
        .AutoFilter Field:=24, Criteria1:=xRg
        End With
        
        With WIP.UsedRange
        .Copy
        End With
                        
    End With

Next xRg

任何受到赞赏的想法

0 个答案:

没有答案
相关问题