Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


6967 / 76732 ←次へ | 前へ→

【75361】Re:VBA結合セルでのデーターソートについて
回答  あきな  - 14/2/23(日) 16:57 -

引用なし
パスワード
   次の手動での操作をマクロ記録した後、編集してみました。
 (1)結合されているA列をコピー
 (2)結合されていないC〜F列を選択 → 形式を選択して貼り付け → 書式を選択してOK
 (3)並べ替え
 (4)C〜F列を選択して、結合解除

以下の条件で動作します。ご自分の環境に合わせて編集してください。

 1.データ範囲(A1:F11 / 1行目はタイトル)
 2.J2セルに並べ替えを行う列を指定(A列で並べ替えるなら「A1」と入力)
 3.このプロシージャでは、データを昇順に並べ替えるようになっています。
   降順にしたい場合は、Order:=xlAscendingを、Order:=xlDescending
   としてください。


Sub 結合セルでのソート()
  With ActiveWorkbook.ActiveSheet
  
    Range("A2:A11").Copy
    Range("C2:F11").PasteSpecial Paste:=xlPasteFormats
    Application.CutCopyMode = False
  
    .Sort.SortFields.Clear
    .Sort.SortFields.Add Key:=Range(Range("J2").Value), _
    SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
  End With

  
  With ActiveSheet.Sort
    .SetRange Range("A2:H11")
    .Header = xlNo
    .MatchCase = False
    .Orientation = xlTopToBottom
    .SortMethod = xlPinYin
    .Apply
  End With
  

  Range("C2:F11").Select
  Selection.UnMerge
  Range("A1").Select

End Sub

0 hits

【75351】VBA結合セルでのデーターソートについて はやさん 14/2/16(日) 11:07 質問
【75354】Re:VBA結合セルでのデーターソートにつ... あきな 14/2/16(日) 16:10 発言
【75355】Re:VBA結合セルでのデーターソートにつ... はやさん 14/2/16(日) 16:33 お礼
【75360】Re:VBA結合セルでのデーターソートにつ... あきな 14/2/20(木) 21:52 発言
【75361】Re:VBA結合セルでのデーターソートにつ... あきな 14/2/23(日) 16:57 回答

6967 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free