ソートメソッドのカスタムオーダーを変数にするとうまくいかない

Question

ソートメソッド内のカスタムオーダーに変数「ca」を使い並べ替えを行うために以下のコードを作成しました。

 With ActiveSheet.Sort '利用データ並べ替え
     .SortFields.Clear
     .SortFields.Add2 Key:=Range("A11"), CustomOrder:="""" & ca & """", Order:=xlAscending
     .SetRange Range(Cells(11, 1), Cells(kRow - 2, 7))
     .Header = xlNo
     .Apply
  End With

ところが変数ca内の最初の要素を無視して並べかえを行ってしまいます。

そこで「"""" & ca & """"」の部分を直接文字列で入れ替えたところ問題なく作動しました。
※入れ替えた文字列は、「Msgbox """" & ca & """"」で確認しています。

変数「"""" & ca & """"」を入れた場合にのみ、最初の要素を無視して並べ替えを行ってしまう原因を知りたく質問致しました。
心当たりが在りましたらご助言いただければ幸いです。
よろしくお願いします。

Answer 1

""が多いかもしれません。以下修正でどうなりますでしょうか。

  .SortFields.Add2 Key:=Range("A11"), CustomOrder:="" & ca & "", Order:=xlAscending

Comments

[ice930]

ご指摘の通りでしたありがとうございます！
りなみに、「”」が多いと、最初の項目が飛ばされてしまうのは何故なのでしょうか・・・。
もしよろしければご教授いただけると幸いです。

[Y.H.]

ca="hoge,fuga" なら caには「hoge,fuga」という文字列が入ります。
"""" & ca & """" は 「"hoge,fuga"」という文字列になります。よって、直指定した場合は
CustomOeder:="""hoge,fuga""" と指定したことになります。

[TanakaHiroaki]

Y.H.さん　解説ありがとうございます。

Answer 2

CustomOrder:="""" & ca & """" → CustomOrder:=ca

Comments

[ice930]

ご回答ありがとうございます！
過去に同じことをやったのですが、変数だけだと「型が一致しません」となってしまいます。

[Y.H.]

ca ってString型の変数じゃないんですか？
String型の変数でないのであれば、CustomOrder:=“” & ca とかして無理矢理String型にしてください。