vba テストの回答例 問1

Sub 問1の回答例()

Worksheets("Sheet1").Activate

最終行 = Cells(Rows.Count, 2).End(xlUp).Row

Range(Cells(最終行 + 1,2),Cells(最終行 + 1,5))Value = Range("B16:E16").Value

Range("B16:E16")ClearContents

End Sub