Excel VBA 質問スレ Part80(ﾜｯﾁｮｲあり)

55 ：デフォルトの名無しさん ：2024/04/09(火) 17:25:50.64 ID:GvF1xxBu0.net

>>54
Sub 一週間ずつコピペ追加Macro1()
　　ro = Cells(Rows.Count, 2).End(xlUp).Row
　　Cells(ro - 7, 2).Resize(8, 4).Copy Cells(ro + 1, 2)
　　For Each c In Cells(ro + 2, 2).Resize(7, 1)
　　　　c.Value = c + 7
　　Next
　　Columns("B").AutoFit
End Sub