[已解决]历遍工作表清除数据的问题

阿柔

附件 历遍工作表清除数据.rar (372.61 KB, 下载次数: 7)

2014-4-24 16:47 上传

点击文件名下载附件
谢谢老师指点！

最佳答案

月排行榜 / 总排行榜

冥王

2014-4-24 17:04

1. Sub demo()
   
2.     Application.ScreenUpdating = False
   
3.     Dim sht As Worksheet
   
4.     Dim r As Integer
   
5.     For Each sht In Worksheets
   
6.         r = sht.Cells(Rows.Count, 1).End(xlUp).Row
   
7.         sht.Rows(r).ClearContents
   
8.     Next
   
9.     Application.ScreenUpdating = True
   
10. End Sub

复制代码

跳转到最佳答案楼层

youfang

选中除表1以外的其他工作表，删除最后一行就可以删除了。比写代码的时间还短
不管是VBA还是技巧，能够删除掉最后一行的数据就是好方法

冥王

1. Sub demo()
   
2.     Application.ScreenUpdating = False
   
3.     Dim sht As Worksheet
   
4.     Dim r As Integer
   
5.     For Each sht In Worksheets
   
6.         r = sht.Cells(Rows.Count, 1).End(xlUp).Row
   
7.         sht.Rows(r).ClearContents
   
8.     Next
   
9.     Application.ScreenUpdating = True
   
10. End Sub

复制代码

蓝粆

冥王 发表于 2014-4-24 17:04

冥老大  教我VBA~

冥王

蓝粆 发表于 2014-4-24 18:20
冥老大  教我VBA~

你是高手  向你学习