| |
次の手動での操作をマクロ記録した後、編集してみました。
（１）結合されているA列をコピー
（２）結合されていないC〜F列を選択 → 形式を選択して貼り付け → 書式を選択してOK
（３）並べ替え
（４）C〜F列を選択して、結合解除
以下の条件で動作します。ご自分の環境に合わせて編集してください。
１.データ範囲（Ａ１：Ｆ１１ / １行目はタイトル）
２.Ｊ２セルに並べ替えを行う列を指定（Ａ列で並べ替えるなら「Ａ１」と入力）
３.このプロシージャでは、データを昇順に並べ替えるようになっています。
降順にしたい場合は、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
|
|
あきな
- 14/2/23(日) 16:57 -
