[已解决]数据由大到小降序排序

东方智彩

依K列至最后一行的数据由大到小降序排序,G、H、I、J行的数据同步跟着变化，，请教高手VBA代码，谢谢
Book1.rar (3.76 KB, 下载次数: 42)

2011-12-19 18:50 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

suye1010

2011-12-19 19:57

1. Sub test()
   
2.     Sheets(1).Range("G2:K45").Sort Key1:=Range("K2:K45"), order1:=xlDescending, Header:=xlGuess, DataOption1:=xlSortTextAsNumbers
   
3. End Sub

复制代码

跳转到最佳答案楼层

suye1010

1. Sub test()
   
2.     Sheets(1).Range("G2:K45").Sort Key1:=Range("K2:K45"), order1:=xlDescending, Header:=xlGuess, DataOption1:=xlSortTextAsNumbers
   
3. End Sub

复制代码

老糊涂

在K列中，1-12你是文本格式，需改为常规，否则影响排序

东方智彩

谢谢楼上的高手们,学习了