如何删除excel中特定内容的行

删除B列内容为“请删除我!”的所有行,是整行都删除,不是删除该内容!数据“筛选”的方法我会,我要的方法是用VBA或是批处理。... 删除B列内容为“请删除我!”的所有行,是整行都删除,不是删除该内容!
数据“筛选”的方法我会,我要的方法是用VBA或是批处理。
展开
 我来答
余余1982
推荐于2018-10-07 · 知道合伙人软件行家
余余1982
知道合伙人软件行家
采纳数:1627 获赞数:4041
从事现场管理及相关计划数据等统计。 熟悉office办公软件(公式、VBA等)的使用。

向TA提问 私信TA
展开全部
VBA方法楼上已经说明,就不重复了!
查找法操作步骤:
1、选中B列
2、CTRL+F 查找 "请删除我",查找全部
3、鼠标点选查找对话框下面的任意结果,CTRL+A(全选结果)
4、右键--删除--整行
ExcelPower
2013-01-28 · 专业Excel公式图表数据分析VBA
ExcelPower
采纳数:4495 获赞数:11863

向TA提问 私信TA
展开全部
Alt+F11 视图--代码窗口,如下复制进去,按F5 运行

sub shanchu()
for i=range("B65536").end(xlup).row to 1 step -1
if range("B" & i) ="请删除我" then rows(i).entirerow.delete
next
end sub
更多追问追答
追问
我改编了下,凡D列内容为"高富帅" ,"屌丝", "黑木耳"的行全部删除,为什么没反应,问题出哪儿了?
Sub shanchu()
For i = Range("B65536").End(xlUp).Row To 1 Step -1
If Range("D" & i) = "高富帅" Then Rows(i).EntireRow.Delete
If Range("D" & i) = "屌丝"Then Rows(i).EntireRow.Delete
If Range("D" & i) = "黑木耳" Then Rows(i).EntireRow.Delete
Next
End Sub
追答
For i = Range("B65536").End(xlUp).Row To 1 Step -1     ‘是指 从B列最后一行到第一行
如果你处理的是D列,建议改为 For i = Range("D65536").End(xlUp).Row To 1 Step -1
本回答被提问者采纳
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
国王史莱克
2013-01-28 · TA获得超过1537个赞
知道小有建树答主
回答量:1008
采纳率:50%
帮助的人:618万
展开全部
如果使用函数公式,提供如下:
假如数据从A2单元格开始:
目标单元格公式:
=INDIRECT(CHAR(COLUMN(BM2))&SMALL(IF($B$2:$B$10000<>"请删除我!",ROW($A$2:$A$10000),4^8),ROW(A1)))&""
数组公式,格式柄右拉下拉复制公式
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
风伤残月愁
2018-01-30 · TA获得超过438个赞
知道小有建树答主
回答量:279
采纳率:84%
帮助的人:72.8万
展开全部
1.删除指定行,第二行开始
Sub 删除请删除我行()
Dim xRow As Integer
Dim i As Integer
xRow = Range("B65536").End(xlUp).Row
For i = xRow To 2 Step -1
If Cells(i, 2) = "请删除我" Then Cells(i, 2).Delete 3
Next
End Sub
2.删除全表有指定“请删除我”字符的所在行
Sub 删除请删除我行()
Dim cel As Range
For Each cel In ActiveSheet.UsedRange

If InStr(cel.Value, "请删除我") <> 0 Then

Rows(cel.Row).Delete

End If

Next
End Sub
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
大唐互娱
2013-01-28 · TA获得超过522个赞
知道答主
回答量:46
采纳率:0%
帮助的人:7.3万
展开全部
合并,居中!
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
收起 2条折叠回答
收起 更多回答(3)
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式