排序问题

飞雪凌云

请问：如图B列我已经排序好，现在A列按B列相同按顺序排序，可以批量执行这个操作吗？

zpy2

VBA:

Set Conn = CreateObject("ADODB.Connection")
Conn.Open "Provider=Microsoft.Ace.OLEDB.12.0;Extended Properties='Excel 12.0; HDR=NO;';Data Source=c:\data.xlsx"
'Conn.Open "Provider=Microsoft.Ace.OLEDB.12.0;Extended Properties='Excel 12.0; HDR=YES;';Data Source=c:\data.xlsx"
'sql="insert into [Sheet1$] (f1) values (#2024-01-12 16:01:02#)"
'sql1=" (select `Name` from [Sheet1$] where not `Name` is null) as a "
'sql2=" (select `Number` from [Sheet1$]) as b "
sql="select * from [Sheet1$] order by f2,f1"

set Rst=Conn.Execute(sql)
ActiveCell.CopyFromRecordset Rst
Conn.close

hcm19522

F2:H15{=INDEX(B:B,RIGHT(SMALL($C$2:$C$15/1%%+$B$2:$B$15/1%+ROW($2:$15),ROW(A1)),2))

批號先出現 排上面 O2:Q15{=INDEX(K:K,RIGHT(SMALL(MATCH($L$2:$L$15,$L:$L,)/1%%+$K$2:$K$15/1%+ROW($2:$15),ROW(A1)),2))

leepoison

A列触发复制自排列

Private Sub Worksheet_Change(ByVal Target As Range)
    On Error Resume Next
    Application.EnableEvents = False

    ' 检查更改是否发生在A列
    If Not Intersect(Target, Me.Range("A:A")) Is Nothing Then
        ' 按列排序
        Me.Sort.SortFields.Clear
        Me.Sort.SortFields.Add Key:=Range("A:A"), _
            SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
        With Me.Sort
            .SetRange Me.Range("A:A")
            .Header = xlNo ' 如果你的数据有标题，则设置为xlYes
            .MatchCase = False
            .Orientation = xlTopToBottom
            .SortMethod = xlPinYin
            .Apply
        End With
    End If

    Application.EnableEvents = True
    On Error GoTo 0
End Sub