我有一个包含多列的表。这些列有正值、零值和负值:
2000年
-3000
4000
-6000
8000
如何对大于零的值进行排序?结果应该如下所示:
8000
4000
2000年
我在玩这段代码:
对于i=1到4
.Cells(36 + i, 3) = Application.WorksheetFunction.Large(.Range("A1:D10"), 1 + i - 1)
下一步我
发布于 2014-09-03 15:14:12
这将按降序对您的#(范围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
结束子对象
https://stackoverflow.com/questions/25646676
复制相似问题