excel怎么样在一个工作薄里的多个工作表里插入相同的整列

VBA

对于N张工作表的情况，为减少工作量，通过VBA来实现，一劳永逸。方法：工具菜单---宏---VB编辑器（ALT+F11），在VB编辑器中，插入－－－模块，然后将以下代码复制到右边窗口中。Sub Insetcol()'为所有工作表插入N个空白列。[ 酉告 2010-9-24]Dim x, y, zOn Error Resume Nextx = InputBox(请问：从第几列开始插入列(A,B,C...)？)y = Chr(InputBox(请问：总共要插入几列(1,2,3...)？) + Asc(x) - 1) '把1转换为A，2为BFor z = 1 To Worksheets.Count '在所有工作表中循环执行 Sheets(z).Select Range(x & : & y).Insert Shift:=xlToRight '右边插入N列NextEnd Sub以后要批量插入时，直接在excel，工具菜单---宏---宏（ALT+F8），执行insetcol宏。