Excel2000で連続データの空白行を挿入したい。

質問

Excel2000で連続データの空白行を挿入したい。

A1=B1+C1
A2=B2+C2
A3=B3+C3
(あと続く)

と連続データになっているものに空白行を2行入れる方法を教えてください。

結果的に下記のようにしたいのです。

A1=B1+C1
A2=空白
A3=空白
A4=B2+C2
A5=空白
A6=空白
A7=B3+C3
(あと続く)

ジャンプ機能を使うとできた気がするのですが・・・。
よく覚えていなく、わかりません。

どなたか教えてください。
よろしくお願いします。

回答No.1

akiomyau · ベストアンサー

例えばA1からA100までにデータがあるとします。
開いている列に
１から１００までの連続データを作ります。
該当の１から１００までの数字を下方向に2回コピーします。
１から１００までの数字の列を並べ替えを実行します。
あとは１から１００まで入力した列を削除します。

お礼

早速の回答ありがとうございます。
目的の列ができました。
並び替えを利用すればいいんですね。目からウロコです。
ありがとうございました。

回答No.6

Wendy02

#5の回答者です。
訂正　#カンやタブなどの区切り文字--そのまま完了　(マが抜けていました。）
カンマやタブなどの区切り文字--そのまま完了　

マクロにアレルギーがなければ、以下のマクロを実行すれば、数式が貼りつきます。
シートタブ--コードの表示--以下のコードを貼り付けて、マクロにマウスカーソルを置き
F5 で実行

Sub Test1()
Dim i As Long
Dim j As Long
　j = 1
　For i = 1 To 100 Step 3 '100行まで
　　'1 A列
　 Cells(i, 1).Formula = "=B" & j & "+C" & j
　 j = j + 1
　Next
End Sub

回答No.5

Wendy02

私の方法

A1 に以下の数式を入れる
="=B"&ROW(A1)&"+C"&ROW(A1)
B1 に以下の数式を入れる
=(ROW(A1)-1)*3+1

B列が、100になるところまで、オートフィルドラッグをします。

100になった次のB列(たぶん、B35)

もう一度、B列(たぶん、B69）に、
=(ROW(A1)-1)*3+1
に入れて、100になるまで、オートフィルドラッグします。

全体をコピーして、形式を選択して--値を選択して、貼り付け

並べ替え--B列を対象とする。

A1から、100行目のA100までを選択して、区切り位置

カンやタブなどの区切り文字--そのまま完了

そうすると、数式は出来上がっています。

これは、昔、Excel2000時代に教わった方法で、分かっている人なら、簡単だけれども、分かっていないと、ちょっとややこしいかもしれません。区切り位置を使うのがミソです。

回答No.4

okormazd

A1セルに，「=B1+C1」
A2,A3セルを空にして，
A4セルに，「=OFFSET(B4,-ROW()/2,0)+OFFSET(C4,-ROW()/2,0)」
として，
A2・A3・A4の3つのセル範囲を選択して，フィルハンドルで，必要なだけ下にフィルする。

A4が「=B4+C4」になってもいいというなら，質問が不備だ。
この回答は，質問どおり，

A4は，「B2+C2」になっている。

回答No.3

kagakusuki

A1セルには

=B1+C1

と入力してから、A4セルに

=SUM(OFFSET($B$1:$C$1,ROWS($1:1)/3,0))

と入力して下さい。
　次にA2～A4の範囲を一度に選択して下さい。
　次に選択範囲を囲んでいる太枠の右下にある黒い点にカーソルを重ねて下さい。
　それから、マウスの左ボタンを押したまま、カーソルを下へ移動させれば、２行置きに数式が入力されます。
　数式を入力する行を追加する場合は、既に数式が入力されているセルとその上にある２個の空欄セル（又は下の２個でも良い）の、合わせて３個のセル範囲を選択してから、同様にドラッグして下さい。
　因みに、元の数式が

=B2+C2

ではなく、

=B2-C2

である場合には、A4セルに入力する数式を、次の様に変更して下さい。

=OFFSET($B$1,ROWS($1:1)/3,0)-OFFSET($C$1,ROWS($1:1)/3,0)

回答No.2

mu2011

一例です。
（１）D1に1、D2に２入力→D1:D2を選択し、フィルハンドル（セル選択した右枠したの■）をダブルクリック
（２）フィル範囲を下方向に２回ペースト→Ｄ列を選択→並び替えで昇順→Ｄ列削除