郁戚:
同时按Alt和F11进入宏界面,插入,模块,粘贴如下代码:DimiFlagAsBooleanDimiAsIntegerSubMoveDown()IfiFlagTheniFlag=FalseElseIfi=12Theni=0Elsei=i+1EndIfRange("A"&i*28+17).SelectApplication.OnTimeNow+TimeValue("0:0:2"),"movedown"EndIfEndSubSubStopM()iFlag=TrueEndSub粗体的12表示12页;粗....