excel宏代码:删除A列某单元格所在的行?

写一段代码:A列只能输入0,且输入后删除该单元格所在的行... 写一段代码:A列只能输入0,且输入后删除该单元格所在的行 展开
 我来答
明佳妙明
2019-12-10 · 专注办公自动化和建设工程资料编制
明佳妙明
采纳数:791 获赞数:825

向TA提问 私信TA
展开全部

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

 If Target.Column = 1 Then

    If Target.Offset(-1, 0).Value = "0" Then


        Rows(Target.Offset(-1, 0).Row).Delete Shift:=xlUp

     Else

        Target.Offset(-1, 0).Value = ""

  End If

End If

End Sub

使用参考

Excel某数据变动自动填到其它不同单元格

更多追问追答
追问
我是小白,代码添加在哪里,
我是ALT+F11,然后插入模块的窗口直接复制粘贴的代码,还是没你的效果呀
追答

在你要的以上功能的表代码窗口(不是插入模块的窗口)

挚爱翡冷翠

2019-12-10 · TA获得超过1.5万个赞
知道大有可为答主
回答量:5.6万
采纳率:58%
帮助的人:3746万
展开全部
Do Until Columns("A").Find("■*") Is Nothing
Columns("A").Find("■*").EntireRow.Resize(3).Delete
Loop
End Sub
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
帐号已注销
2019-12-10 · TA获得超过2.4万个赞
知道大有可为答主
回答量:3.2万
采纳率:91%
帮助的人:1622万
展开全部
你直接点击a列右键,删除整行就可以了。
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
嗨丶zh先生
高粉答主

2019-12-10 · 繁杂信息太多,你要学会辨别
知道大有可为答主
回答量:7776
采纳率:100%
帮助的人:227万
展开全部
SUB DEROW()
For i = 1 to [C65536].end(3).Row
If range("C" & i) = "." then
rows(i).Delete
End If
Next
End Sub
追问
没效果
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
迷途羔羊1991

2019-12-10 · TA获得超过4.6万个赞
知道大有可为答主
回答量:3.3万
采纳率:81%
帮助的人:1265万
展开全部
这样做应该是可以的,
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
魅色美色
2019-12-10 · TA获得超过774个赞
知道答主
回答量:5074
采纳率:6%
帮助的人:290万
展开全部
这个读书的时候我们没有学过呀,让我再去看一下。
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
收起 更多回答(6)
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

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

类别

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

说明

0/200

提交
取消

辅 助

模 式