質問: 歯抜けの番号を埋めて行の挿入 部門 コード 商品名 業者 単位 分類 出数 原価 直営 単価差益 3 1 油 油屋 缶 油 1 500 550 50 3 2 水 水屋 リットル 水 1 500 550 50 3 5 栗 栗屋 kg 野菜 1 500 550 50 3 8 筍 筍屋 kg 野菜 1 500 550 50 ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ 上の図を下の図の様に歯抜けになっている番号を入れたいのですが、地味な作業で入れていくにはかなりの量がありまして、何か良い方法がありましたら教えてください。 部門 番号 コード 商品名 業者 単位 分類 出数 原価 直営 単価差益 3 1 1 油 油屋 缶 油 1 500 550 50 3 2 2 水 水屋 リットル 水 1 500 550 50 3 4 3 5 5 栗 栗屋 kg 野菜 1 500 550 50 6 7 3 8 8 筍 筍屋 kg 野菜 1 500 550 50 ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
回答: vbaを使います。 「フォーム」のツールバーからボタンを選択して好きなところにボタンを貼り付けます。 「マクロの登録」で「新規登録」以下のコードを貼り付けてください。 ワークシートのデータの範囲に、「範囲」という名前を付けます。 ボタンを押せばok。 ------------------------- sub ボタン1_click() dim arange as range set arange = range("範囲") max% = arange.rows.count i% = 1 while i% < max% if arange.cells(i%, 2) <> arange.cells(i% + 1, 2) - 1 then arange.rows(i% + 1).insert arange.cells(i% + 1, 2) = arange.cells(i%, 2) + 1 max% = max% + 1 end if i% = i% + 1 wend end sub