摘要： Suba()Range("A1").SelectFori=0To56Step1ActiveCell.Interior.ColorIndex=iActiveCell.Offset(0,1).Value2=iIfiMod19=18Andi<>0ThenActiveCell.Offset(-18,2).SelectElseActiveCell.Offset(1,0).SelectEndIfNextEndSub 结果如下无色0　19　38　1　20　39白色2　21　40　3　22　41　4　23　42　5　24　43　6　25　44　7　26　45　8　27　46　9 阅读全文