>>76 どっちの整理番号を残すとかは考えずにいきます． このスレ的には問題あるかもしれないけど，一応動くので． Private Sub Sample() Dim targetCell As Range Dim date1 As Date,date2 As Date,date3 As Date Dim intervalMin As Integer
Set targetCell = Range("B1") ←最初に日付が入っているセル Do Until targetCell.Cells(2,1)="" date1=targetCell+CDate(targetCell.Cells(1,2)) date2=targetCell.Cells(2,1)+CDate(targetCell.Cells(2,2)) interval = DatePart("n",date2-date1) If interval=0 Then Rows(targetCell.Cells(2,1).Row).Delete ElseIf interval>10 Then Rows(targetCell.Cells(2,1).Row).Insert date3=DateAdd("n",10,date1) targetCell.Cells(2,1)=Format(date3,"yyyy/M/d") targetCell.Cells(2,2)=Format(date3,"hh:mm") End If Set targetCell=targetCell.Cells(2,1) Loop End Sub
