| |
マナさん
ご教授ありがとうございます。
何分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
|
|
［名前なし］
- 20/5/29(金) 13:20 -
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
