我想根据字符串对工作表进行排序,例如:
Column 1 Column 2
name1 x
name2 x
name3 asdad
name4 gadfa
name5 gsdff
是否可以通过将带有某个字符串的所有行放在最上面的方式对其进行排序,在这种情况下,所有带有“x”字符串的行应该首先放在最上面,然后根据第 2 列的字母顺序对其余行进行排序。
试试这个代码
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
本文收集自互联网,转载请注明来源。
如有侵权,请联系[email protected] 删除。
我来说两句