EXCEL VBA 複数セルの移動

質問

かなり困っています。
どなたかヒントだけでもご教示お願いいたいます。

A列に大項目
B列に中項目

というリストがあります。
A.1に大項目があると、次の大項目が１０行ぐらい下に入ります。（決まっていはいません。）
次の大項目がA.10とすると、中項目はB.1からB.8と、次の大項目が始まる一つ上のセルが、
最終行の中項目のセルとなります。

目的は大項目と同じ行に中項目があるので、これを１行下にずらしたいと思います。
中項目は次の大項目まで連続しているわけではなく、歯抜けのものが結構あります。

これが５０万行もありマクロを使用しないと、何週間たっても終わりそうにありません。

どなたか、何卒ヒントだけでもお願いいたします。

回答No.4

tom04 · ベストアンサー

こんばんは！
すでに回答は出ていますので、参考程度で・・・

↓の画像のような感じになればよいのですよね？

データは2行目からあるとします。

Sub test()
Dim i As Long
For i = Cells(Rows.Count, 2).End(xlUp).Row To 2 Step -1
If Cells(i, 1) <> "" And Cells(i, 2) <> "" Then
Rows(i).Insert
End If
Next i
Cells(2, 1).Delete (xlUp)
End Sub

こんな感じではどうでしょうか？

＞５０万行もあり・・・

とありますので、結構時間がかかるかもしれません。
参考になれば良いのですが・・・m(_ _)m

お礼

ありがとうございました。
希望どうりのファイルができました。

素晴らしい！！

回答No.3

imogasi

文章だけでは質問のデータ情況と、したいことがよくわからない。
既に回答が出ていると考えずに、例データを１０行ぐらい例示してみて、説明し、質問するものだ。
大項目２－３、中項目各々２－３の例でわかるだろう。
現状のシートデータと修正後のシートのデータの有様を。
各大項目の行数と、また各中項目の行数が一定でないだろうから、表の行数が組み換えなので、関数では難しく、ＶＢＡを使わざるを得ない、ように見える。
別シートに目的の物を作ることになると思うが、ＶＢＡコードの作り方の前に、日本語では、どうすれば組み替えられるのか表現し考えることも必要だ。
ーー
＞中項目は次の大項目まで連続しているわけではなく、歯抜けのものが結構あります。
ただ大項目（Ａ列とする）の行範囲は守りながら、Ｂ列に中項目が上から列挙されているだけか。
中項目の方が多い場合は無いのか？
歯抜けとは、中項目が存在しない大項目があるということ？

お礼

基本的なご指摘ありがとうございます。

本件解決しましたが、

>ただ大項目（Ａ列とする）の行範囲は守りながら、Ｂ列に中項目が上から列挙されているだけか。
中項目が列挙されているだけです。

>中項目の方が多い場合は無いのか？
>歯抜けとは、中項目が存在しない大項目があるということ？
すべての大項目には中項目が存在しますが、中項目がところどころ抜けているということでした。

質問が、わかりにくく申し訳ありません。
御礼遅れてすみません。

回答No.2

mu2011

NO1です。
表の見出し行を考慮していませんでしたので、大項目の開始行を調整して下さい。
（２行目からの場合）

For i = Cells(Rows.Count, 2).End(xlUp).Row To 1 Step -1
　↓
For i = Cells(Rows.Count, 2).End(xlUp).Row To 2 Step -1

お礼

ご回答ありがとうございます。
御礼遅れて申し訳ありません。

本件解決しました。

回答No.1

mu2011

一例です。
Ｂ列を基準に対応Ａ列が空白以外ならば大項目・中項目行なので行を挿入、大項目を移動しています。
対象シートタブ上で右クリック→コードの表示→以下のコードを貼り付け→Ｆ５キー押下
因みに元シートで直接せずに、コピーシートでお試しください。

Sub sample()
For i = Cells(Rows.Count, 2).End(xlUp).Row To 1 Step -1
If Cells(i, 1) <> "" Then
Rows(i).Insert
Cells(i + 1, 1).Cut Cells(i, 1)
End If
Next
End Sub