如何用VBA增大一张excel工作表

sub 增加工作表()di来自m i as integerfor i =1 to sheets.countif sheets(i).name =期末核算 thenmsgbox 已经存在exit subend ifnext i

sheets.add***.name=期末核算 end sub