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

aman1516

请问：可否先按某列字符串的最后一位的字母或中文排序？然后再按最未位之外的前面的字母正常排序？
即排序或筛选的条件是按字符串的两部分：最未一位，前面的字符。

详见附件： 按最未位排序（或筛选）0616.rar (22.19 KB, 下载次数: 10)

2014-6-16 11:10 上传

点击文件名下载附件

chxw68

提供一个ADO+SQL版本的，结果在“Sheet2”表格里。

1. Sub test()
   
2.   Dim cnn As New ADODB.Connection
   
3.   Dim rs As New ADODB.Recordset
   
4.   Dim sql As String
   
5.   Dim mybook As String
   
6.   mybook = ThisWorkbook.FullName
   
7.   With cnn
   
8.     If Application.Version = "11.0" Then
   
9.       .Provider = "microsoft.jet.oledb.4.0"
   
10.       .ConnectionString = "extended properties=""excel 8.0;HDR=NO;"";data source=" & mybook
    
11.     Else
    
12.       .Provider = "microsoft.ACE.oledb.12.0"
    
13.       .ConnectionString = "extended properties=""excel 12.0;HDR=NO;"";data source=" & mybook
    
14.     End If
    
15.     .Open
    
16.   End With
    
17.   sql = "select * from [sheet1$d5:f] order by right(F2,1),left(F2,len(F2)-1)"
    
18.   rs.Open sql, cnn, adOpenKeyset, adLockOptimistic
    
19.   With Worksheets("sheet2")
    
20.     .Cells.Delete
    
21.     For j = 0 To rs.Fields.Count - 1
    
22.       .Cells(1, j + 1) = rs.Fields(j).Name
    
23.     Next
    
24.     .Range("a2").CopyFromRecordset rs
    
25.   End With
    
26. End Sub
    

复制代码

chxw68

参见附件。

aman1516

chxw68 发表于 2014-6-16 11:25
提供一个ADO+SQL版本的，结果在“Sheet2”表格里。

非常感谢！正是这样的结果。但用SQL，数据结构稍有变动易出错。（自己水平菜，也不太会改）
而我最终的结果是想排序之后，除了能够按具体需要进行手动统计之外，还希望实现按排序结果拆分表：例如按最未位相同的拆工作表分表。
怕问题太复杂了，所以，在此请教一下按最未位筛选的VBA方法，再去实现分表的。
（拆分工作表我会，就不知如何结合起来，有无其它VBA办法实现呢？）

chxw68

aman1516 发表于 2014-6-16 15:05
非常感谢！正是这样的结果。但用SQL，数据结构稍有变动易出错。（自己水平菜，也不太会改）
而我最终的结 ...

你要的最终结果是不是按最末位拆分工作表？

yjh_27

原数据长度一致吗？

chxw68

下面代码就是按末字符拆分工作表的：

1. Sub test1()
   
2.   Dim d As Object
   
3.   Dim r%, i%
   
4.   Dim arr
   
5.   Dim ws As Worksheet
   
6.   Set d = CreateObject("scripting.dictionary")
   
7.   Application.DisplayAlerts = False
   
8.   Application.ScreenUpdating = False
   
9.   For Each ws In Worksheets
   
10.     If ws.Name <> "Sheet1" Then
    
11.       ws.Delete
    
12.     End If
    
13.   Next
    
14.   
    
15.   With Worksheets("sheet1")
    
16.     r = .Cells(.Rows.Count, 4).End(xlUp).Row
    
17.     arr = .Range("d5:f" & r)
    
18.   End With
    
19.   
    
20.   For i = 1 To UBound(arr)
    
21.     xm = Right(Trim(arr(i, 2)), 1)
    
22.     d(xm) = d(xm) & "+" & i
    
23.   Next
    
24.   
    
25.   For Each aa In d.Keys
    
26.     Set ws = Worksheets.Add(after:=Worksheets(Worksheets.Count))
    
27.     With ws
    
28.       .Name = aa
    
29.       brr = Split(Mid(d(aa), 2), "+")
    
30.       ReDim crr(1 To UBound(brr) + 1, 1 To 3)
    
31.       For i = 0 To UBound(brr)
    
32.         For j = 1 To 3
    
33.           crr(i + 1, j) = arr(Val(brr(i)), j)
    
34.         Next
    
35.       Next
    
36.       .Range("a1").Resize(UBound(crr), UBound(crr, 2)) = crr
    
37.     End With
    
38.   Next
    
39.   
    
40. End Sub
    

复制代码

chxw68

参见附件。

aman1516

yjh_27 发表于 2014-6-16 17:36
原数据长度一致吗？

谢谢关注，分排序列的原数据长度格式是不规范的，字母、中文、数字都有。
实际工用表有几行表头，A~Z列，近3千行数据的。

aman1516

chxw68 发表于 2014-6-16 17:46
参见附件。

总表还是要实现排序的，因为按其它条件方式的统计要用到。
按未位分表完美实现，谢谢老师的热心帮忙。
每天能学习一点点，进步一点点……全赖EH有这么多热心的老师、朋友