希望有人可以提供帮助,因为我有点被卡住了!
我有一些支持数据,我正在尝试按范围中的名称进行过滤,然后将每个过滤后的数据实例复制到与该范围相同的其他工作表中-如果有意义的话?
到目前为止,这是我融合在一起的内容,它确实按范围过滤数据并可以很好地循环,但是我一直坚持如何将数据复制到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
任何受到赞赏的想法