[已解决]如何实现按要求排列。

hdz

请高手帮助用VBA实现排序，非常感谢。

最佳答案

月排行榜 / 总排行榜

zjdh

2013-12-23 17:46

Sub test()
    Range("A3:J" & Range("A65536").End(3).Row).Sort Key1:=Range("B3"), Order1:=xlAscending
End Sub

跳转到最佳答案楼层

zjdh

Sub test()
    Range("A3:J" & Range("A65536").End(3).Row).Sort Key1:=Range("B3"), Order1:=xlAscending
End Sub

zjdh

Book1.rar (19.55 KB, 下载次数: 3)

2013-12-23 17:49 上传

点击文件名下载附件

hdz

这么简单啊，谢谢

hdz

为什么不能用call来运行。我想在另一表中点修改按钮时call一下，实现自动排序，出现错误。我不想在本表中，点排序按钮。能不能实现。谢谢

zjdh

hdz 发表于 2013-12-24 11:32
为什么不能用call来运行。我想在另一表中点修改按钮时call一下，实现自动排序，出现错误。我不想在本表中， ...

可以啊，举例：
Sub test()
   With Sheets("sheet1")
    .Range("A3:J" & .Range("A65536").End(3).Row).Sort Key1:=.Range("B3"), Order1:=xlAscending
   End With
End Sub

hdz

为什么加了WITH就能行？

zjdh

仔细看看，Rang 前还有一个点。