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 propertyしましWithた.
  2. Range("B1")あなたの質問からの情報に従って、ソートキーを設定しました。

必要に応じて、状況に応じてこれらのポイントを変更できます。

于 2013-06-19T16:40:10.527 に答える