前提・実現したいこと
(同一book)
【入力】シートに入力したものを【点検履歴】シートの最終行に転記したいです。
↓入力シート(sheet9)
↓点検履歴(sheet8)
発生している問題・エラーメッセージ
最終行の取得がうまくいかず、一行目を更新してしまう。
現在のコード
Sub データ読込()
Worksheets("点検履歴").Range("a2").Value = Worksheets("入力").Range("b1").Value Worksheets("点検履歴").Range("b2").Value = Worksheets("入力").Range("b2").Value Worksheets("点検履歴").Range("c2").Value = Worksheets("入力").Range("b3").Value Worksheets("点検履歴").Range("d2").Value = Worksheets("入力").Range("b4").Value Worksheets("点検履歴").Range("e2").Value = Worksheets("入力").Range("b5").Value Worksheets("点検履歴").Range("f2").Value = Worksheets("入力").Range("b6").Value Worksheets("点検履歴").Range("g2").Value = Worksheets("入力").Range("b7").Value Worksheets("点検履歴").Range("h2").Value = Worksheets("入力").Range("b8").Value Worksheets("点検履歴").Range("i2").Value = Worksheets("入力").Range("c2").Value
End Sub
最終行の取得含めスマートな転記方法がございましたら
お力を貸していただきたいです。
回答5件
あなたの回答
tips
プレビュー