エクセルの繰り返し操作についてお願いします

質問

お世話になっています。

　下記テーブルに示しておりますように、2012.01.10の0:00の列の数値 [C3, D3, E3]をそのまま下5行分まで同じ値をペーストしておりますが、そのまま、下の各時間、0:30, 1:00, 1:30 ・・・　と、同じ数値を、各々5行分代入したいと思っています。

　ただ、行数では総計7000行程ございますので、手入力（コピペ）では限界がございます。

　このような、ペーストの繰り返し操作におけます、簡易な方法をご教示いただければ、幸いでございます。

　それでは、よろしくお願い申し上げます。

回答No.2

noname#204879 · ベストアンサー

添付図参照（見づらいかも）
１．セル C3 を選択
２．[名前ボックス]に E7004 と入力
　　ただし、Enterキーはまだ押さないで、その入力した E7004 の右端でカーソルが点滅している状態を保っておくこと。
この時点の状態図を Fig-1 に示す。

３．左手で Shiftキーを抑えたままで、右手で Enterキーをパシーッ
この時点の状態を添付図の Fig-2 に示す。

４．[編集]→[ジャンプ]→[セル選択]を実行
５．“空白セル”に目玉を入れて、Enterキーを「エイヤッ！」と叩き付け
この時点の状態を添付図の Fig-3 に示す。

６．キーボードで =C3 と入力
　　ただし、Enterキーはまだ押さない。
この時点の状態を添付図の Fig-4 に示す。

７．左手で Ctrlキーを抑えたままで、右手で Enterキーをパシーッ
この時点の状態を添付図の Fig-5 に示す。

お礼

ビシッきまりました。

　どうもありがとうございました。

　一番時間効率が高かったため、ベストアンサーとさせていただきました（その他の回答者様も大変すばらしかったのですが）。

　今後とも、よろしくお願い申し上げます。

回答No.4

KURUMITO

回答No3です。繰り返しになるのはC、D、E列のみでしたね。シート２のA３セルに入力する式が間違っていました。次の式にしてください。

=IF(MOD(ROW(A1),6)=1,INDEX(Sheet1!$A:$E,ROW(A1)+2,COLUMN(A1)),IF(COLUMN(A1)<=2,"",A2))

その他の操作はNo３と同じにします。なお、B列は時間になっているとのことですがシート２ではシリアル値になっていますので列を選択してから表示形式を時刻などに変更してください。

お礼

度重なるご回答賜わりまして、厚くお礼申し上げます。

　今後とも、よろしくお願い申し上げます。

回答No.3

KURUMITO

シート１の３行目以降にお示しのデータが有るとして、シート２のA３セルには次の式を入力してE３セルまでドラッグコピーします。

=IF(MOD(ROW(A1),6)=1,INDEX(Sheet1!$A:$E,ROW(A1)+2,COLUMN(A1)),A2)

次にシート２のA３セルからE３セルまでを選択して「コピー」し、その後に名前ボックスがA３となっているところをA3:E7000と書き換えます。Enterキーを押すことでそれらの範囲が選択状態になりますので「貼り付け」を行います。その後にEscキーを押します。これでシート２にはお望みの表が完成しますね。
シート２をすべて選択してコピーし、シート１のA１セルを選択してから「形式を選択して貼り付け」で「値」にチェックをして貼り付けた後でシート２のデータをすべて削除してもよいでしょう。

お礼

ご回答いただきまして、どうもありがとうございました、

　厚くお礼申し上げます。

　今後とも、よろしくお願い申し上げます。

回答No.1

tom04

こんばんは！
VBAになってしまいますが、一例です。

元データは↓の画像のようになっていて、データは3行目以降にあるという前提です。
（行挿入　→　コピー＆ペースト）といった手順にしています。

画面左下の操作したいSheet見出し上で右クリック　→　コードの表示　→　VBE画面に
↓のコードをコピー＆ペーストしてマクロを実行してみてください。
（Alt＋F8キー　→　マクロ　→　マクロ実行です）

Sub test() 'この行から
Dim i As Long, k As Long
For i = Cells(Rows.Count, 1).End(xlUp).Row To 3 Step -1
Rows(i + 1 & ":" & i + 5).Insert
For k = i + 1 To i + 5
Range(Cells(i, 3), Cells(i, 5)).Copy Destination:=Cells(k, 3)
Next k
Next i
End Sub 'この行まで

※　一旦マクロを実行すると元に戻せませんので、別Sheetでマクロを試してみてください。
m（_ _）m

お礼

ご回答いただきましたこと、厚くお礼申し上げます。

　ですが、このVBEを実行させたところ、10分以上、何も変化せず。そのままフリーズしてしまいました。

　ですが、マクロの勉強にはなりました。どうもありがとうございました。