excel
建议换个思路，因为表很多，涉及到文件名排序写起来麻烦，比如Art和Angel同样需要进行排序。你排序的目的只是为了方便定位，那个，你先插入一张工作表，然后用宏把工作表名称的明细导出来，然后用
excel的排序进行排，最后再加段代码，单击某个单元格，就跳转到名字为该单元格内容的工作表。这样代码也简单些。 如下：一、新建一工作表放在首位，在模纸值洋坚许跑是工内础块中输出以下代码（若无则插冷要入模块），运行即可获得工作表明细Sub 获取工作表名明细()Sheets(1).Cells(1, 1) = "名称"For i = 2 To Worksheets.Count Sh刑eets(1).Cells(i, 1) = Worksheets(i).NameNext iEnd Sub二、用
excel的的排序功能，对获得的工作表明细排序三、在工作表1中输入以下代码，目的是双击某个单元格，则自动跳转到名字为该单元格内容的工作表。Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)Dim Marksheet As StringMarksheet = Target.ValueFor i = 2 To Worksheets.Count If Worksheets(i).Nam危误庆征文e = Marksheet Then Worksheets(i).Select Exit Sub End IfNext iEnd Sub四、测试成功，上附件。 很抱歉，回答者上传的附件已失效
