sub test ()dim s&,x&for x=1 to 10s=s+len(cells(x,1))next xmsgbox "总字符数为：" & send sub
sum=0for i=1 to 10 SUM=len(cells(i,1))+sumnext
