如何先按未位再按前面其它字符顺序排序或筛选

chxw68

利用辅助列排的序。

yjh_27

aman1516 发表于 2014-6-16 20:57
谢谢关注，分排序列的原数据长度格式是不规范的，字母、中文、数字都有。
实际工用表有几行表头，A~Z列， ...

多Key数组排序(分类、统计、重复处理)-自定义函数
http://club.excelhome.net/thread-1090007-1-1.html

15L

aman1516

chxw68 发表于 2014-6-16 21:43
利用辅助列排的序。

用了一段时间及各个表格测试，觉得非常好。
以前不习惯用辅助列，现在发现动态建立辅助列更具灵活性：相当于通过对关键字符的操作，不管是按首字、未字或指定条件生成辅助列，就可按指定条件或多条件排序或分表了。
再次谢谢！

补充一下，加入下列代码，将工作表排下序：

Sub PX()
'工作表排序
Application.DisplayAlerts = False
    Dim arr(), i As Long, j As Long, sh
    For Each sh In Sheets
       ReDim Preserve arr(i)
       arr(i) = sh.Name
       i = i + 1
    Next
    For i = LBound(arr) To UBound(arr)
        For j = i + 1 To UBound(arr)
          If arr(i) > arr(j) Then
            Swap arr(i), arr(j)
          End If
        Next j
    Next i
    For Each sh In arr
     Sheets(sh).Move after:=Sheets(Sheets.Count)
    Next
Application.DisplayAlerts = True
End Sub

Function Swap(a, b)
   Dim tmp
   tmp = a
   a = b
   b = tmp
End Function

分表较多时，这样就更方便了。

chxw68

aman1516 发表于 2014-6-19 22:11
用了一段时间及各个表格测试，觉得非常好。
以前不习惯用辅助列，现在发现动态建立辅助列更具灵活性：相 ...

举一反三，楼主理解、消化能力很强！