エクセルで繰り返しデータ入力

エクセル初心者です。
Sheet1のH列2から20行に毎日複数のデータ入力があり、その入力データはSheet2に日付順で1日から31日までの行を割り当て、転記される設定は可能でしょうか。翌日は又Sheet1のH列2から20行に毎日複数のデータ入力しこの繰り返しです。

No.2 ベストアンサー 回答者： tenez 回答日時： 2009/06/21 01:52

マクロを使えば可能です。

計算式で行う方法もありますが、複雑になるのと処理が遅くなるから実用的でありません。

エクセルが今使っている自宅にありませんので、下記のマクロのコードが動くかは分かりません。まず、エクセルでボタン配置して、そのコードに下記のを追加してください。データの正確な配置位置が分からないので、A=1とか、B=1とかは、2,3,...と数値を変えてみて下さい。月初めには、また１日目に書き込まれるため、コピーが必要です。動くかな?

Dim ii as integer
Dim A as integer
Dim B as integer
A=1
B=1
Dim today as date
today = Date
'２行目から２０行目まで繰り返し
for ii = 2 to 20
　'各データのコピー(H列=8)
　WorkSheets("Sheet2").Cells(Date(today)+A,ii+B)=WorkSheets("Sheet1").Cells(ii,8)
next ii

この回答へのお礼

早々のご回答、有難うございました。未だ上手く出来ておりませんので、もう少し問題点が明らかになった時点で、再質問させていただきます。とりあえず、お礼まで。

お礼日時：2009/06/21 20:20

No.1 回答者： mutapha_ 回答日時： 2009/06/20 22:29

回答ではありませんが

この方法があれば私も知りたいと思います。

元データが変更されてもＯＫの方法があれば

是非教えて下さい

この回答へのお礼

未だ、上手く検証できておりませんので、もう少し判明したら、そちらにも判るように、がんばります。（難しそう！）

お礼日時：2009/06/21 20:17