编写<em>vb</em>代码，一个<em>excel</em>工作表有

Application.displayalerts=false
Sheets(1).Delete
Sheets(1).Delete
Sheets(1).Delete
Application.displayalerts=True

三次知删除道第一个工作内表，当然也可容以逆序删除。

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

第二知列删了，自道然第一回列在第三列前答面
没有具体的说明，我复只能自己举个例子自己答了制：
Sheet1 A列查找数据值>5的单百元度格（假设只有一个），并复知制到sheet2中B1单元格。

Dim i As Long
For i = 1 To Sheets("Sheet1").[A65535].End(xlUp).Row
If Sheets("Sheet1").Cells(i,1) > 5 Then
Sheets("Sheet2").Cells(1,2) = Sheets("Sheet1").Cells(i,1)
End If
Next i

Sheets("Sheet1").[A65535].End(xlUp).Row用来获取A列不为空的最大行数。道

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