エクセルのシーとコピーで

質問

シート1に　数値が入っています。
その数値を　シート2に　コピーするには　＝シート1！Ａ１の
数式を入れれば　シートＡ1の数値が　シート2に入りますが

シート1のＡ列の数値を　等間隔で飛ばして　シート2に入れようとして

シート2のＢ列の1に
＝シート1！Ａ１
シート2のＢ列の2に
＝シート1！Ａ10
と　入力して　二つセルを合わせて　コピー下にスライドしていけば
等間隔で　シートＢに　９行空けた間隔のシート1の数字が入ると思ったけれど　無理でした。

どなたか　簡単に　シート1の数値を等間隔で飛ばして
シートＢの縦列にコピー出来る簡単な　方法は無いでしょうか？

宜しくお願いします。

回答No.2

sakuuuuu · ベストアンサー

#1です。
簡単なサンプルです。

Sub xxxx()

Dim i As Integer 'sheet1の行数
Dim k As Integer 'sheet2の行数
Dim Row As Integer 'sheet1の最終行

'初期化
i = 1
k = 1

'最終行の取得
Row = Worksheets("Sheet1").Range("A1").CurrentRegion.Rows.Count

'等間隔毎のコピー
Do While i <= Row '10行ごとのカウントが最終行以内の間実行

'sheet1 →　sheet2へのコピー
Worksheets("Sheet2").Cells(k, 1) = Worksheets("Sheet1").Cells(i, 1)

i = i + 10 'sheet1は10行おき

k = k + 1 'sheet2は1行ずつ

Loop

End Sub

お礼

再度　回答　ありがとう御座います。
　参考文例を参照しながら　今晩は流石に眠いので
　　　明日　ＶＢＡの本と睨めっこしてみます。
　　　お手数をお掛けしました。

　また　1のお礼で　タイプミスが有り　大変失礼致しました。

回答No.5

noname#59788

ｆｘの欄で、シングルクォーテーションマークを＝の前につけて、

'=シート！Ａ１
’=シート！Ａ１０
として二つのセルに会わせて下にスライドします。
データ「区切り位置」で右下の「完了」をクリック。

これでどうでしょうか？

お礼

回答　ありがとう御座います。

回答No.4

maron--5

◆こんな方法もありますよ
=INDEX(Sheet1!A:A,1+(ROW()-1)*9)
または、
=INDIRECT("Sheet1!A"&1+(ROW()-1)*9)

お礼

回答　ありがとう御座います。
　+(ROW()-1)*9)の記述が　味噌ですね。
　今晩　コツコツ　やってみます。

回答No.3

NNAQ

シート2のＢ1に
=OFFSET(シート1!A$1,(ROW()-1)*9,)
下にコピー。

お礼

回答　ありがとう御座います。

OFFSET関数ですね　ちょっと使ったこと無いので
　明日　この関数の使い方を　調べて使ってみます。

回答No.1

sakuuuuu

う～ん、関数では難しいですね。
（簡単な方法はない。ＶＢＡだったら簡単）

もし今回１回コッキリの作業であれば手動でやったらどうですか？

１．シート1のＢ列に１０セルおきに○を入れる
２．シート1のＢ列を○でフィルタリング
３．シート1のＡ列をコピー
４．シート２のＢ列にコピー

お礼

回答　ありがとうます。
　やはり　関数では　難しいんですね・・。

　１～4の手順のやり方で　１列なら対処出来そうですね
　ただ　これを応用できれば　Ｂ列以降も同様に飛ばしが
　出来ないかとも　思っていたので　フィルタリングだと
　列が増やすと　大変そうですね。

　ＶＢＡは　殆ど解らないんですが　
　　理解出来るかは別として

　もし　行数も少なく簡単な記述で出来るのなら
　　お時間有りましたら　参考に　記述して頂ければ　幸いです。

補足

皆様　回答頂きありがとう御座いました。
　今晩から　明日に掛けて　マニュアル見ながら　頑張ってみます。
　ＶＢＡの　本も有るんですが　なかなか理解できなくて(^_^;

　また　何か有りましたら　宜しくお願いします。