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")并形成一个区域（因此我在With行中使用了CurrentRegion property 。
2. 我根据您问题的信息将排序键设置为Range("B1") 。

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