excel表格怎么拿数字排序

1.在EXCEL怎样设置使数字按顺序排列?

材料/工具：Excel2007

1、首先打开表格，表格的内容就出现了，我们要想写额外收入就得找出全勤最高的员工跟最低的员工。

2、我们按照全勤奖来判断，我们看全勤这一项目。

3、我们可以看到全勤最高的员工，穿插在较低跟中等的员工里面排序很乱。

4、这时候我们点击数据里面的排序按钮。

5、然后弹出排序窗口我们选择要排序的全勤奖。然后进行降序排列，点击确定。

6、这个时候通过降序排列，最高的就会在上面，最低的就会在最下面了。

2.excel如何对单元格内的数字进行排序

Public cc As Variant

Dim arr(), arr1(), arr2()

Sub 知道正则排序（）

Set regx = CreateObject("vbscript.regexp")

With regx

.Global = True

.Pattern = "[\u4E00-\u9FFF]\d+\.?\d？" '正则匹配一个汉字+多个数字

Set mat = .Execute(cc) '输入单元格变量

ReDim arr(1 To 1, 1 To mat.Count)

ReDim arr1(1 To 1, 1 To mat.Count)

For Each m In mat

k = k + 1

arr(1, k) = m '结果转换成数组

Next m

k = 0

End With

End Sub

Sub 主体（）

If ActiveCell = "" Then

MsgBox "请选择一个有内容的单元格或区域！"

GoTo Endd

End If

Strr = InputBox（"请输入一个新的排序，用[.]隔开：" & Chr(10) & "数量不要超过每单元内的汉字数！"， "输入序列"， "3.2.1")

For Each cc In Selection

次数 = 次数 + 1

行 = cc.Row

列 = cc.Column

Call 知道正则排序

顺序数组 = Split(Strr, ".")

For Each 序列 In 顺序数组

n = n + 1

arr1(1, n) = arr(1， 序列) '交换数组

Next 序列

Erase arr

n = 0

arr1 = Application.Index(arr1, 1, 0) '提取数组第一行

'ReDim Preserve arr2(1 To 1, 1 To 次数)

Cells（行， 列 + 3） = Join(arr1， "") '输出

'arr2(1， 次数) = Join(arr1， "") '链接输出备用

Erase arr1

Next cc

Endd:

End Sub

代码功能：

1、先选中要处理的数据（不要包含空单元格！）

2、点击执行，结果会输出到数据右侧

代码使用方法：

Alt+F11调出VBA窗口

如需源文件，私信或给我接收邮箱，发给你。