水水暮暮.:
Sub底色1()DimRngAsRange,Arr,i&,i1&,j&,Colmn&i1=1:j=0:Colmn=2Arr=Array(vbRed,vbYellow)Fori=2To20IfCells(i,Colmn)Cells(i-1,Colmn)ThenIfi-i1=1Theni1=i:j=0ElseRange(Cells(i1,Colmn),Cells(i-1,Colmn)).Interior.Color=Arr(j)j=1-ji1=iEndIfEndIfNextiEndSub具体颜色及起....