用一个循环可以做到。Dim I As IntegerDim S As SingleFor I = 1 To MSChart1.RowCount MSChart1.Row = I S = S + MSChart1.DataNext IPrint S
