ＥＸＣＥＬ 参照セルを２列ずらしたいです

関数など調べてみたのですが、うまくできずに投稿しました。

現在WindowsＶｉｓｔａでＥＸＣＥＬ２００７を用いています。

シート1枚目には
Ａ１・・Ｄ１・・Ｇ１・・と2列おきにデータが並んでいます。
このデータをシート2枚目の
Ａ１
Ａ２
Ａ３
に次々と反映させたいと思っています。

反映させたいデータが途方もない数なので、
関数などで早く処理できる方法がありましたら、
ぜひ教えてください。
よろしくお願いいたします。

No.2 回答者： kagakusuki 回答日時： 2011/08/10 13:05

　質問者様が御求めになられているのは、

Sheet2のA1セルにSheet1のA1セルのデータを反映させ、
Sheet2のA2セルにSheet1のD1セルのデータを反映させ、
Sheet2のA3セルにSheet1のG1セルのデータを反映させ、
　　　　　　　　　　・
　　　　　　　　　　・
　　　　　　　　　　・
という事を行う関数なのでしょうか？

　それでしたら、Sheet2のA1セルに次の関数を入力してから、Sheet2のA1セルをコピーして、Sheet2のA2以下に貼り付けると良いと思います。

=IF(OFFSET(Sheet1!$A$1,,(ROWS($3:3)-1)*3)="","",OFFSET(Sheet1!$A$1,,(ROWS($3:3)-1)*3))

　又、次の関数でも、同じ事が出来ます。

=IF(INDEX(Sheet1!$1:$1,COLUMN(Sheet1!$A$1)+(ROWS($3:3)-1)*3)="","",INDEX(Sheet1!$1:$1,COLUMN(Sheet1!$A$1)+(ROWS($3:3)-1)*3))

No.1 回答者： MIHO0821 回答日時： 2011/08/10 10:24

マクロでＶＢＡ記述をすれば簡単にできます。

関数では…コピー先シートの全てのセルに式のセットが必要ですね。
オートフィルで簡単にできそうではありますが。


以下のような形でいかがでしょうか。
コピー元のセルを選択するのに、変数を使って右に３つ飛ばし、
繰り返しの処理をさせています。

シート名は実際のシート名をセットしてください。
また、変数名はお好きなものにしてください。


======================================

'コピー元と貼り付け先セルの位置変数
Dim copyCell As Long
Dim pasteCell As Long

'コピー元と貼り付け先セルの位置変数
copyCell = 1
pasteCell = 1

'コピー元セルの内容がNULLか空白になるまで繰り返し
Do Until IsNull(Worksheets("Sheet1").Cells(1, copyCell).Value) Or Worksheets("Sheet1").Cells(1, copyCell).Value = ""
　　Sheets("Sheet1").Select　　　　　'Sheet1を選択
　　Cells(1, copyCell).Select　　　　'Sheet1のセルを選択
　　Selection.Copy　　　　　　　　　　'選択したセルの内容をコピー
　　Sheets("Sheet2").Select　　　　　'Sheet2を選択
　　Cells(1, pasteCell).Select　　　'Sheet2のセルを選択
　　ActiveSheet.Paste　　　　　　　　'コピーしたセルの内容を貼り付け
　　copyCell = copyCell + 3　　　　　'選択するセル用の変数を３加算（右へ３ずらすため）
　　pasteCell = pasteCell + 1　　　　'貼り付けするセル用の変数を１加算（右へ１ずらすため）
Loop

======================================