EXCEL有近百个文档,怎么才能按照字母排序?

来源:百度知道 编辑:UC知道 时间:2024/06/26 01:36:38
工作中,一个EXCEL表格里有近百个文档,并且排序很杂乱,我想请教一下,怎么才能把这些文档按照字母的顺序排序,步骤请详细一点,谢谢

你说的近百个文档是指近百个工作表吧,想将近百个工作表进行排序,利用VAB就可以轻松搞定了,我帮你编了个VAB程序,你按如下方法执行就OK了,为防止数据丢失,建议你先将原文件进行备份。
1、打开该表格,在任意一个工作表标签上单击右键,点“查看代码”
2、在代码窗口中,单击菜单命令“插入”-“模块”,然后将下面的代码复制到模块窗口中(代码已经加入详细的注解,有基础的人应该一看就明白了):

Sub 工作表按字母排序()
Dim ii As Long
Dim 总表数 As Long
Dim 工作表名 As String
总表数 = Sheets.Count

'在所有工作表之后插入一个新的工作表,用于处理工作表名称
Sheets.Add after:=Sheets(总表数)
'将所有工作表的名称都读取到新工作表的A列
For ii = 1 To 总表数
Sheets(总表数 + 1).Cells(ii, 1) = Sheets(ii).Name
Next ii

'接下来要将新表的A列按字母顺序排列
Sheets(总表数 + 1).Columns(1).Sort Key1:=Sheets(总表数 + 1).Range("A1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, SortMethod _
:=xlPinYin, DataOption1:=xlSortNormal
'将所有工作表的位置按照A列的名称重新调整
For ii = 1 To 总表数
工作表名 = Sheets(总表数 + 1).Cells(ii, 1)
Sheets(工作表名).Move before:=Sheets(ii)