エクセル 数式のコピー・貼付について

質問

エクセルの数式のコピー・貼付について教えてください。

シート１にデータが１０００行くらい入っているとします。

　　　Ａ　　　Ｂ　　
１　１００　　５
２　２００　　３
３　３５０　　９
：　　：　　　：
：　　：　　　：

シート２のセルＡ１、Ａ２に　=A1*B1
シート２のセルＡ３、Ａ４に　=A2*B2
シート２のセルＡ５、Ａ６に　=A3*B3

と、２行ずつ数式を入れたいのですが、
普通にコピー貼付をするとセル番地が自動的に
増えていってしまいます。
２行ずつ、同じセル番地の数式を入れる方法がありますでしょうか。
どうぞよろしくお願いいたします。

回答No.5

xls88 · ベストアンサー

普通にシート２に数式を入力（シート１のシート名がつくはず）
=シート１!A1*シート１!B1
=シート１!A2*シート１!B2
=シート１!A3*シート１!B3
・
・
・
上記数式入力セル範囲を選択
「編集」メニューの「置換」で
=
を
#
に「すべて置換」
セル範囲が選択状態のまま
Ctrl＋C でコピー
Ctrl＋↓、続けて ↓ 、で数式セル最下行の１行下に移動
Ctrl＋V、で貼り付け
数式セルの列を「昇順」で「並べ替え」
数式セル範囲を選択
「編集」メニューの「置換」で
#
を
=
に「すべて置換」

お礼

ご回答ありがとうございます。
この方法だと、シート２の数式を見たら
シート１のどのセルを参照しているか
わかりやすいため、この方法を利用させていただきます。
仕事で使うため誰が見てもわかるほうが便利なので
助かりました。
ありがとうございました。

回答No.4

noname#204879

Sheet2!A1: =OFFSET(Sheet1!$A$1,(ROW(A1)-1)/2,0)*OFFSET(Sheet1!$B$1,(ROW(B1)-1)/2,0)

お礼

ご回答ありがとうございます。
この数式で出来ました。
ありがとうございました。

回答No.3

soixante

＃２です。
マクロを使えば、シート２に入れる数式は、
=Sheet1!A1*Sheet1!B1
のようにすっきりいけそうです。
たぶんこれが一番求めていらっしゃる形かと思います。

標準モジュール。

Sub Sushiki()
Dim r As Integer
Dim i As Integer
Dim j As Integer
Dim MyRow As Integer
Dim Ws1 As Worksheet
Dim Ws2 As Worksheet
Set Ws1 = Worksheets("Sheet1")
Set Ws2 = Worksheets("Sheet2")

MyRow = Ws1.Cells(Rows.Count, 1).End(xlUp).Row
j = 1

For r = 1 To MyRow * 2
i = Application.WorksheetFunction.RoundUp(r / 2, 0)
Ws2.Cells(j, 1).Formula = "=Sheet1!A" & i & "*Sheet1!B" & i
j = j + 1
Next r
Set Ws1 = Nothing
Set Ws2 = Nothing
End Sub

お礼

ご回答ありがとうございます。
今回はコピー貼付でやりたかったのですが
とても参考になりました。
（仕事で使う表なので誰もがわかるように
しておかないと後々大変なのです。）

回答No.2

soixante

ご希望の形と違うかもしれません。
でも計算結果はお求めのものが出ると思います。

■方法１
・Sheet2　の　A1セルに
=OFFSET(Sheet1!$A$1,ROUNDUP(ROW()/2,0)-1,0,1,1)*OFFSET(Sheet1!$B$1,ROUNDUP(ROW()/2,0)-1,0,1,1)

と入れて、下に引っ張る。シート１のデータが1000行あるなら、シート２は2000行まで。

■方法２
・Sheet2　の　A1セルに
=INDIRECT("Sheet1!a"&ROUNDUP(ROW()/2,0))*INDIRECT("Sheet1!b"&ROUNDUP(ROW()/2,0))

と入れて、下に引っ張る。同様に2000行まで。

お礼

ご回答ありがとうございます。
方法１、２ともに出来ました。
ありがとうございました。

回答No.1

MAD0NNA

こんばんは

シート２のセルＡ１、Ａ２に　=A1*B1

と、２行ずつ数式を入れてから、

Ａ１、Ａ２を複数選択して

普通通りに、セルの右下十字マークを、下え引張ってください。（コピー）

いかがでしょうか？

見当外れの答えなら、聞き流してくださいませ。

お礼

ご回答ありがとうございます。
この方法でコピーすると、Ａ３、Ａ４には
シート１の　=A3*B3　が出てしまい出来ませんでした。