使用large函数对大于零的值进行排序
使用large函数对大于零的值进行排序
提问于 2014-09-03 22:14:54
我有一个包含多列的表。这些列有正值、零值和负值：
2000年
-3000
4000
-6000
8000
如何对大于零的值进行排序？结果应该如下所示：
8000
4000
2000年
我在玩这段代码：
对于i=1到4
.Cells(36 + i, 3) = Application.WorksheetFunction.Large(.Range("A1:D10"), 1 + i - 1)下一步我
回答 1
Stack Overflow用户
发布于 2014-09-03 23: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结束子对象
页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/25646676
复制相关文章
相似问题
腾讯云开发者
