0

我有一张有 2 列的表格 A 有商店名称,B 有货币价值

我想按降序排列B列

这是我所做的:

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

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

4

1 回答 1

1

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

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

我做了什么:

  1. 假设您的数据范围开始于Range("A1")并创建一个区域(因此我使用CurrentRegion propertyin Withline.
  2. Range("B1")我根据您的问题中的信息将排序键设置为。

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

于 2013-06-19T16:40:10.527 回答