○行おきにデータを読み込む

質問

エクセルのデータで７行おきにデータを読み込んで、空白を詰めて隣または別のシートに書きこんでいきたいのですがどうしたらいいでしょうか。

分かりにくい質問ですが、要するに７行おきに書かれているところのデータが欲しいのです。

←わかってもらえたでしょうか。

大変困っています。
よろしくお願いします。

回答No.2

TJungle · ベストアンサー

スマートな方法が思い浮かばないんですが、
例えば一番左に１列挿入します。
挿入した列に、上から
○
○
○
○
○
○
●
○
○
○
○
○
○
●
のように７個ごとに印をつけます。
印は、何でも構いません。アルファベットでも数字でも
お好みの物を使用してください。

で、メニューのデータ→フィルタ→「オートフィルタの設定」
で大丈夫だと思います。
オートフィルタでダメなら、「フィルタオプションの設定」の方で試してみてください。

ポイントは、７個ごとに印をつけて、フィルタです。

それぞれの機能でわからなければ、また質問してみてください。

お礼

結局，悪戦苦闘した結果，この方法と同様の方法を私も思いつきました。
ありがとうございました。

回答No.4

imogasi

Sheet１のA列にデータがあるとして
Sheet2のA列にA1に
=INDIRECT("Sheet1!A"&(ROW()-1)*7+1)
と入れて下方向に式を複写する。
Sheet1のA列の
1
8
15
22
29
・・
番目行が持ってこれます。

お礼

こんなスマートな方法もあるのですね。
大変参考になりました。
この場を借りて皆様にお礼申し上げます。
ありがとうございました。

回答No.3

noname#204879

元データの最上行のセルに付けた名前を ref とすれば、同じ、または、別のシートの任意のセルに次式を入力して、此れを下方にズズーッと複写してみてください。

=OFFSET(ref,(ROW(1:1)-1)*7,0,1,1)

回答No.1

ipsum11

＞要するに７行おきに書かれているところのデータ

'**********例１**********'
For i = 1 To 100 Step 7
Debug.Print Cells(i, 1)
Next i

'**********例２**********'
i = 1
Do While i < 100
Debug.Print Cells(i, 1)
i = i + 7
Loop

これで７行おきかな。