|
こんにちは
現状は計算式で参照しているのではないのですか?
蓄積用シートのH55:H99まで入力したデータは報告用シートのどの位置に転記してますか?
H55以下に入力する件数は毎日同じなのですか?
>H100から入力を続けるのですが、検査したデータは一日ごとに前日のデータを消してから
>また同じ所に翌日のデータを入力する形です。
意味が良く分かりません。
消すという事は蓄積しているとは言えなくなりますよ?
報告用シートのセルA6〜A45のデータを蓄積用シートのH55以下の最終行に追加する場合
のコードはこんな感じです。
Sub 例_1()
Dim ts As Worksheet
Dim lstR As Long
Set ts = Worksheets("蓄積用シート")
lstR = ts.Range("H" & Rows.Count).End(xlUp).Row
If lstR > 54 Then
With Worksheets("報告用シート")
ts.Cells(lstR + 1, "H").Resize(45).Value = .Range("A1:A45").Value
End With
End If
Set ts = Nothing
End Sub
|
|