我想删除含有关键字的整行。excel用宏怎么操作?谁能提供一份宏代码?或者具体怎么操作?
4个回答
展开全部
用宏不会,
但是可以使用神仔筛选功睁瞎唤能,
选中该列,点击筛选,
选择包含条件,条件填写”裂帛“或”出口“,
选择所有筛选出来的行,
右键,选择删除,
然后取消筛选即可悉凯。
但是可以使用神仔筛选功睁瞎唤能,
选中该列,点击筛选,
选择包含条件,条件填写”裂帛“或”出口“,
选择所有筛选出来的行,
右键,选择删除,
然后取消筛选即可悉凯。
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
2014-11-12 · 知道合伙人软件行家
关注
展开全部
做个记号~马上帆蚂试试写一个代码~等会上传。
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...
本回答被网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
修改了一下;
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
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
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
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询