[已解决]脑袋短路了，求指点排序的小代码

excel小米

Sheet1.Cells.Sort Key1:=Range("B2"), Order1:=xlDescending, Header:=xlYes

我的第一第二行是标题，，我这个代码总是把第二行的标题给排到后面去了。。。我是希望第一第二行都不动，，谢谢高手了

最佳答案

月排行榜 / 总排行榜

qh8600

2015-1-30 18:29

Sheet1.range(Cells(3,1),cells(1000,10)).Sort Key1:=Range("B3"), Order1:=xlDescending, Header:=xlYes
括号中的数字调整一下就可以了

跳转到最佳答案楼层

qh8600

Sheet1.range(Cells(3,1),cells(1000,10)).Sort Key1:=Range("B3"), Order1:=xlDescending, Header:=xlYes
括号中的数字调整一下就可以了

gdpgdp317

Private Sub CommandButton1_Click()
Range("a3:f6").Select

Selection.Sort Key1:=Range("B4"), Order1:=xlDescending, Header:=xlYes
End Sub
这样吗？

芐雨

gdpgdp317 发表于 2015-1-30 18:30
Private Sub CommandButton1_Click()
Range("a3:f6").Select

    Sheet1.Range("a3:f6").Sort Key1:=Range("B4"), Order1:=xlDescending, Header:=xlNo


Sheet1.Range("a3:f6")   单元格范围
Header:=xlNo    默认值。应对整个区域进行排序，即没有标题

爱疯

excel小米

谢谢大家了，

爱疯

excel小米 发表于 2015-1-30 21:41
谢谢大家了，

解决了么，

excel小米

爱疯 发表于 2015-1-30 21:57
解决了么，

解决了。。谢谢大家了