VBA老师请解答：单元格区域排序时，将指定字符串所在的行放到最后行

中华美德

VBA老师请解答：单元格区域排序时，将指定字符串所在的行放到最后行

1.要求

2.效果

taller

taller

中华美德

taller 发表于 2024-2-28 02:12

Sub demo()
    Const HELPER = "P"
    Dim i As Long, IR As Long
    IR = [L1].End(x1Down).Row
    For i = 2 To IR
        Cells(i, HELPER) = IIf(Left(Cells(i, "L"), 2) = "幼儿", 8, 1)
    Next
    With Range("J1:" & HELPER & IR)
        .Sort key1:=.Columns(7), order1:=xlDescending, key2:=.Columns(6), _
        order1:=xlDescending, Header:=xlYes
    End With
    Columns(HELPER).Clear
End Sub
无效的参数

Enocheasty

就这个不是用Excel的排序功能就能完成的事，为啥非要用VBA呢！