Question

编写vb代码，一个excel工作表有很多sheet，把所有sheet的第二列删除，然后把所有sheet的第一列插入到第三

编写vb代码，一个excel工作表有很多sheet，把所有sheet的第二列删除，然后把所有sheet的第一列插入到第三列的前面。
如图：前

后：

希望大神帮帮我





Answer 1

到Excel中自定义一个宏，删除整列，插入一空列，再把A列复制过去，等等。然后查看一个宏代码应用到VB6中去。

我给你整好了：

Private Sub Command1_Click()
    Dim wkBook As Workbook
    Set wkBook = excel.Application.Workbooks.Open("C:\Users\Administrator\Desktop\Book1.xlsx")
    Dim st As Worksheet
    For Each st In wkBook.Sheets
        With st
            .Columns("B:B").Delete Shift:=xlToLeft
            .Columns("C:C").Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
            .Columns("A:A").Cut Destination:=.Columns("C:C")
            .Columns("A:A").Delete Shift:=xlToLeft
        End With
    Next
    wkBook.Save
    wkBook.Close
End Sub

别忘了，引用   Microsoft Excel  Object Library 库

Answer 2

Sub aaa()

    For i = 1 To Sheets.Count

        With Sheets(i)

            .Columns(4).EntireColumn.Insert

            .Range("a:a").Copy [d1]

            .Columns("A:B").Delete Shift:=xlToLeft

        End With

    Next

End Sub

追问

请问下怎么从第二个sheet开始 后面每个sheet的 第二列都没有呢？

求大神帮帮 肯定加分！！谢谢了

Answer 3

选择第一个表，按下shift键，然后选最后一个表则选择了所有的表格，操作当前表，把第二列，把第一列剪切后选中第三列插入剪切的单元格

追问

恩恩 这个我知道 我只需要代码