[已解决]能否让分表根据总表中对应链接顺序调整顺序

as0810114

能否让分表根据总表中对应链接顺序调整顺序，详见附件。
麻烦各位VBA大神，谢谢。

最佳答案

月排行榜 / 总排行榜

爱疯

2013-3-19 13:08

Sub test()
    Dim sh As Worksheet, A, i%
   
    Application.ScreenUpdating = False
    A = Range("a3:a" & Range("a65536").End(xlUp).Row)
    A = Application.Transpose(A)
    A = Split(Application.Trim(Join(A)))
   
    For Each sh In Sheets
        For i = 0 To UBound(A)
            If A(i) = sh.Name Then
                 sh.Move after:=Sheets(i + 1)
                Exit For
            End If
        Next i
    Next
    Sheets(1).Select
End Sub
question.rar (31.45 KB, 下载次数: 16)

2013-3-19 13:08 上传

点击文件名下载附件

跳转到最佳答案楼层

爱疯

感觉楼主要求的功能，价值不大吧

为什么总表A列里的顺序会乱

as0810114

爱疯 发表于 2013-3-19 12:31
感觉楼主要求的功能，价值不大吧

为什么总表A列里的顺序会乱

因为总表对应着很多分表，需要根据一定的条件对总表中的数据排序，然后虽然超链接对应的分表都不变，但是需要各分表的顺序跟总表中超链接的顺序一致，因为有时要对批量分表（也就是总表排序后）移动到另一张工作簿中。

爱疯

Sub test()
    Dim sh As Worksheet, A, i%
   
    Application.ScreenUpdating = False
    A = Range("a3:a" & Range("a65536").End(xlUp).Row)
    A = Application.Transpose(A)
    A = Split(Application.Trim(Join(A)))
   
    For Each sh In Sheets
        For i = 0 To UBound(A)
            If A(i) = sh.Name Then
                 sh.Move after:=Sheets(i + 1)
                Exit For
            End If
        Next i
    Next
    Sheets(1).Select
End Sub
question.rar (31.45 KB, 下载次数: 16)

2013-3-19 13:08 上传

点击文件名下载附件

as0810114

爱疯 发表于 2013-3-19 13:08
Sub test()
    Dim sh As Worksheet, A, i%
   

本来还以为不能实现，谢谢大师。

as0810114

爱疯 发表于 2013-3-19 13:08
Sub test()
    Dim sh As Worksheet, A, i%
   

不好意思老师，这个代码执行起来速度有点慢，最重要的是当总表中链接顺序变动很多的时候（千份工作表），工作表顺序调整不能一次性完成。不知能否改善？

爱疯

as0810114 发表于 2013-3-19 15:29
不好意思老师，这个代码执行起来速度有点慢，最重要的是当总表中链接顺序变动很多的时候（千份工作表）， ...

这个我没什么办法。

你说的这个工作簿，文件有多大？方便上传吗？

其中，用了函数的吗？

其中，有没有很多图片或对象？

as0810114

爱疯 发表于 2013-3-19 16:40
这个我没什么办法。

你说的这个工作簿，文件有多大？方便上传吗？

算了吧，多执行一两次也可以解决。谢谢老师。