1、
lbl2.Text = Format(series.y(i), "0.00%")
改成
lbl2.Text = Format(val(series.y(i)), "0.00%")
2、循环每一列处理
http://www.foxtable.com/webhelp/scr/0970.htm