Excel VBAのコードを教えて下さい。
Excel VBAのコードを教えて下さい。 データをテーブル化し、見出しセルA1【所属】・見出しセルB1【購入者名】・見出しセルC3【購入依頼日】があるとします。【所属】は「生産1〜5課・開発課・企画課・技術課」が存在します。 【所属】を「空欄、生産1〜5課・開発課・企画課・技術課」の順で上から並べ、尚且つ【購入者名】は同じ名前の人は固めて表示したいです。 こういった場合のコードを教えていただきたいです。よろしくお願いします。
Excel・27閲覧
ベストアンサー
https://detail.chiebukuro.yahoo.co.jp/qa/question_detail/q11309106981
以下で良いと思います。 ただし、エクセルではソートすると空白セルは、昇順・降順に関わらず最終にソートされます。 '---カスタムオーダーの基準 Const Temp = "生産1～5課,開発課,企画課,技術課" Dim EndR, Rng As Range '---A列で最終入力行を取得 EndR = Cells(Rows.Count, "A").End(xlUp).Row '---ソートする範囲をセット Set Rng = Range("A1:C" & EndR) With ActiveSheet.Sort .SortFields.Clear '---設定をクリア '---独自のソート基準をセット .SortFields.Add _ Key:=Range("A1"), _ Order:=xlAscending, _ CustomOrder:=Temp '---2列目(購入者名)のソートをセット .SortFields.Add _ Key:=Range("B1"), _ Order:=xlAscending .SetRange Rng '---ソートされる範囲 .Header = xlYes '---1行目は項目行 .Apply '---ソート実行 End With
この回答はいかがでしたか？ リアクションしてみよう
質問者からのお礼コメント
ありがとうございます！！
お礼日時：1/14 2:35
