列数字排序

一把小刀闯天下

'流水代码就可以了，，，

Option Explicit

Sub test()
  Dim arr, i, j, m, t, cnt
  arr = Range("c2:c" & Cells(Rows.Count, "c").End(xlUp).Row + 1)
  For i = 1 To UBound(arr, 1) - 1
    If Len(arr(i, 1)) Then m = m + 1: arr(m, 1) = arr(i, 1)
  Next
  arr(m + 1, 1) = vbNullString
  For i = 1 To m - 1
    For j = i To m
      If Val(arr(i, 1)) > Val(arr(j, 1)) Then
        t = arr(i, 1): arr(i, 1) = arr(j, 1): arr(j, 1) = t
      End If
  Next j, i
  For i = 1 To m
    If arr(i, 1) <> arr(i + 1, 1) Then
      cnt = cnt + 1: arr(cnt, 1) = arr(i, 1)
    End If
  Next
  [f2].Resize(cnt) = arr
End Sub

ggmmlol

痛痛痛痛 发表于 2019-1-13 10:55
去重复，排序，需要公式吗？

杀鸡非要用牛刀，难道学孔乙己来研究一个"茴"字有多少种写法？

函数公式，连菜 刀 都算不上，大概算的上是水果 刀，适合用来处理一些轻巧型的任务；
相比较来说，Excel菜单中提供的基础功能，就相当于工具中的各种重量规格的“锤子”。
如果说刀有砍、斩、切、削、剁、刺等诸多技巧方法，那“锤子”就只有一种用法：大锤“砸”、小锤“敲”，虽然没有什么太多的技巧，却胜在简单实用。

如果要往板上去钉一个钉子，最适宜的方法，就是用小锤去敲，如果你用 刀，就很不趁手了；

同样地，对于排序、去重复这种任务，还就是菜单中的基础功能：“排序”和“删除重复数据”这两把“小锤”最适用；

如果这种“钉钉子”的任务每天需要重复很多次，那就把这个处理过程录制成VBA宏，再对宏代码稍加修改就好了，这好比把使用”手锤“改成使用“机械锤”。对于天天与EXCEL打交道、经常逛Excelhome论坛的人来说，只要稍微用点心，就可以自己解决的。

laowuwyx

ba3259878266 发表于 2019-1-12 23:24
谢谢老师 需要公式的 不要涵数

1. =LOOKUP(,0/FREQUENCY(1,(C$1:C$20<>"")-COUNTIF(E$1:E1,C$1:C$20)),C:C)&""

复制代码