[已解决]请大侠帮忙解决VBA排序问题！谢谢

ynbslyq

问题：因刚接触vba，急用VBA方式处理，以“数据2”为主关键字，“数据3”为次关键字排序（B6：G14,升序)，数据行不是固定的，每次需判断数据行数，请看附件，请高手帮忙，谢谢！

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2014-3-11 07:59

ynbslyq 发表于 2014-3-11 00:08
不好意思，当时着急，没注意，问题没说清，十分感谢，请再帮忙解决！

那就稍微改下

1.     With Range("B5:d" & cells(rows.count,"b").end(xlup).row)
   
2.         .Sort Key1:=Range("C6"), Order1:=xlAscending, Key2:=Range("D6"), _
   
3.               Order2:=xlAscending, Header:=xlYes
   
4.     End With

复制代码

跳转到最佳答案楼层

hwc2ycy

1.     With Range("B5").CurrentRegion
   
2.         .Sort Key1:=Range("C6"), Order1:=xlAscending, Key2:=Range("D6"), _
   
3.               Order2:=xlAscending, Header:=xlYes
   
4.     End With

复制代码

ynbslyq

hwc2ycy 发表于 2014-3-10 23:37

非常感谢大侠，可以排序，但该代码把表中（B列-H列）都排序了，我只对B-D列排序（3列），怎么改呢，数据行不确定（C列为主关键，D列为次关键，排B列-D列。谢谢

hwc2ycy

ynbslyq 发表于 2014-3-10 23:58
非常感谢大侠，可以排序，但该代码把表中（B列-H列）都排序了，我只对B-D列排序（3列），怎么改呢，数据行 ...

你排序后的结果也是变了的嘛。

ynbslyq

hwc2ycy 发表于 2014-3-11 00:05
你排序后的结果也是变了的嘛。

不好意思，当时着急，没注意，问题没说清，十分感谢，请再帮忙解决！

hwc2ycy

ynbslyq 发表于 2014-3-11 00:08
不好意思，当时着急，没注意，问题没说清，十分感谢，请再帮忙解决！

那就稍微改下

1.     With Range("B5:d" & cells(rows.count,"b").end(xlup).row)
   
2.         .Sort Key1:=Range("C6"), Order1:=xlAscending, Key2:=Range("D6"), _
   
3.               Order2:=xlAscending, Header:=xlYes
   
4.     End With

复制代码

ynbslyq

hwc2ycy 发表于 2014-3-11 07:59
那就稍微改下

太感谢了！救急了，千万个感谢！谢谢

hwc2ycy

ynbslyq 发表于 2014-3-11 09:19
太感谢了！救急了，千万个感谢！谢谢

解决了就给个最佳答案吧，