エクセルの操作について質問です。

A列、B列にデータがあるとして、以下のマクロでどうでしょうか。

Sub my_sort()
    Dim i As Long
    
    For i = 1 To 65536
        If Cells(i, 1) = "" Then Exit For
        
        Select Case Cells(i, 1)
        Case Is < Cells(i, 2)
            Cells(i, 2).Insert shift:=xlDown
        Case Is > Cells(i, 2)
            Cells(i, 1).Insert shift:=xlDown
        End Select
    Next
End Sub

http://q.hatena.ne.jp/

A       B
1	1
2	3
3	4
5	6
8	9

だとして、

• C列に以下のように連番を入力

A	B	C
1	1	1
2	3	2
3	4	3
5	6	4
8	9	5
		6
		7
		8
		9

• D1に

=IF(COUNTIF(A:A,$C1),$C1,"")

として、下方向にコピー

• D列をE列にコピー
• F1に

=D1&E1

として下方向にコピー

すると以下のようになる。

A	B	C	D	E	F
1	1	1	1	1	11
2	3	2	2		2
3	4	3	3	3	33
5	6	4		4	4
8	9	5	5		5
		6		6	6
		7			
		8	8		8
		9		9	9

• オートフィルタでF列が空白の行を選択し、行ごと削除すると、D,E列に目的のデータができている
• [コピー]-[AB列選択]-[右クリック]-[形式を選択して貼り付け]-[値のみ]でAB列に書き戻して
• C列以下削除する。

ダミーURL

http://d.hatena.ne.jp/robbie21/