エクセル ＶＢＡ

質問

Ａ列に番号が１から順番にコード番号がはいっています。所々欠番が合ったりするのでそれをマクロで自動に行を挿入したいのですができますでしょうか？
文章だとうまくいえないので、
Ａ　　　Ｂ　　　　　Ｃ
１　　　〇×商品　　１０，０００
２　　　ＡＡ商品　　３０，０００　
４　　　ＢＢ商品　　２５，０００
６　　　ＺＺ商品　　２０，０００
を
１　　　〇×商品　　１０，０００
２　　　ＡＡ商品　　３０，０００
３
４　　　ＢＢ商品　　２５，０００
５　　　
６　　　ＺＺ商品　　２０，０００

といった感じに欠番を追加してその行の右側すべてに空白のセルを追加する方法があれば教えて下さい。

回答No.3

keirika · ベストアンサー

Sheet1にデータが入力されていると仮定します。

マクロは以下の通りです

Sub aaa()

Dim i As Integer

i = 0

Do Until Worksheets("Sheet1").Range("a1").Offset(i, 0).Value = ""

Worksheets("Sheet1").Range("a1").Offset(i, 0).Activate

If ActiveCell.Value <> ActiveCell.Row Then
Rows(ActiveCell.Row).Insert
Worksheets("Sheet1").Range("a1").Offset(i, 0).Value _
= ActiveCell.Row
End If

i = i + 1
Loop

End Sub

EXCEL2003使用

動作確認はしていますが、上手く動作しない場合はご容赦ください。

お礼

回答ありがとうございました。無事解決しました。

回答No.4

imogasi

A列を１から順番にする方法
Sub test02()
d = Range("A65536").End(xlUp).Row
j = 1
Cells(1, 1).Activate
cmp:
If ActiveCell = Cells(d, "A") Then Exit Sub
If j = ActiveCell Then GoTo p1
If j < ActiveCell Then GoTo p2
p1:
j = j + 1
ActiveCell.Offset(1, 0).Activate
GoTo cmp
p2:
ActiveCell.EntireRow.Insert
ActiveCell = j
j = j + 1
ActiveCell.Offset(1, 0).Activate
GoTo cmp
End Sub
１からの１づつアップする独立カウントのｊと、現実のセルのA列の番号を、マッチングのロジックで、番号の少ないほうをA列にセットする（独立カウントの方は行挿入してそこへｊをセット）ロジックになっています。

お礼

回答ありがとうございました。解決できました。

回答No.2

aco_michy

＞素人なんで全く分かりません。

for～nextループ知っていますか？

回答No.1

BLUEPIXY

Ａ列を走査して、Ａ列の番号の後ろに欠番を補って、
Ａ列で並び替えるのが簡単だと思います。（そういうマクロを作る）

補足

さっそくの回答ありがとうございます。もしよろしければモジュールに書くコードを教えていただけないでしょうか？素人なんで全く分かりません。