三九宝宝网宝宝百科健康成长

怎么用Excel以姓名给工作表排序

01月04日 编辑 39baobao.com

[英文姓名的格式]一:姓在前,名在后,姓和名分开写,姓和名的开头字母均大写,注意不要把名字分开。如: 单姓单字:蔺相如-Lin Xiangru 复姓单字:司马迁-Sima Qian 二:名在前,姓在后,姓和名分开写,姓和名的开...+阅读

给你一段excel home里面的代码,你自己研究一下吧。

Sub 工作表标签排序()

Dim i As Long, j As Long, nums As Long, msg As Long

msg = MsgBox("工作表按升序排列请选 '是[Y]'. " & vbCrLf & vbCrLf & "工作表按降序排列请选 '否[N]'", vbYesNoCancel, "工作表排序")

If msg = vbCancel Then Exit Sub

nums = Sheets.Count

If msg = vbYes Then 'Sort ascending

For i = 1 To nums

For j = i To nums

If UCase(Sheets(j).Name) < UCase(Sheets(i).Name) Then

Sheets(j).Move Before:=Sheets(i)

End If

Next j

Next i

Else 'Sort descending

For i = 1 To nums

For j = i To nums

If UCase(Sheets(j).Name) > UCase(Sheets(i).Name) Then

Sheets(j).Move Before:=Sheets(i)

End If

Next j

Next i

End If

End Sub

Sub 工作表标签排序()

Dim arr, Temp As String

Dim i As Integer, j As Integer, iSht As Integer

Dim sht As Worksheet

iSht = ThisWorkbook.Sheets.Count

i = 1

ReDim arr(1 To iSht) As String

'将工作表名导入数组

For Each sht In ThisWorkbook.Sheets

arr(i) = CStr(sht.Name)

i = i + 1

Next

'冒泡排序法

For i = 1 To iSht - 1

For j = i + 1 To iSht

If arr(i) > arr(j) Then

Temp = arr(j)

arr(j) = arr(i)

arr(i) = Temp

End If

Next j

Next i

'工作表按名称排序

Sheets(arr(1)).Move before:=Sheets(1)

For i = 2 To iSht

Sheets(arr(i)).Move after:=Sheets(arr(i - 1))

Next i

End Sub欢迎到excel home学习。

以下为关联文档:

工作证明西语求翻译落款:证明人姓名和日期今有我公司员工吴博远,于2015年3月16日---2016年9月1日在我公司:佛山浩传有限公司温州分公司担任信控员一职 This is my company employees Wu Boyuan, in March 16, 2015 ---...

生辰八字姓名测试打分一、命主出生情况 姓名:张梓祺 性别:男 出生时间:公历2011年6月3日11时45分 农历:二○一一年五月初二日午时 当月节气:芒种(6月6日8:27:17); 中气:夏至 (6月22日1:16:26) 二、命主四柱...

姓名测试打分生辰八字姓名:张琳晰 三才五格总评:81 分 五行分别是:火木金 笔画分别是:11 13 12 天格.人格.地格.总格.外格数分别:12(木) 24(火) 25(土) 36(土) 13(火) 姓名:张淋晰 三才五格总评:92 分 五行分别是:...

生辰八字测试姓名测试打分姓名:张琳晰 三才五格总评:81 分 五行分别是:火木金 笔画分别是:11 13 12 天格.人格.地格.总格.外格数分别:12(木) 24(火) 25(土) 36(土) 13(火) 姓名:张淋晰 三才五格总评:92 分 五行分别是:...

WPS表格里面姓名那个单元格里怎么设置个斜杠姓名星期1、将需要插入双斜线的单元格扩大到自己所需要的大小 2、依次点击“插入”---&gt;“形状” 3、选择“直线”,按住shift+画直线,即可...

麻烦哪位大大告知下这位女星姓名斯嘉丽·约翰逊(Scarlett Johansson),1984年11月22日生于纽约,美国女演员。 1994年,斯嘉丽出演了她第一部影片《北》。1996年,斯嘉丽出演影片《曼尼和罗》,获得了当年的“独立精神...

怎样按姓氏笔画排序按姓氏笔画排序: 一、笔画数由少到多的原则。按照姓的笔画多少,少的排在前,多的排在后,如王和李,王四画,李 七画,王在前,李在后。 二、笔画数相同的,按姓氏起次笔排序的原则。按“一(...

如何用C实现对姓名按拼音排序这里的要点在ASCII值,每个字母都有对应的ASCII值,所以只需比较姓名的ASCII值就可以了(如果按照abc的顺序排列就是按照ASCII值从小到大排列), #include <string.h> #include <iost...

三国志11中如何添加武将头像以及自设武将更改姓名你确定是游戏拼音输入法?若是的话请将GB变为B5即可输入繁体。 若觉得麻烦可以使用San11 NewGeneral Editor工具然后利用搜狗的繁体输入法进行直接编辑,若还是觉得麻烦还可以使...

推荐阅读
图文推荐