excel表格里数字如何排列

1.excel单元格内数字如何排序

假定原数在A1。

示例公式：

=REPT(0,LEN(A1)-LEN(SUBSTITUTE(A1,0,)))&SUM(SMALL(1*MID(A1,ROW(INDIRECT("1:"&LEN(A1))),1),ROW(INDIRECT("1:"&LEN(A1))))*10^(LEN(A1)-ROW(INDIRECT("1:"&LEN(A1)）））） 按组合键ctrl+shift+enter结束。

其中：REPT(0,LEN(A1)-LEN(SUBSTITUTE(A1,0，)））判断单元格中有几个0，先将0排在前；

MID(A1,ROW(INDIRECT("1:"&LEN(A1))),1）将单元格数字分解为单个元素；

SMALL函数对分解后的数字由小到大进行排序；再分别乘以10的N次方，最后加总即得结果。

2.如何在Excel中让数据自动排序?

自动排序是可以实现的，这需要用到 worksheet_change 事件。

在“自动排序”工作表模块中输入以下代码： Private Sub Worksheet_Change(ByVal Target As Range) Dim h As Range 'If Target。 Count > 1 Then End '若同时改变多个单元格时，不想让其排序，请把本行首的“ ' ”去掉 If Target。

Column 2 Then '若改变的单元格的列标小于8，行标小于2，则运行下面语句 Set h = Range(Cells(Target。 Row, 1), Cells(Target。

Row, 7)） '让对象变量h为改变的单元格所在行的1—7列的内容 If Application。CountA(h) = 7 Then Call sorts '如果 h 的所有单元格都有内容，则运行sorts程序 End If End Sub 并在VBA工程中插入一模块，输入以下代码： Sub sorts() With ActiveSheet 。

Range("a2:g" & 。[g65536]。

End(xlUp)。Row)。

SortSpecial 1, _ 。Range("G2"), 2, , 。

Range("A2"), 2, 。Range("F2"), 2, 1 End With End Sub 具体参考附件 。