|
次の手動での操作をマクロ記録した後、編集してみました。
(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
|
|