Question

例如，我想基于字符串对工作表进行排序：

Column 1 Column 2
name1     x
name2     x
name3     asdad
name4     gadfa
name5     gsdff

是否可以通过以下方式对它进行排序：将带有特定字符串的所有行都放在顶部，在这种情况下，所有带有“ x”字符串的行都应该放在顶部，然后根据以下内容按字母顺序对其余行进行排序第2列。

Answer 1

尝试此代码

Sub Test()
Dim n           As Long

Application.AddCustomList Array("x")
n = Application.CustomListCount

With Sheets("Sheet1")
    .Range("A1").CurrentRegion.Sort Key1:=.Range("B1"), Header:=xlYes, OrderCustom:=n + 1
    .Sort.SortFields.Clear
End With

Application.DeleteCustomList n
End Sub

基于字符串的Excel VBA排序

1 个答案: