我想删除含有关键字的整行。excel用宏怎么操作?谁能提供一份宏代码?或者具体怎么操作?

比如这样,我想要删除的是所有行含有裂帛所有行含有出口的词。。希望大神帮忙。。。... 比如这样,我想要删除的是 所有行含有裂帛 所有行含有出口的词。。
希望大神帮忙。。。
展开
 我来答
背俚时运
2014-11-12
知道答主
回答量:14
采纳率:0%
帮助的人:5.9万
展开全部
用宏不会,
但是可以使用神仔筛选功睁瞎唤能,
选中该列,点击筛选,
选择包含条件,条件填写”裂帛“或”出口“,
选择所有筛选出来的行,
右键,选择删除,
然后取消筛选即可悉凯。
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
余余1982
2014-11-12 · 知道合伙人软件行家
余余1982
知道合伙人软件行家
采纳数:1627 获赞数:4041
从事现场管理及相关计划数据等统计。 熟悉office办公软件(公式、VBA等)的使用。

向TA提问 私信TA
展开全部

做个记号~马上帆蚂试试写一个代码~等会上传。

Sub 按钮1_Click()

For I = [A65536].End(3).Row To 2 Step -1

If Cells(I, 1).Value Like "*裂帛*" Or Cells(I, 1).Value Like "*出口念轿咐*"仔纯 Then

Rows(I).Delete

End If

Next

End Sub

追问
执行宏没有反应怎么回事?也没有报错。。
追答
你的关键字 "裂帛""出口"是在那一列?难道不是在A列?
假设在B列的话
修改:[A65536] 为[B65536]
两处 cells(I,1) 改为cells(I,2) 1 2 3.. 表示列号A B C...
本回答被网友采纳
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
七色海潮
2014-11-12 · TA获得超过743个赞
知道小有建树答主
回答量:363
采纳率:0%
帮助的人:218万
展开全部
修改了一下;
Function  DeleteC
    for  i = 1 to 99 (最大行,可以自己改) 
        if instr(1,cells(i,1),"裂帛") >谨做 0  or _
   乎慧        instr(1,cells(i,1),"出口") > 0  then
            rows(i).delete
            i=i-1
     祥顷衡   end if
    next
    msgbox("OK~")
end Function
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
feiyun
2014-11-12 · 知道合伙人教育行家
feiyun
知道合伙人教育行家
采纳数:2687 获赞数:7903
从事培训工作12年 中级经济师

向TA提问 私信TA
展开全部
Sub aa()
On Error Resume Next
For r = [a65536].End(xlUp).Row To 1 Step -1
If Cells(r, 1).Value Like "*裂帛*" Or 郑枣Cells(r, 1).Value 喊改拆Like 歼顷"*出口*" Then Rows(r).Delete
Next
End Sub
本回答被提问者采纳
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
收起 更多回答(2)
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

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

类别

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

说明

0/200

提交
取消

辅 助

模 式