如何通过VBA清除多个命名工作表中的数据？

本文介绍了如何通过VBA清除多个命名工作表中的数据？的处理方法，对大家解决问题具有一定的参考价值，需要的朋友们下面随着小编来一起学习吧！ 问题描述 我的工作簿包含大量数据，然后从连接中获取新数据，我必须从上个月获得的现有数据中清除它。我有下面的VB代码，但它只适用于单张纸。我该怎么做才能让它适用于多张床单。 我尝试过的事情： Sub CleanTheTable（） Application.ScreenUpdating = False Sheets（Active Roster）。选择 ActiveSheet。 ListObjects（ActiveRoster）。HeaderRowRange.Select 如果ActiveSheet.FilterMode那么 Selection.AutoFilter 结束如果 使用工作表（活动名册）.ListObjects（ActiveRoster） .Range.AutoFilter On Error Resume Next .DataBodyRange.Offset（1）.Resize（。DataBodyRange.Rows.Count - 1，.DataBodyRange.Columns.Count）.Rows.Delete .DataBodyRange.Rows（1）.SpecialCells（xlCellTypeConstants）.ClearContents ActiveWindow.SmallScroll Down：= - 10000 End使用 Application.ScreenUpdating = True End Sub 解决方案 将你的sub更改为类似 Sub CleanTheTable（ sheetNo 作为 整数 ） Application.ScreenUpdating = False 表格（ sheetNo ）。选择 ActiveSheet.ListObjects（ ActiveRoster）。HeaderRowRange。选择 如果 ActiveSheet.FilterMode 那么 Selection.AutoFilter 结束 如果 Dim tbl 作为 ListObject 对于 每个 tbl 在工作表（sheetNo）.ListObjects .Range.AutoFilter On 错误 恢复 下一步 .DataBodyRange.Offset（ 1 ）。调整大小（.DataBodyRange.Rows.Count - 1 ，。DataBodyRange.Columns.Count）.Rows 。删除 .DataBodyRange.Rows（ 1 ）。SpecialCells（xlCellTypeConstants）.ClearContents ActiveWindow.SmallScroll Down：= - 10000 下一步 Application.ScreenUpdating = True 结束 Sub 然后你可以调用它所有表格类似于 公共 Sub CleanAll（） Dim i 作为 整数 对于 i = 1 表格。数 CleanTheTable i 下一步 结束 Sub 警告 - 我还没有对此进行全面测试，因此可能会出现一些轻微的输入错误 my workbook contains tons of data before get a fresh data from the connections i have to clear it from the existing data i got from the previous month. I have the VB code below but it will just work for a single sheet. what can i do to make it work for multiple sheets.What I have tried:Sub CleanTheTable() Application.ScreenUpdating = False Sheets("Active Roster").Select ActiveSheet.ListObjects("ActiveRoster").HeaderRowRange.Select If ActiveSheet.FilterMode Then Selection.AutoFilter End If With Worksheets("Active Roster").ListObjects("ActiveRoster") .Range.AutoFilter On Error Resume Next .DataBodyRange.Offset(1).Resize(.DataBodyRange.Rows.Count - 1, .DataBodyRange.Columns.Count).Rows.Delete .DataBodyRange.Rows(1).SpecialCells(xlCellTypeConstants).ClearContents ActiveWindow.SmallScroll Down:=-10000 End WithApplication.ScreenUpdating = TrueEnd Sub 解决方案 Change your sub to be something like Sub CleanTheTable(sheetNo As Integer) Application.ScreenUpdating = False Sheets(sheetNo).Select ActiveSheet.ListObjects("ActiveRoster").HeaderRowRange.Select If ActiveSheet.FilterMode Then Selection.AutoFilter End If Dim tbl As ListObject For Each tbl In Worksheets(sheetNo).ListObjects .Range.AutoFilter On Error Resume Next .DataBodyRange.Offset(1).Resize(.DataBodyRange.Rows.Count - 1, .DataBodyRange.Columns.Count).Rows.Delete .DataBodyRange.Rows(1).SpecialCells(xlCellTypeConstants).ClearContents ActiveWindow.SmallScroll Down:=-10000 Next Application.ScreenUpdating = TrueEnd SubThen you can call it for all sheets similar to Public Sub CleanAll() Dim i As Integer For i = 1 To Sheets.Count CleanTheTable i NextEnd SubCaveat - I haven't fully tested this so there may be some minor typing errors 这篇关于如何通过VBA清除多个命名工作表中的数据？的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持！