如何在vba 里写自定义排序

dajiashiren

利用单元格的sort如何写代码。

gwjkkkkk

请参考。。。

ykcbf1100

借用一个辅助列完成排序

ykcbf1100

参与一下。。。

ww87725244

Sub aa()
With Sheet1
  .Sort.SortFields.Clear
  .Sort.SortFields.Add Key:=.Range("b2:b" & .Cells(Sheet1.Rows.Count, 2).End(xlUp).Row) _
  , SortOn:=xlSortOnValues, CustomOrder:="肉类,蔬菜,其它,大米,食油"
  .Sort.SortFields.Add Key:=.Range("a2:a" & .Cells(.Rows.Count, 1).End(xlUp).Row) _
  , SortOn:=xlSortOnValues, Order:=xlDescending
  With Sheet1.Sort
    .SetRange Sheet1.Range("a2:k" & Sheet1.UsedRange.Rows.Count)
    .Header = xlNo
    .Apply
  End With
End With
End Sub

dajiashiren

gwjkkkkk 发表于 2024-10-18 21:30
请参考。。。

谢谢，但是您只是做了b列的自定义排序，a列的升序还没有做，我想达到的效果是先排序b列，再排序a列。

dajiashiren

ykcbf1100 发表于 2024-10-18 21:43
参与一下。。。

这也不失为一种方法，谢谢。