|
こんにちは
これで如何かな?
コードの説明はヘルプなど見て調べてください。
シート名はそちらの環境に合わせてください。
Sub Test()
Dim Da As Variant, Da1 As String
With Worksheets("請求書")
Da1 = .Range("C2").Value
With .Range("A2", .Range("A65536").End(xlUp))
Da = .Resize(, 2).Value
.Resize(, 3).ClearContents
End With
End With
With Worksheets("売り上げ表").Range("B65536").End(xlUp)
If .Row = 1 Then
.Offset(1).Resize(UBound(Da), 2).Value = Da
.Offset(1, -1).Value = Da1
Else
.Offset(2).Resize(UBound(Da), 2).Value = Da
.Offset(2, -1).Value = Da1
End If
End With
End Sub
|
|