1把代码复制带代码框,选择你的数据区域,运行即可Sub zqt()Dim ak As RangeFor Each ak In SelectionIf ak.Value = 32 Then'32为你的数字,自己更改,如果是文本要加 ""符号,在里面写文本Rows(ak.Row).DeleteEnd If: NextEnd Sub...
没有函数或公式可以直接删除行!目前通过VBA可以实现!比如推荐的答案:我在他的基础上做个小改进Sub zqt()Dim ak As Range,abc abc=inputbox "请输入要查找的内容:"For Each ak In SelectionIf ak = abc Then
Rows(ak.Row)....