Note: The other languages of the website are Google-translated. Back to English

如何在Excel中删除带有负值的行?

假设您具有以下数据范围,并且如果B列中的数字为负,则要删除整行,是否有任何好的方法可以解决Excel中的此问题?

带有负1的doc删除 2 带有负2的doc删除

使用VBA代码删除带负数的行

使用Kutools for Excel删除带负数的行


箭头蓝色右气泡 使用VBA代码删除带负数的行

如果特定列中有负数,则以下VBA代码可以帮助您删除整行,请执行以下操作:

1。 按住 ALT + F11 键打开 Microsoft Visual Basic应用程序 窗口。

2. 单击 插页 > 模块,然后将以下代码粘贴到 模块窗口.

VBA代码:删除带负数的行

Sub Deleter()
'updatebyExtendoffice
    Dim xRg As Range
    Dim xCell As Range
    Dim xTxt As String
    Dim I As Long
    On Error Resume Next
    xTxt = ActiveWindow.RangeSelection.Address
Sel:
    Set xRg = Nothing
    Set xRg = Application.InputBox("please select the data range:", "Kutools for Excel", xTxt, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    If xRg.Areas.Count > 1 Then
        MsgBox "does not support multiple selections, please select again", vbInformation, "Kutools for Excel"
        GoTo Sel
    End If
    If xRg.Columns.Count > 1 Then
        MsgBox "does not support multiple columns, please select again", vbInformation, "Kutools for Excel"
        GoTo Sel
    End If
    For I = xRg.Rows.Count To 1 Step -1
        If xRg.Cells(I) < 0 Then xRg.Cells(I).EntireRow.Delete
    Next
End Sub

3. 然后按 F5 键以执行此代码,请在提示框中,选择要从中查找负数的数字列,请参见屏幕截图:

带有负3的doc删除

4。 然后点击 OK 按钮,带有负数的行立即被删除。


箭头蓝色右气泡 使用Kutools for Excel删除带负数的行

为了处理这项工作, Kutools for Excel选择特定的单元格 此功能也可以帮您一个忙,使用此实用程序,您可以先选择包含负值的整个行,然后根据需要删除整个行。

Kutools for Excel : 带有300多个便捷的Excel加载项,可以在30天内免费试用. 

安装后 Kutools for Excel,请执行以下操作:

1。 选择包含要删除的负数的列。

2。 然后点击 库工具 > 选择 > 选择特定的单元格,请参见屏幕截图:

3。 在 选择特定的单元格 对话框中选择 整行 在选项 选择类型,然后选择 小于 来自 特定类型 并进入 0 进入条件旁边的文本框,请参见屏幕截图:

带有负5的doc删除

4。 然后点击 Ok,立即选择了包含负数的行,然后单击 主页 > 删除 > 删除工作表行 要根据需要删除选定的行,请参见屏幕截图:

带有负6的doc删除 2 带有负7的doc删除

小贴士:您也可以右键单击以选择 删除 从上下文菜单中删除选定的行。


最佳办公效率工具

Kutools for Excel解决了您的大多数问题,并使您的生产率提高了80%

  • 重用: 快速插入 复杂的公式,图表 以及您以前使用过的任何东西; 加密单元 带密码 创建邮件列表 并发送电子邮件...
  • 超级公式栏 (轻松编辑多行文本和公式); 阅读版式 (轻松读取和编辑大量单元格); 粘贴到过滤范围...
  • 合并单元格/行/列 不会丢失数据; 拆分单元格内容; 合并重复的行/列...防止细胞重复; 比较范围...
  • 选择重复或唯一 行; 选择空白行 (所有单元格都是空的); 超级查找和模糊查找 在许多工作簿中; 随机选择...
  • 确切的副本 多个单元格,无需更改公式参考; 自动创建参考 到多张纸; 插入项目符号,复选框等...
  • 提取文字,添加文本,按位置删除, 删除空间; 创建和打印分页小计; 在单元格内容和注释之间转换...
  • 超级滤镜 (将过滤方案保存并应用于其他工作表); 高级排序 按月/周/日,频率及更多; 特殊过滤器 用粗体,斜体...
  • 结合工作簿和工作表; 根据关键列合并表; 将数据分割成多个工作表; 批量转换xls,xlsx和PDF...
  • 超过300种强大功能。 支持Office / Excel 2007-2019和365。支持所有语言。 在您的企业或组织中轻松部署。 完整功能30天免费试用。 60天退款保证。
kte选项卡201905

Office选项卡为Office带来了选项卡式界面,使您的工作更加轻松

  • 在Word,Excel,PowerPoint中启用选项卡式编辑和阅读,发布者,Access,Visio和Project。
  • 在同一窗口的新选项卡中而不是在新窗口中打开并创建多个文档。
  • 每天将您的工作效率提高50%,并减少数百次鼠标单击!
officetab底部
按评论排序
注释 (3)
还没有评分。 成为第一位评论!
该评论由网站上的主持人最小化
谢谢你!

有没有办法用积极的价值观来做到这一点?
该评论由网站上的主持人最小化
嗨,乔恩,
要删除具有正值的行,您只需要应用以下代码,请尝试。
子删除器()
将 xRg 调暗为范围
将 xCell 调暗为范围
将 xTxt 调暗为字符串
暗淡我只要
出错时继续下一步
xTxt = ActiveWindow.RangeSelection.Address
盐:
设置 xRg = 无
Set xRg = Application.InputBox("请选择数据范围:", "Kutools for Excel", xTxt, , , , , 8)
如果 xRg 什么都不是,则退出 Sub
如果 xRg.Areas.Count > 1 那么
MsgBox "不支持多选,请重新选择", vbInformation, "Kutools for Excel"
转到选择
结束如果
如果 xRg.Columns.Count > 1 那么
MsgBox "不支持多列,请重新选择", vbInformation, "Kutools for Excel"
转到选择
结束如果
对于 I = xRg.Rows.Count 到 1 步 -1
如果 xRg.Cells(I) > 0 那么 xRg.Cells(I).EntireRow.Delete
下一页
END SUB
该评论由网站上的主持人最小化
感谢删除功能..效果很好..必须是数字字段而不仅仅是 - 问候
这里还没有评论
留下你的意见
以访客身份发帖
×
评价此帖子:
0   产品特性
建议地点