excel怎样在一个工作薄里的多个工作表里插入相同的整列
我在一个excel里面建了很多个工作表。现在想再插入几列。但是工作表太多了。一个个插好麻烦。格式都是一样的。各位高手有没有什么好办法。谢谢!...
我在一个excel里面建了很多个工作表。现在想再插入几列。但是工作表太多了。一个个插好麻烦。格式都是一样的。各位高手有没有什么好办法。谢谢!
展开
6个回答
2013-09-20
展开全部
对于N张工作表的情况,为减少工作量,通过VBA来实现,一劳永逸。方法:工具菜单---宏---VB编辑器(ALT+F11),在VB编辑器中,插入---模块,然后将以下代码复制到右边窗口中。Sub InsetCol()
'为所有工作表插入N个空白列。[ 酉告 2010-9-24]
Dim x, y, z
On Error Resume Next
x = InputBox("请问:从第几列开始插入列(A,B,C...)?")
y = Chr(InputBox("请问:总共要插入几列(1,2,3...)?") + Asc(x) - 1) '把1转换为A,2为B
For z = 1 To Worksheets.Count '在所有工作表中循环执行
Sheets(z).Select
Range(x & ":" & y).Insert Shift:=xlToRight '右边插入N列
Next
End Sub以后要批量插入时,直接在EXCEL,工具菜单---宏---宏(ALT+F8),执行insetCol宏。
'为所有工作表插入N个空白列。[ 酉告 2010-9-24]
Dim x, y, z
On Error Resume Next
x = InputBox("请问:从第几列开始插入列(A,B,C...)?")
y = Chr(InputBox("请问:总共要插入几列(1,2,3...)?") + Asc(x) - 1) '把1转换为A,2为B
For z = 1 To Worksheets.Count '在所有工作表中循环执行
Sheets(z).Select
Range(x & ":" & y).Insert Shift:=xlToRight '右边插入N列
Next
End Sub以后要批量插入时,直接在EXCEL,工具菜单---宏---宏(ALT+F8),执行insetCol宏。
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
2013-09-20
展开全部
右单击任意一个工作表---选定全部工作表,这样插入就是批处理插入了.所有的编辑动作都是批处理的.
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
2013-09-20
展开全部
选中工作表,直接在任何表内添加表格,然后每个工作表插入的列数都相同,我有做过
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
2013-09-20
展开全部
在你予插入列的地方点击右键然后点插入即可。 参考如下图片
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询