[已解决]删除表格里数据

ymq123

请编写代码
     工作表1有4个表格（或者是更多个表格），如果表格中数据大于等于43行时，就删除此表数字。小于43行的表格保留数据。结果如工作表2。

最佳答案

月排行榜 / 总排行榜

qh8600

2014-12-16 18:59

删除表格里数据.rar (27.38 KB, 下载次数: 5)

2014-12-16 19:07 上传

点击文件名下载附件
楼主试试

跳转到最佳答案楼层

qh8600

1. Private Sub 删除指定行_Click()
   
2.     Dim ar, i
   
3.     ar = Sheet2.UsedRange
   
4.     For i = 1 To (UBound(ar, 2) + 1) / 11
   
5.         ar = Cells(1, i * 11 - 10).CurrentRegion
   
6.         If UBound(ar) = 43 Then
   
7.             Range(Cells(1, i * 11 - 10), Cells(43, i * 11)).ClearContents
   
8.         End If
   
9.     Next
   
10. End Sub

复制代码

附件楼下

qh8600

删除表格里数据.rar (27.38 KB, 下载次数: 5)

2014-12-16 19:07 上传

点击文件名下载附件
楼主试试

dsmch

1. Sub Macro1()
   
2. Dim rng As Range, i%
   
3. For i = 1 To 34 Step 11
   
4.     Set rng = Cells(1, i).Resize(1, 10).EntireColumn
   
5.     If rng.Find("*", searchdirection:=xlPrevious).Row >= 43 Then rng.ClearContents
   
6. Next
   
7. End Sub

复制代码