Public Function x2(rng As Range) As IntegerDim rng As RangeDim ivalue As IntegerFor Each rng Inivalue = ivalue + A 2Nextx2 = ivalueEnd Function还望您的帮助。解答: Public Function SUMX2(rng As Range) As Integer 你的错误有