Question

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

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

Answer 1

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给你了 加油！ 我也在学