|
マナさん
ご教授ありがとうございます。
何分VBAを始めたばかりでマクロを記録して色々やっている状態なので
とてもありがたいです。
End(Xlup)を with Sh1として下記としてみたのですが【型が一致しません】と
なってしまいます。この場合は各シートの何かが違うという事なのでしょうか。
質問ばかりで申し訳ございませんが、またご教授いただけたらと思います。
Dim Sh1 As Worksheet
Dim Sh2 As Worksheet
Dim myRow As Long
Set Sh1 = Worksheets("入力")
Set Sh2 = Worksheets("データ")
'データ転記
With Sh1
myRow = .Range("A" & Rows.Count).End(xlUp).Row + 1
End With
With Sh2
myRow = .Range("A" & Rows.Count).End(xlUp).Row + 1
.Range(.Range("A" & myRow), .Range("AN" & myRow)).Value = Sh1.Range("A2:AN2").Value
.Range("AN" & myRow).Value = Sh1.Range("C2").Value * Sh1.Range("AN2").Value
End With
With Sh1
.Range("A2:AN2").ClearContents
End With
End Sub
|
|