您的位置: 首页 > EXCEL技巧 > ExcelVBA >

VBA按字母表顺序对工作表进行排序

时间:2013-12-13 整理:docExcel.net

如果工作簿内有大量以字母开头的工作表,要将这些工作表按照字母表的顺序进行排序,可以用下面的VBA代码来实现。按Alt+F11,打开VBA编辑器,单击菜单“插入→模块”,在代码窗口中粘贴下列代码并执行。

Sub 按字母表排序工作表()
Dim i As Integer, j As Integer, n As Integer
On Error Resume Next
n = Sheets.Count
If n = 1 Then End
For i = 1 To n - 1
  For j = i + 1 To n
If UCase(Sheets(j).Name) < UCase(Sheets(i).Name) Then
   Sheets(j).Move Before:=Sheets(i)
End If
  Next j
Next i
End Sub

上述代码是按照字母表升序来对工作表进行排序的,如果要按降序排序,将代码中的小于号改为大于号即可。

成功在线约会的方法论 问题:成功在线约会的方法论
回答:...名字有好感,都会远离负面含义的名字。名字首字母位于字母前半部分要好于后半部分。最成功的个人资料页是将个人信息和理想约会对象的描述比例七三开。 个人简介没有夸大其词或使用过于华丽的词藻,笔调幽默但真诚...
Excel按顺序排列数字,字母,日期等 问题:Excel按顺序排列数字,字母,日期等
回答:...排列一下,可能是按日期顺序排列,也可能是按数字、或字母等方式排列。本篇教程Excel办公网会详细讲解这些排列的方法! Excel按日期顺序排列 首先,选中需要按顺序排列的区域,然后依次打开菜单栏“数据”-->排序-->在...
Word2003为表格中的从右向左文字指定排序选项 问题:Word2003为表格中的从右向左文字指定排序选项
回答:...略 he 对文本进行排序,请单击“忽略 He”。 在按字母顺序排序时,以 he 起始的文字将以跟在 he 后的字符的字母顺序进行排序。 -(仅对于阿拉伯语)若要忽略 alef 对文本进行排序,请单击“忽略 Alef Lam”。 在按字...
Excel2010没有我们想要的排序规则该怎么办 问题:Excel2010没有我们想要的排序规则该怎么办
回答:...按照Excel里面的学历排序,不是这样的结果,它是按照首字母顺序进行排序的,那么该怎么处理呢? ①如下图所示,要将人员按照学历顺序进行排序,我们都知道,本科>大专>高中>初中>小学,但是直接按照学历排序是...
灵活运用Excel函数快速录入26个英文字母 问题:灵活运用Excel函数快速录入26个英文字母
回答:...l软件是外国人开发的,居然不能自动按顺序填充26个英文字母!有没有办法快速输入这个序列呢? 有,我们用函数转换来实现26个英文字母的自动填充: 如果从A2开始向下输入“A、B、C……”,先在A2单元格中输入...
玩转Excel数据04:按笔划排序 问题:玩转Excel数据04:按笔划排序
回答:Excel对文本默认的排序方式是按字母顺序进行排列的,但如果你想要按笔划顺序进行排列,那就来对地方了!汪琪老师今天要讲的就是将Excel对文本的排序方式修改为按笔划顺序排列。顺道提醒一下童鞋们,文章结尾有本课的素...
相关知识:

下面内容对您也许有用

      话题:请问,在excel表中更改名称的工作表怎样按字母排序?用vba具体
      答:我以前答过这题 Sub paixu()Dim i%Dim j%if Worksheets.Count=1 Then End For j=1 To Worksheets.Count-1 For i=1 To Worksheets.Count-1 If Sheets(i).Name 请问我可以加你Q吗?你很高手, Excel中如何用VBA排序
      话题:excel工作表排序的
      问:我有张excel。有80多个工作表,名字是各种原料的名称,但是前面我还自己给加了个
      答:按Alt+F11进入VBE编辑器,插入,模块,然后粘贴下面的代码,按F5运行即可。在复制代码之前你要确保工作表名称的格式为:“01、甲苯”,如果是“1、甲苯”则要改 excel工作表排序 excel工作表排序
      话题:excel工作表排序的
      问:我有张excel。有80多个工作表,名字是各种原料的名称,但是前面我还自己给加了个
      答:首先选中要排序的文字,单击数据-排序,跳出一个窗口,点选下面的“选项”,方向选择按列排序,方法选择按字母排序,单击确定,OK! Excel如何排序数据 excel工作表排序
      话题:工作表标签排序vba代码怎么写
      答:Sub paixu()On Error Resume Next Dim i%For i=1 To Worksheets.Count Sheets("sheet"&i).Move Before:=Sheets(i)Next End Sub 看看适合你不 求高手写一EXCEL VBA程序,有两 Excel中如何用VBA排序
      话题:求高手写一EXCEL VBA程序,有两个工作表,第一个工作表给出
      问:在一个EXCEL文件里有两个表,表1为数据,表2为排序 表1:单数 张三 李四 王五 马
      答:sheet2的b2输入数组公式(输入时按ctrl+shift+enter完成)=INDEX(Sheet1!1:$1,RIGHT(LARGE(Sheet1!B2:$J2*100+COLUMN($B:$J),COLUMN(A1)),2))向右向下填充 excel 在编写VBA宏程序时, vba excel 程序 选择工作表
      话题:excel 的工作表按目录中的顺序自动排序
      答:排序是数据处理中的经常性工作,Excel排序有序数计算(类似成绩统计中的名次)如果您要将上例数据表按车间名称的笔划排序,可以使用以下方法:选中排序关键 请问在Excel中如何以某一列的 在Excel中对整个工作表进行排序
      话题:用VBA编写excel工作簿的工作表排序事件
      即当工作簿中某个工作表中区域重新排序后即当工作表A:D列数据改变时,E列本行数据=E列上行数据+C列数据-D列数据 但我工作表中A列为日期数据,需要经常按日期先后顺序对工作表A:D进行升序排列.
      话题:怎样通过VBA对工作表排序
      按A列排序,有标题行,升序,代码如下:Cells.Select Selection.Sort Key1:=Range("A2"),Order1:=xlAscending,Header:=xlYes,_OrderCustom:=1,MatchCase:=False,Orientation:=xlTopToBottom,
      话题:Excel VBA 按条件排序
      答:所有代码如下:Private Sub boBox1_Change()'第一个组合框变化 Dim dc As Object Set dc=CreateObject("Scripting.Dictionary")Dim i As Long boBox2. Excel 多条件排序(可能要用VBA Excel中如何用VBA排序
      话题:在EXCEL工作簿中如何使用VBA判断当前活动工作表在工作簿中的
      问:在执行完一个宏后,一般情况下最后一个工作表会变成活动工作表,我想让活动工作表
      答:假定开始执行宏的工作表名称是“封面”,则在编写的宏代码结束时加上下面的代码即可:Sheets("封面").Activate
最新评论