代码如下,详见附件 private sub commandbutton1_click() dim max!min!ro%,rom%,t1 as date,tim as date ro=1:rom=[a65536].end(3).row+1 range("d2:h1441").clearcontents for i=2 to rom t1=timeserial(hour(cells(i,1)),minute(cells(i,1)),0) if t1<>tim then tim=t1 if ro>1 then cells... 20210311