入力シートから別シートに転記・蓄積について

質問

エクセルで入力シートのA1:D5（５行）の範囲を別シート（DBシート）の転記・蓄積させる方法を教えてください。また、入力データがA1:A5（１行）のときもあれば、A1:D5（５行）の場合もあるとします。宜しくお願いします。

回答No.2

merlionXX · ベストアンサー

こんな感じでいかがでしょうか？

Sub test01()
Dim ws1 As Worksheet, ws2 As Worksheet
Dim x As Long, y As Long
Set ws1 = Sheets("入力")
Set ws2 = Sheets("DB")
x = ws2.Cells(Rows.Count, "A").End(xlUp).Row + 1
y = ws1.Cells(Rows.Count, "A").End(xlUp).Row
ws1.Cells(1, "A").Resize(y, 4).Copy ws2.Cells(x, "A")
End Sub

回答No.3

imogasi

もしこれを関数式でできるや、やりたいと考えているとしたら、関数を十分使いこなしてないために、関数式では苦手な分野が質問者は判っていないです。
（１）累積するキッカケというものが関数では捉えられない。
（２）持ってゆく方（データを受ける方。DBシート）のセルに式を書かないといけないが、それが過去のDBデータ数や入力シートのデータ数で変わる（特に前者）こと
（３）データを累積したらその行の式は邪魔になること
の３点が難しくなる原因です。
ーー
VBAでは
（１）は、操作者がコードを実行するとか、コマンドボタンを押すということでトリガーは引けます。
（２）もDBシートの最終行は簡単に捉えられるのでやりやすい
（３）もVBAでは値をセットするだけにして、数式をセルにセットしないので、この点は関係ない。
ーーー
具体的にはコードは既回答で出ているので略。

回答No.1

pbforce

varData=Sheets("入力シート").Range("A1:D5")
intRowNo=Sheets("DBシート").Range("A1").End(xlDown).Row
Sheets("DBシート").Cells(intRowNo+1,1).Resize(5,4)=varData

動くか不明・・・ヒントにはなると思います。