如何用VBA批量删除多个工作簿第一列？ vba批量删除工作表

• VBA 同时删除多个EXCEL中的第一行
• excel vba怎么删除多列
• EXCEL中如何用VBA删除多个工作表?
• Excel怎么用vba批量删除一个文件夹里面所有excel表的首列

VBA 同时删除多个EXCEL中的第一行

Sub test2()

'删除每个工作表的第一行

Dim i As Integer

i = ActiveWorkbook.Sheets.Count

For i = 1 To i Step 1

Sheets(i).Rows("1:1").Delete

Next i

End Sub

excel vba怎么删除多列

删除多列，这些列有什么特征

如果一次删除符合条件的一列，那么for j=大 to 小 step -1

不然要出问题的

或者使用union，将要删除的合并，然后一次性删除

关键还是看按照什么条件删除了

EXCEL中如何用VBA删除多个工作表?

sub ds()

for i = worksheets.count to 1 step -1

if worksheets(i).name like "sh*" then '( 这里的sh区分大小写)

worksheets(i).delete

end if

next

end sub

Excel怎么用vba批量删除一个文件夹里面所有excel表的首列

把有以下代码的excel放入同一个文件件中，运行就可以了。

Sub XXXX()

Application.ScreenUpdating = False

Application.DisplayAlerts = False

Dim MyDir As String

MyDir = ThisWorkbook.Path & "\"

ChDrive Left(MyDir, 1) 'find all the excel files

ChDir MyDir

Match = Dir$("*.xls")

Do

If Not LCase(Match) = LCase(ThisWorkbook.Name) Then

Workbooks.Open Match, 0, 0

Rows(1).Select

Selection.Delete

Workbooks(Match).Activate

ActiveWorkbook.Save

ActiveWorkbook.Close 0

End If

Match = Dir$

Loop Until Len(Match) = 0

Application.ScreenUpdating = True

Application.DisplayAlerts = True

End Sub