这个意思?
For Each r1 As Row In t1.Rows
If r1("某列") <> "合计" Then Series1 = Chart1.SeriesList.Add() '增加一个图系 Series1.Length = 1 '一个系列只能包括一个值 Series1.Text = r1("电压等级") & "(" & r1("投标设计任务量") & ")" '设置图系的标题 Series1.Y(0) = r1("投标设计任务量") '指定值 Series1.DataLabelText = Math.Round(r1("投标设计任务量")*100/sm1,2) & "%" '计算百分比
End IfNext