可以用imagelist控件，把图片都放上去然后直接调用就可以了，劝你就加点分吸引点人来做吧！
worksheets(1).activetedim a,b as integerfor b=1 to 10'输10次，反正是循环就行，用条件也可以a=inputbox("输入数据")sheets(1).cells(b,1)=anext bend sub'没有测试，不知道有没有错。
