| こんにちわ、お世話になっております。
よねさんの自動転記をするというVBAコードで１行おきに転記する場合はどのようにすればよいか教えてください。
よろしくお願いいたします。Sub prog4()
Dim Sh1 As Worksheet
Dim Sh2 As Worksheet
Dim myRow As Long
Set Sh1 = Worksheets("入力")
Set Sh2 = Worksheets("データ")
With Sh2
myRow = .Range("A" & Rows.Count).End(xlUp).Row + 1
.Range(.Range("A" & myRow), .Range("D" & myRow)).Value = Sh1.Range("A2:D2").Value
.Range("E" & myRow).Value = Sh1.Range("C2").Value * Sh1.Range("D2").Value
End With
With Sh1
.Range("A2:D2").ClearContents
End With
End Sub
|
このトピックをツリーで一括表示