求大神帮忙

无敌神雕

大神帮忙下，目的是把b列相同的排程在一起，如何用vba代码实现

sxbjzjf110

录制一个宏就可以实现。

tanglf188

1.     With Sheet3.Sort
   
2.         .SortFields.Clear
   
3.         .SortFields.Add2 key:=Range("B2:B27"), SortOn:=xlSortOnValues, Order:=xlAscending 'xlDescending则按降序排
   
4.         .SetRange Range("A2:M27")
   
5.         .Apply
   
6.     End With
   

复制代码

3190496160

这个不必要用vba吧？直接根据b列升序或者降序排序不就行了吗？
即使硬要用代码，录制一段宏稍加修改即可