１行おきのデーターを他のシートに詰めて表示する。

質問

１行おきのデーターを他のシートに詰めて表示する。
よろしくおねがいします。

１行おきの（シート【A】）のデーターを、他の（シート【B】）に詰めて表示する。

EXCEL関数で

Range("C5").Value =【A】!B5
Range("C6").Value =【A】!B7
Range("C7").Value =【A】!B9
Range("C8").Value =【A】!B11

　～

これをVBAで実施できないでしょうか。

回答No.2

米沢 栄蔵（@YON56） · ベストアンサー

For X=1 To Y
Cells(X+4,3)=Sheets("A").Cells(2*X+3,1).Value
Next X

Y:繰り返す回数
A:シート名

お礼

お礼が遅くなってすみません。
思い通りにできました。
ありがとうございました。

回答No.1

layy

できます。
"C5"や【A】!B5、にて
シート名、セル位置を変数で持つことです。

http://www.voicechatjapan.com/excelvba/VBArei2.htm
ここにセルの操作について技術的なこと、他いろいろ記載ありますので、
がんばればたぶん答えが出ると思います。

何がどうなっているか理解した上適用お願いします。

それでもわからないところあれば再度お願いします。

お礼

お礼が遅くなってすみません。
これから勉強してみます。
ありがとうございました。