VBA 他シートを参照しているセルのコピー

質問

お世話になります。
以下のシートがあります。

[sheet a]
　　　A　　　　　B 　　　　　　 C 　　　　　D 　　　　E
1 2004 2005 2006 2007 2008
2 =b!A2 =b!C2 =b!E2 =b!G2 =b!I2
3 10 15 16 4 11
4 12 30 20 9 2
5 =SUM(A3:A4) =SUM(B3:B4) =SUM(C3:C4) =SUM(D3:D4) =SUM(E3:E4)

[sheet b]
A B C D E 　F G H I J
2004 2005 2006 2007 2008
1 あ１ い１ う１ え１ お１ か１ き１ く１ け１ こ１
2 あ２ い２ う２ え２ お２ か２ き２ く２ け２ こ２
・・・・・・・・・

[sheet a]F列以降に入れるデータは、VBA（マクロ）を使って、別のブックから取り出しています。
(例)
F1…=E1+1（E1の数式をコピー）
F3,F4…任意の値（別のブックからコピー）
F5…=SUM(F3:F4)（E5の数式をコピー）

1行目,5行目の場合は左のセルをコピーして数式を貼り付けると、列が自動的に列が変わりますが、2行目の場合は元のシートを1行おきに参照しているので、単純にコピーしただけでは正しい数式が入りません。

2行目の参照をVBAで作るには、どのようにしたらいいでしょうか。
よろしくお願いします。

回答No.1

Sinogi · ベストアンサー

>[sheet a]F列以降に入れるデータは、VBA（マクロ）を使って、別のブックから取り出しています。
>(例)
>F1…=E1+1（E1の数式をコピー）
>F3,F4…任意の値（別のブックからコピー）

マクロを使っているならコピーしなくても直接記述するのはどうですか？

該当部分だけです。

Sub siki()
For a = 1 To 7
c = a - 1
Cells(2, a).Formula = "=b!RC[" & c & "]"
Next a

End Sub

セル番地のR1C1形式を覚えましょう

お礼

早速のご回答、ありがとうございました。
R1C1形式を考えていたのですが、上手く記述できませんでした。

右列が増える形になるので、右端を設定する形に修正したら、思ったものになりました。

ありがとうございました。

回答No.2

KURUMITO

2行目のデータを他のワークシートから持ってくるためにマクロを使用することもありませんね。
例えばsheetaのＡ2セルには次のような式を入力し、右方向にオートフィルドラッグすればよいでしょう。
=INDEX(b!2:2,1,COLUMN(A1)*2-1)

お礼

早速のご回答をありがとうございました。

処理をするデータが多い上に、何列目まで伸びるかわからないため、マクロを使用しています。