请帮忙解释下面语句意思-2'填写遗漏值DimnAsIntegerDimarrR()AsInteger,arrB()AsIntegerReDimarrR(5),arrB(5)DimrAsRangeDimkAsLongDimtAsIntegerarrR(0)
请帮忙解释下面语句意思-2
'填写遗漏值
DimnAsInteger
DimarrR()AsInteger,arrB()AsInteger
ReDimarrR(5),arrB(5)
DimrAsRange
DimkAsLong
DimtAsInteger
arrR(0)=9
arrB(0)=9
Range("B3:AX7").Value=""
Forn=2To50
k=9
DoWhileCells(k,n).Text=""
k=k+1
Loop
Fort=1To5
DoWhileCells(k,n).Text=""
k=k+1
Loop
arrR(t)=k
arrB(t)=k
k=k+1
Ifn65530ThenExitFor
Cells(t+2,n)=arrR(t)-arrR(t-1)-1
ElseIfn>34Then
IfCells(k,n).End(xlDown).Cells.Row>65530ThenExitFor
Cells(t+2,n)=arrB(t)-arrB(t-1)-1
EndIf
Nextt
Nextn
ExitSub
EndIf'IfTarget.Value=Sheets("双色球").Cells(i,2)
Nexti
Else'IfLen(Target.Value)=7
ExitSub
EndIf'IfLen(Target.Value)=7
EndSub