excel vba排序货币列降序

Question

我有一张包含2列的工作表A有商店名，B有货币值

我想按降序排列B列

这就是我所做的：

With Sheets("helpsheet")
    .Sort Key1:=Range("A"), Order1:=xlDescending, Header:=xlYes       
End With

它不起作用。我有什么不同的做法？

Answer 1

VBA中有一些可用的排序选项。改进代码的最简单方法是添加要排序的一系列数据。因此，您需要将代码改进为以下内容：

With Sheets("helpsheet").Range("a1").CurrentRegion
    .Sort Key1:=Range("B1"), Order1:=xlDescending, Header:=xlYes
End With

我做了什么：

1. 假设您的数据范围从Range("A1")开始并生成一个区域（因此我在CurrentRegion property行中使用了With。
2. 我根据您提问中的信息将排序键设置为Range("B1")。

如果需要，您可以根据自己的情况更改这些要点。