excel：別シートの値を飛び飛びで参照させたい

エクセルです。
数値データが１列に２千個並んでます。
その数値データを別シートから５個おきに参照しようとしてます。通常なら
=sheet1!A1
=sheet1!A6
=sheet1!A11
のように入力していけばいいのですが、元データが２千個なので参照する方も400個と大量にあります。一個ずつ入力したくはありません。一気に済ませる方法はないでしょうか？

No.2 ベストアンサー 回答者： hallo-2007 回答日時： 2008/10/09 22:39

=INDIRECT("Sheet1!A"&(ROW(A1)-1)*5+1)

で下方向へコピィしてためしてください。

この回答へのお礼

ありがとうございます。
試してみます。

お礼日時：2008/10/09 23:28

No.3 回答者： mitarashi 回答日時： 2008/10/09 22:46

#1です。

ついでにVBA案。
Sub test()
Dim destRange As Range
Dim i As Long

Set destRange = Sheets("Sheet2").Range("a1")
For i = 1 To 2001 Step 5
destRange.Formula = "=Sheet1!A" & Format(i)
Set destRange = destRange.Offset(1, 0)
Next i
End Sub

この回答へのお礼

ありがとうございます。
複雑なようなので＃１または＃２でいきたいと思います。

お礼日時：2008/10/09 23:29

No.1 回答者： mitarashi 回答日時： 2008/10/09 22:33

たとえばSheet2のA1に1を入れた後、編集／フィル／連続データの作成で、

範囲：列、増分値：5、停止値：2001を入れてOKをクリックすると、
A列に1,6,11,...の数値が入るので、
B列に、=INDIRECT("Sheet1!A" & A1)といれて、下方にずずっとコピーして参照するなんてのはいかがでしょうか。

この回答へのお礼

ありがとうございます。
試してみます。

お礼日時：2008/10/09 23:27