Excel精英培训网

 找回密码
 注册
数据透视表40+个常用小技巧,让你一次学会!
查看: 3222|回复: 3

[已解决]删除表格中数字小于等于8的表格

[复制链接]
发表于 2014-12-29 09:14 | 显示全部楼层 |阅读模式
请编写代码
工作表2中有5个表格,删除每行数字小于等于8个的表格,工作表3内是删除结果。

最佳答案
2014-12-29 09:33
with sheet2 改成 with Sheets(“2”)

删除表格中数字小于等于8的表格.rar

10.76 KB, 下载次数: 14

excel精英培训的微信平台,每天都会发送excel学习教程和资料。扫一扫明天就可以收到新教程
发表于 2014-12-29 09:30 | 显示全部楼层
  1. Sub tt()
  2.     Dim xRng As Range, delRng As Range
  3.     With Sheet2
  4.         c = .Cells(1, 256).End(xlToLeft).Column
  5.         For i = 1 To c Step 11
  6.             Set xRng = .Cells(1, i).Resize(1, 10)
  7.             If Application.Count(xRng) <= 8 Then
  8.                 If delRng Is Nothing Then Set delRng = xRng Else Set delRng = Union(delRng, xRng)
  9.             End If
  10.         Next
  11.         delRng.Delete shift:=xlShiftToLeft
  12.     End With
  13. End Sub
复制代码
回复

使用道具 举报

发表于 2014-12-29 09:33 | 显示全部楼层    本楼为最佳答案   
with sheet2 改成 with Sheets(“2”)

删除表格中数字小于等于8的表格.rar

21.83 KB, 下载次数: 4

回复

使用道具 举报

发表于 2014-12-29 09:45 | 显示全部楼层
  1. Sub Macro1()
  2. Dim rng As Range
  3. Sheet2.Activate
  4. For i = 45 To 1 Step -11
  5.     Set rng = Cells(1, i).Resize(1, 10)
  6.     If Application.CountA(rng) <= 8 Then rng.Delete Shift:=xlToLeft
  7. Next
  8. End Sub
复制代码
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2024-3-29 20:01 , Processed in 0.338634 second(s), 10 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表