我只能用VBA告诉你解决的一种方法: Sub tt() Dim rng As Range, s&, FirAdd$ Set rng = Range("a:a").Find("1", , , 1) If Not rng Is Nothing Then FirAdd = rng.Address Do s = rng.Offset(0, 1).Value + s Set rng = Range("a:a").FindNext(rng)
Loop While Not rng Is Nothing And FirAdd <> rng.Address