sub cnft_click() dim arralldata,arrb,c as range,rg as range,i,a,r,col,n application.screenupdating=false n=30 '显示最近的n天记录,可调整 set rg=range(cells(2,1),cells(65536,1).end(xlup)) on error resume next for each c in rg arralldata=getstockalldata(c.text,n) if typename... 20210311