vba在多个工作表的相同位置插入列

EXCEL渣渣

请问如何在多个工作表的相同位置插入列
一下是我的代码，请问应该如何修改
Sub 插入列()
Dim ws As Worksheet
    For Each ws In Worksheets
        With ws
             .Columns(1).Select
           Selection.Insert Shift:=xlToRight
        End With
    Next
End Sub
求大牛指导。谢谢

lsc900707

你不是都有代码了吗？

jiangxiaoyun

学VBA也不是这么学的，不啃点基础，不行的。别动不动就来问。啃好基础了，自然一通百通了。vba压根就不难学

feist1

Dim ws As Worksheet
For Each ws In Worksheets
ws.Columns("A:A").Insert Shift:=xlToRight
Next

EXCEL渣渣

lsc900707 发表于 2018-1-22 08:49
你不是都有代码了吗？

但是只能实现单张工作表修改，不能做到修改工作簿里全部的工作表。望老师指点。谢谢

michael1330

用你的改了一点：
Sub 插入列()
Dim ws As Worksheet
    For Each ws In Worksheets
        With ws
              .Select
             .Columns(1).Select
           Selection.Insert Shift:=xlToRight
        End With
    Next
End Sub

lsc900707

EXCEL渣渣 发表于 2018-1-22 10:15
但是只能实现单张工作表修改，不能做到修改工作簿里全部的工作表。望老师指点。谢谢

把出错的文件发上来看看吧。

EXCEL渣渣

lsc900707 发表于 2018-1-22 10:45
把出错的文件发上来看看吧。

老师您好，附件上传了，请查看。恳请老师指点，告诉我错的地方。麻烦老师了。再次感谢。

EXCEL渣渣

EXCEL渣渣 发表于 2018-1-22 12:46
老师您好，附件上传了，请查看。恳请老师指点，告诉我错的地方。麻烦老师了。再次感谢。

附件在这里。老师我想学vba，不想做伸手党

lsc900707

EXCEL渣渣 发表于 2018-1-22 12:48
附件在这里。老师我想学vba，不想做伸手党

1. Sub 插入列()
   
2.     Dim ws As Worksheet
   
3.     For Each ws In Worksheets
   
4.         With ws
   
5.              .Columns(1).Insert Shift:=xlToRight
   
6.         End With
   
7.     Next
   
8. End Sub

复制代码