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

ymq123

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

最佳答案

月排行榜 / 总排行榜

dsmch

2014-12-20 11:18

1. Sub Macro1()
   
2. Dim rng As Range, j&, l&, n&
   
3. Sheets(2).Activate
   
4. l = ActiveSheet.UsedRange.Columns.Count - 9 '列
   
5. For j = 1 To l Step 11
   
6.     Set rng = Cells(1, j).Resize(1, 10).EntireColumn
   
7.     n = rng.Find("*", searchdirection:=xlPrevious).Row
   
8.     If n < 36 Then rng.ClearContents
   
9. Next
   
10. End Sub

复制代码

跳转到最佳答案楼层

dsmch

1. Sub Macro1()
   
2. Dim rng As Range, j&, l&, n&
   
3. l = ActiveSheet.UsedRange.Columns.Count - 9 '列
   
4. For j = 1 To l Step 11
   
5.     Set rng = Cells(1, j).Resize(1, 10).EntireColumn
   
6.     n = rng.Find("*", searchdirection:=xlPrevious).Row
   
7.     If n < 36 Then rng.ClearContents
   
8. Next
   
9. End Sub

复制代码

ymq123

dsmch 发表于 2014-12-19 06:30

你好，
    把表格增多，放到工作表2时，有一个没有删除，请修改代码
谢谢

dsmch

1. Sub Macro1()
   
2. Dim rng As Range, j&, l&, n&
   
3. Sheets(2).Activate
   
4. l = ActiveSheet.UsedRange.Columns.Count - 9 '列
   
5. For j = 1 To l Step 11
   
6.     Set rng = Cells(1, j).Resize(1, 10).EntireColumn
   
7.     n = rng.Find("*", searchdirection:=xlPrevious).Row
   
8.     If n < 36 Then rng.ClearContents
   
9. Next
   
10. End Sub

复制代码

ymq123

dsmch 发表于 2014-12-20 11:18

你好，
下面代码中9是什么意思。谢谢！

• l = ActiveSheet.UsedRange.Columns.Count - 9 '列