excelで行挿入について

質問

excel97を使っているのですが、まず下の表を見てください。

行/列 　　A　　B　　C　
　1　　メーカ　　　　
　2　　あ　　　　　　　　　
　3　　い　　　　　　　　　　
　 4　　合計　　　　　　　　　
　5　　う　　　　　　　
　6　　え　　　　　　　　　
　7　　お　　　　　　　　　　　　
　8　　か　　　　　　　　 　　　　

このような表があるのですが、行１～４で一つのグループなんです。
同じように
　行４と行５の間に「メーカ」
　行６と行７の間に「合計」
というふうに「メーカ」挿入、２行空けて「合計」挿入、「メーカ」挿入・・・を約千行分繰り返して

行/列　　A　　B　　C
　1　　メーカ　　　　
　2　　あ　　　　
　3　　い　　　　
　4　　合計　　　　
　5　　メーカ　　　　
　6　　う　　　　
　7　　え　　　　
　8　　合計　　　　
　9　　メーカ　　　　
10　　お　　　　
11　　か　　　　
12　　合計　　　　

このようにしたいのですが、簡単な方法は無いでしょうか？

回答No.3

mu2011 · ベストアンサー

次の方法は如何でしょうか。
（１）別列（仮にＢ列）のB1にメーカ、B2に#A1、B3に#A2、B4に合計を入力
（２）B1:B4を選択→下方向にコピー
（３）Ｂ列を選択→編集→置換で#を=に置換
（４）Ｂ列をコピー→Ａ列に形式を選択して貼り付け→値を選択→ＯＫ
（５）Ｂ列を削除
因みにＡ列の１行目、４行目のメーカ、合計は挿入されていない事としています。

お礼

簡単にできました！ありがとうございました

回答No.2

boke-chan

説明も難しいですが、難しいことをしないとすれば、

1) 1列挿入する　（A列とする）
2) A列に、数字を１からデータの最後まで付ける
3) 行の下の方に、メーカと合計の行を必要数作る
4) 3)で作ったA列に数字を入れる　
　　メーカなら　4.5　8.5　12.5など規則性がありますね。
5) A列で並び替える。

回答No.1

nattocurry

VBAマクロであれば、下から順に2行おきに2行挿入して「合計」「メーカ」を書き込めば良いだけなんですけど、このような質問をしているということは、VBAマクロは解らないと思うので、ちょっと手間はかかりますが、関数での方法を。

計算しやすいように、あえて、A列を、

1　あ
2　い
3　う
4　え
5　お
6　か

というデータに直してから、

B1に「メーカ」と書き、

B2に

=IF(MOD(ROW(),4)=1,"メーカ",IF(MOD(ROW(),4)=0,"合計",INDEX(A:A,ROW()-COUNTIF(B$1:B1,"メーカ")-COUNTIF(B$1:B1,"合計"))))

という数式を入力し、B2を下にコピーすると、B列は

1　　メーカ　　　　
2　　あ　　　　
3　　い　　　　
4　　合計　　　　
5　　メーカ　　　　
6　　う　　　　
7　　え　　　　
8　　合計　　　　
9　　メーカ　　　　
10　　お　　　　
11　　か　　　　
12　　合計　　　　

となります。

あとは、B列をコピーして、「形式を選択して貼り付け」で値をA列にコピーすれば、お望みの結果が得られます。