EXCEL技巧专辑..（欢迎参与，共同学习）

蜘蛛

呵呵！最后把返回的代码贴上，是万能的妮可教的！就是如下代码

全先所有表...在单元格里输入:   =HYPERLINK("[xls文件名]表1的名字!A1","回到表1")
然后按ctrl+enter就OK了！再次感谢万能的妮可！呵呵！他实在是太强大了！！哈哈！:P

wstianfeng

刚学会用Excel，碰到个问题请教下，在一个Excel文件中--表A的数据+表B+表C等于表K，能不能用公式相加，人工相加又慢又容易出错。谢谢了！！！！！！！

妮可宝贝

可以,在表K的a1格输入     =a!a1+b!a1+c!a1

蜘蛛

呵呵！各位大大！有没有办法让工作薄中的若干工作表自动排序？

蜘蛛

哈哈！E版给了个代码，真好用！可以直接排序！！！
按alt+F8 调出宏对话框，然后新建宏，把下面代码粘进去，然后F5运行，就等着结果了！哈哈！好用！真好用！！
Sub Zldccmx()
    Application.ScreenUpdating = False'关闭屏幕实时更新
    Application.EnableEvents = False'暂停系统事件响应
    Dim Shname '定义一个变量
    For Each sh In ThisWorkbook.Worksheets '遍历当前工作簿下的所有工作表
        If sh.Name <> "目录" Then Shname = Shname & Chr(1) & sh.Name '除了指定的“目录”工作表以外，其它各工作表的名称记录到字符串Shname中，并用一个特殊的字符CHR(1)来作为分界符
    Next
    Shname = Split(Mid(Shname, 2), Chr(1)) '将字符串按既定的分界符拆分成一个一维数组
    With Sheets("目录")
        .Cells(1, 256).Resize(UBound(Shname) + 1, 1) = WorksheetFunction.Transpose(Shname) '将一维数组暂存到工作表"目录"的最后一列，然后借助工作表来对工作表名称进行排序
        .Columns("IV:IV").Sort Key1:=.Range("IV1"), Order1:=xlAscending, Header:=xlGuess, _
                               OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, SortMethod _
                                                                                             :=xlPinYin, DataOption1:=xlSortTextAsNumbers '执行排序，按升序排序
        Shname = .Range([iv1], [iv1].End(xlDown)) '将排序后的工作表名转存到数组Shname中，此时的数组已经变形成一个2维数组
        .Range([iv1], [iv1].End(xlDown)) = "" '清除刚刚借用的工作表部分区域
    End With
    Sheets("目录").Move before:=Sheets(1) '按题目要求，将工作表 “目录”放在首位
    For i = 1 To UBound(Shname)
        Sheets(Shname(i, 1)).Move before:=Sheets(i + 1) '依次移动工作表，由于此时的数组已经变形成一个2维数组，所以书写格式就是Shname(i,1)
    Next
    Application.EnableEvents = True'恢复系统事件响应
End Sub

wstianfeng

谢谢 指点！！！！

妮可宝贝

弄那么长...

这样不就行了..

Sub sortSheet()
    Dim i&, j&
    Application.ScreenUpdating = False
    For i = 1 To Worksheets.Count
        For j = i To Worksheets.Count
            If Worksheets(j).Name < Worksheets(i).Name Then Worksheets(j).Move Before:=Worksheets(i)
        Next
    Next
    Application.ScreenUpdating = True
End Sub

ceceseven

要慢慢学，一下看不太懂啊

sgmbest

先支持一下，学习中！