Vba 使用大函数对大于零的值进行排序

我有一个多栏的表格。列具有正值、零值和负值：

2000年

-三千

四千

0

-六千

八千

如何对大于零的值进行排序？结果应该如下所示：

八千

四千

2000年

我在玩这个代码：

对于i=1到4

  .Cells(36 + i, 3) = Application.WorksheetFunction.Large(.Range("A1:D10"), 1 + i - 1)

接下来，我将按降序对您的#进行排序（范围C1:C100）：

Sub Sort_column_C()
ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Add Key:=Range("C1:C100"), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Sheet1").Sort
    .SetRange Range("C1:C100")
    .Header = xlGuess
    .MatchCase = False
    .Orientation = xlTopToBottom
    .SortMethod = xlPinYin
    .Apply
End With

---

End Sub

你想放弃负值吗？？？@Gary：我想放弃零值和负值。谢谢！谢谢你，迈克。排序函数仅限于列排序，这就是我使用大型函数的原因。