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

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

Sub delete()
Dim sc As Integer
sc = Worksheets.Count
For i = 1 To sc
Worksheets(i).Range("b:b").delete
Next
End Sub

第二列删了，自然第一列在第三列前面追答
追问：没有把第一列剪切到第三列之前吧帮我看看下面这个代码，有什么问题？谢谢了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
追答：抱歉，with的结构我还没学
追问：我解决这100给你了 加油！我也在学