excel中查找含有汇总的单元格全部删除，删除整行的代码怎么写？

lsc · 发表于 2016-7-13 15:38

本帖最后由 lsc 于 2016-7-13 16:37 编辑

想把某列中含有汇总的行，整行删除，因每天都有这样的操作，就想录制成宏来做，结果录制不成功。。请问：如果编写代码的话，怎么表示这样的操作。
我是ctrl+f ，在查找对话框输入“汇总”，选查找全部，按ctrl+a 就全部选定了，再右键，删除，整行，结束。。

辣椒油3 · 发表于 2016-7-13 15:55

Sub hong()

Dim i, r As Integer
r = sheets("sheet1").Range("a65536").End(xlUp).Row
For i = r To 2 Step -1
   If Cells(i, 1) = "汇总" Then
   Rows(i).Delete
   End If
Next
End Sub

辣椒油3 · 发表于 2016-7-13 15:57

本帖最后由辣椒油3 于 2016-7-13 15:58 编辑

if Cells(i, 1)你的“汇总”在哪一列，自己改1为你的列

lsc · 发表于 2016-7-13 16:12

我是在查找对话框中输入的“汇总”，不是在单元格里的。。

辣椒油3 · 发表于 2016-7-13 16:14

lsc 发表于 2016-7-13 16:12
我是在查找对话框中输入的“汇总”，不是在单元格里的。。

你没有附件，看不懂你的意思

lsc900707 · 发表于 2016-7-13 20:09

lsc 发表于 2016-7-13 16:12
我是在查找对话框中输入的“汇总”，不是在单元格里的。。

你的数据表里没有“汇总”行？那你删除什么？
现在要你自己确认“汇总”两个字在哪列？
要不就上传附件看看。要不代码不修改，还是用不了。

lsc · 发表于 2016-7-14 08:17

附件已上传。。可能是我描述的不太清楚。。

辣椒油3 · 发表于 2016-7-14 08:39

本帖最后由辣椒油3 于 2016-7-14 08:40 编辑

Sub xx()
Dim i, r As Integer
r = Sheets("销售订单决策分析").Range("t65536").End(xlUp).Row
For i = r To 2 Step -1
If Right(Cells(i, 8), 2) = "汇总" Then
Rows(i).Delete
End If
Next
End Sub

复制代码

CC例例 · 发表于 2016-7-14 08:41

Sub DeleteRows()
Dim i&, x&
Application.ScreenUpdating = False
x = Range("h65536").End(xlUp).Row
For i = x To 8 Step -1
If Cells(i, "H") Like "*汇总" Then
Rows(i).Delete
End If
Next
Application.ScreenUpdating = True
End Sub

复制代码

lsc · 发表于 2016-7-14 09:28

谢谢各位！好用。。

		自动登录	找回密码
密码			免费注册

[求助] excel中查找含有汇总的单元格全部删除，删除整行的代码怎么写？

最新热点 /1