如何用<em>vb</em>语句删除<em>excel</em>中的多列

如果您用的是Excel2007以上的版本，可以试试这个方法：
将工作簿另存为一个普通的不开启宏的工作簿，然后直接关闭此工作簿。
再次打开这个另存的工作簿，会发现所有的VBA代码都消失了……

删除A到H列：
Sub Macro1()
Columns("A:H").Select
Selection.Delete Shift:=xlToLeft
End Sub
'菜单“工程/引用”，勾选Microsoft Excel 11库，必须的
Private Sub Command1_Click()

Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
On Error Resume Next
Set xlApp = GetObject(, "Excel.Application")
If Err.Number <> 0 Then Set xlApp = CreateObject("Excel.Application")
On Error GoTo prcERR
Set xlBook = xlApp.Workbooks.Open(App.Path & "\test.xls") '打开你的EXCEL文件
Set xlSheet = xlBook.Worksheets(1)'第一个表格
xlSheet.Application.Visible = True '设置e799bee5baa6e58685e5aeb9361Excel 可见
xlSheet.Rows("1:1").Delete Shift:=xlUp'假如要删除第1行。删除第2行就是"2:2"，删除1-3行就是"1:3"
Set xlSheet = Nothing
Set xlBook = Nothing
Set xlApp = Nothing
Exit Sub
prcERR:
Debug.Print Err.Number & ":" & Err.Description
End Sub

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