ＶＢＡ カスタムオーダーのあとの他の列の並び替え

いつもお世話になっております。
やりたいこと

Ｂ列　　Ｃ列　　　Ｄ列　　Ｅ列
商品 　売上日　　　単価 数量

があります。
商品でカスタムオーダーした後
"メロン,りんご,グレープフルーツ,ぶどう,なし,みかん"
数量を昇順することはできますでしょうか。

With ActiveSheet.Sort
.SortFields.Clear

.SortFields.Add2 Key:=Range("B1"), CustomOrder:="メロン,りんご,グレープフルーツ,ぶどう,なし,みかん"
.SortField.Add2 Key:=Range("E1"), Order:=xlAscending　'追加したらエラーになりました。
.SetRange Range("B1").CurrentRegion
.Header = xlYes
.Apply
End With

質問者からの補足コメント

• 

  カスタムオーダーしたあとに
  商品ごとの数量のみ昇順したいです
  商品の順番はそのままで、
  できますでしょうか

    補足日時：2021/06/11 17:58

No.1 ベストアンサー 回答者： めぐみん_ 回答日時： 2021/06/12 08:49

＞.SortField.Add2 Key:=Range("E1"), Order:=xlAscending　'追加したらエラーになりました。

どの様に追加されたのか不明ですが、

.SortField では s が抜けてます。

.SortFields.Add2 Key:=Range("E1"), Order:=xlAscending

この回答へのお礼

いつもお世話になっております。
Ｓいれたら上手くいきました。
ありがとうございました。

お礼日時：2021/06/12 20:53