详细问题描述及疑问：期待您的答案，谢了,下次有事儿别忘了找我 ！
对于N张工作表的情况，为快捷实现、减少工作量，必须来自通过VBA来实现工具菜单---宏---VB331215问答编辑器（ALT+F11），在VB编辑器中，插入－－－模块，然后将以下代码复制到右边窗口中。Subinset()'在当前每个工作表内插入第一列希密有期推座，而输入当前工作表名(酉告-20100924）Dimz,shet,row十节层发Forz=1To***.countrow=Wo迅油rksheets(z).usedrange.***.countSheets(z).SelectRange("A1:A"&row).Select***.insertShift附负维克比求农再谁:=xlToRight***.formular1C1=Worksheets(z).NameNextEndSub以后要批量插入时，直接在EXCEL，工具菜单---宏---宏（ALT+F8），执行inset宏。