[已解决]VBA删除工作表最后一行数据

as0810114

VBA删除工作表最后一行数据，见附件

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2013-5-7 13:29

1. Sub test()
   
2.     Dim sht As Worksheet
   
3.     For Each sht In Worksheets
   
4.         If sht.Name <> "总表" Then
   
5.             With sht
   
6.                 .Cells(Rows.Count, 1).End(xlUp).EntireRow.Delete
   
7.             End With
   
8.         End If
   
9.     Next
   
10.     MsgBox "删除完成", vbInformation
    
11. End Sub

复制代码

跳转到最佳答案楼层

hwc2ycy

1. Sub test()
   
2.     Dim sht As Worksheet
   
3.     For Each sht In Worksheets
   
4.         If sht.Name <> "总表" Then
   
5.             With sht
   
6.                 .Cells(Rows.Count, 1).End(xlUp).EntireRow.Delete
   
7.             End With
   
8.         End If
   
9.     Next
   
10.     MsgBox "删除完成", vbInformation
    
11. End Sub

复制代码