[已解决]求高人帮忙，vba实现数据筛选复制到另一表的问题

jimolaojiu

表格比较复杂，我又是一新手，所以弄了很长时间也没做好。求高人帮忙，用“各直营店”店名筛选数据，然后再复制到各直营店的表中，需要数据求和，先行感谢。

最佳答案

月排行榜 / 总排行榜

Zipall

2011-10-6 19:42

回复 jimolaojiu 的帖子

Sub test()
    On Error Resume Next
    arr = Sheet1.Range("a5:aa11")
    For i = 1 To UBound(arr)
        Sheets(arr(i, 1)).Range("a65536").End(xlUp).Offset(1, 0).Resize(1, 27) = Application.Index(arr, i)
    Next
    MsgBox "搞定,请勿重复运行!"
End Sub


ps:"大东门"和"陆东门"是同一个店吗?

跳转到最佳答案楼层

Zipall

回复 jimolaojiu 的帖子

Sub test()
    On Error Resume Next
    arr = Sheet1.Range("a5:aa11")
    For i = 1 To UBound(arr)
        Sheets(arr(i, 1)).Range("a65536").End(xlUp).Offset(1, 0).Resize(1, 27) = Application.Index(arr, i)
    Next
    MsgBox "搞定,请勿重复运行!"
End Sub


ps:"大东门"和"陆东门"是同一个店吗?