離れたセル同士で並び替えが出来るようにしたい。

質問

複数のセルを結合させています。1つの項目が「L６」～「Q6」まで。2つ目の項目が「R6」～「S6」で結合されています。データは「L７」「R6」から下に数行あり(変動します)
「L6」の文字列をキーとして「R6」も一緒に昇順で表示させたい。
下記のVBAを作成したのですが、離れたセル同士では並び替え(ソート)が出来ないようです。お知恵をいただければ幸いです。宜しくお願い致します。

'◆「検索シート」のセルL7から指定範囲を解除する場合
Sub test1()

Worksheets("検索シート").Range("L7").CurrentRegion.UnMerge

Dim r As Range
Dim ret

Set r = Range("L6")

ret = r.Sort( _
Key1:=Range("R7"), _
Order1:=xlAscending, _
Header:=xlYes)

'◆「検索シート」のセルL7から指定範囲を結合する場合
Worksheets("検索シート").Range("L6").CurrentRegion.Merge

End Sub

回答No.1

kkkkkm · ベストアンサー

どこか別のセルに隣り合わせでコピーして習い変えて元のセルにコピーし直すか、VBAのSortを使わずに

VBAで必要となる基本的なアルゴリズムについて（ソートアルゴリズム、Excel列番号の取得など）
https://qiita.com/t-yama-3/items/edea854e58dd0f1ebe79

のソートアルゴリズムを使って自前で並び直すかで試してみてください。

回答No.1

SI299792

データがどうなっているのか判りません、せめて画像位付けて下さい。
L6～Q R9～S が横方向に結合されていると解釈します。
この場合、道楽して１か所だけSortしようととするからできないのです。めんどくさがらず、きちんと範囲指定をすればできます。
Option Explicit
'
Sub Macro1()
　　Dim REnd As Long
'
　　REnd = Cells(Rows.Count, "L").End(xlUp).Row
　　Range("L7:S" & REnd).UnMerge
　　Range("L7:R" & REnd).Sort Key1:=[L7]
　　Range("L7:Q" & REnd).Merge True
　　Range("R7:S" & REnd).Merge True
End Sub

この解釈が間違っている場合、締め切った後、画像付きで再質問して下さい。すぐ回答が付くと思います。（締め切らずに同じ質問をすると、マルチポストで規約違反です）