Dim?i?As?Integer,?n?As?Integer,?s?As?Integer
s?=?0
n?=?0
i?=?4
Do?While?i?<?105?
Do?While?s?<?Cells(i,?2)
n?=?n?+?1
s?=?s?+?n
Loop
Cells(i,?3)?=?s
i?=?i?+?1
End?Sub
C列?是輸出n還是s,如果是n,請將11行的Cells(i, 3) = s改為Cells(i, 3) = n即可。