blocks|key|1062489|text|屏幕截图非常有用--以下代码将完成此工作(假设数据位于启动A1的A列中)：|type|unstyled|depth|inlineStyleRanges|entityRanges|data|1062490|Sub+RemoveRows()

Dim+i+As+Long

i+=+1

Do+While+i+<=+ThisWorkbook.ActiveSheet.Range("A1").CurrentRegion.Rows.Count

++++If+InStr(1,+ThisWorkbook.ActiveSheet.Cells(i,+1).Text,+"-",+vbTextCompare)+>+0+Then
++++++++ThisWorkbook.ActiveSheet.Cells(i,+1).EntireRow.Delete
++++Else
++++++++i+=+i+%2B+1
++++End+If

Loop

End+Sub|code-block|syntax|javascript|1062491|共享示例文件：https://www.dropbox.com/s/2vhq6vw7ov7ssya/RemoweDashRows.xlsm|offset|length|1062492|entityMap|0|LINK|mutability|MUTABLE|url|https://www.dropbox.com/s/2vhq6vw7ov7ssya/RemoweDashRows.xlsm^0|0|0|7|1P|0|0^^$0|@$1|2|3|4|5|6|7|S|8|@]|9|@]|A|$]]|$1|B|3|C|5|D|7|T|8|@]|9|@]|A|$E|F]]|$1|G|3|H|5|6|7|U|8|@]|9|@$I|V|J|W|1|X]]|A|$]]|$1|K|3|-4|5|6|7|Y|8|@]|9|@]|A|$]]]|L|$M|$5|N|O|P|A|$Q|R]]]]

The screenshot was very helpful - the following code will do the job (assuming data is located in column A starting A1):

<pre><code>Sub RemoveRows()

Dim i As Long

i = 1

Do While i &lt;= ThisWorkbook.ActiveSheet.Range("A1").CurrentRegion.Rows.Count

 If InStr(1, ThisWorkbook.ActiveSheet.Cells(i, 1).Text, "-", vbTextCompare) &gt; 0 Then
 ThisWorkbook.ActiveSheet.Cells(i, 1).EntireRow.Delete
 Else
 i = i + 1
 End If

Loop

End Sub
</code></pre>

Sample file is shared: <a href="https://www.dropbox.com/s/2vhq6vw7ov7ssya/RemoweDashRows.xlsm">https://www.dropbox.com/s/2vhq6vw7ov7ssya/RemoweDashRows.xlsm</a>

blocks|key|993236|text|最简单的方法是使用filter。|type|unstyled|depth|inlineStyleRanges|entityRanges|offset|length|data|993237|您可以对列A中没有"-“和”复制/粘贴“的任何单元格进行筛选，或者(我更喜欢的方法)对所有具有"-”的单元格进行筛选，然后选择“全部”和删除--一旦删除筛选器，就会得到所需的内容。|993238|希望这能有所帮助。|993239|entityMap|0|LINK|mutability|MUTABLE|url|http://office.microsoft.com/en-us/excel-help/filter-data-in-a-range-or-table-HP010073941.aspx^0|9|6|0|0|0|0^^$0|@$1|2|3|4|5|6|7|P|8|@]|9|@$A|Q|B|R|1|S]]|C|$]]|$1|D|3|E|5|6|7|T|8|@]|9|@]|C|$]]|$1|F|3|G|5|6|7|U|8|@]|9|@]|C|$]]|$1|H|3|-4|5|6|7|V|8|@]|9|@]|C|$]]]|I|$J|$5|K|L|M|C|$N|O]]]]

The easiest way to do this would be to use a <a href="http://office.microsoft.com/en-us/excel-help/filter-data-in-a-range-or-table-HP010073941.aspx">filter</a>.

You can either filter for any cells in column A that don't have a "-" and copy / paste, or (my more preferred method) filter for all cells that do have a "-" and then select all and delete - Once you remove the filter, you're left with what you need.

Hope this helps.

blocks|key|1062403|text|您可以在新列中复制如下公式.|type|unstyled|depth|inlineStyleRanges|entityRanges|data|1062404|=IF(ISNUMBER(FIND("-",A1)),1,0)|code-block|syntax|javascript|1062405|..。然后对该列进行排序，突出显示值为1的所有行并删除它们。|1062406|entityMap^0|0|0|0^^$0|@$1|2|3|4|5|6|7|K|8|@]|9|@]|A|$]]|$1|B|3|C|5|D|7|L|8|@]|9|@]|A|$E|F]]|$1|G|3|H|5|6|7|M|8|@]|9|@]|A|$]]|$1|I|3|-4|5|6|7|N|8|@]|9|@]|A|$]]]|J|$]]

You could copy down a formula like the following in a new column...

<pre><code>=IF(ISNUMBER(FIND("-",A1)),1,0)
</code></pre>

... then sort on that column, highlight all the rows where the value is 1 and delete them.

blocks|key|993296|text|如果要根据特定的单元格值删除行，请执行以下操作。假设我们有一个包含10000行的文件，以及一个值为NULL的字段。基于这个null值，希望删除所有的行和记录。|type|unstyled|depth|inlineStyleRanges|entityRanges|data|993297|以下是一些简单的提示。首先打开“查找替换”对话框，然后在“替换”选项卡上，使所有包含空值的单元格使用“空白”。然后按F5并选择“空白”选项，然后右键单击“活动工作表”，然后选择“删除”，然后选择整个行的选项。|993298|它将根据包含word+NULL的单元格值删除所有这些行。|993299|entityMap^0|0|0|0^^$0|@$1|2|3|4|5|6|7|H|8|@]|9|@]|A|$]]|$1|B|3|C|5|6|7|I|8|@]|9|@]|A|$]]|$1|D|3|E|5|6|7|J|8|@]|9|@]|A|$]]|$1|F|3|-4|5|6|7|K|8|@]|9|@]|A|$]]]|G|$]]

if you want to delete rows based on some specific cell value.
let suppose we have a file containing 10000 rows, and a fields having value of NULL.
and based on that null value want to delete all those rows and records.

here are some simple tip.
First open up Find Replace dialog, and on Replace tab, make all those cell containing NULL values with Blank.
then press F5 and select the Blank option, now right click on the active sheet, and select delete, then option for Entire row.

it will delete all those rows based on cell value of containing word NULL.

blocks|key|1062536|text|如果您的文件不是太大，您可以始终按列排序--一旦它们都在一起，只需突出显示和删除。然后重新排序，回到你想要的。|type|unstyled|depth|inlineStyleRanges|entityRanges|data|1062537|entityMap^0|0^^$0|@$1|2|3|4|5|6|7|D|8|@]|9|@]|A|$]]|$1|B|3|-4|5|6|7|E|8|@]|9|@]|A|$]]]|C|$]]

If you're file isn't too big you can always sort by the column that has the - and once they're all together just highlight and delete. Then re-sort back to what you want.

blocks|key|993828|text|您可以循环遍历范围内的每个单元格，并使用InStr函数检查单元格是否包含字符串(在您的示例中为连字符)。|type|unstyled|depth|inlineStyleRanges|offset|length|style|CODE|entityRanges|data|993829|Sub+DeleteRowsWithHyphen()

++++Dim+rng+As+Range

++++For+Each+rng+In+Range("A2:A10")+'Range+of+values+to+loop+through

++++++++If+InStr(1,+rng.Value,+"-")+>+0+Then+'InStr+returns+an+integer+of+the+position,+if+above+0+-+It+contains+the+string
++++++++++++rng.Delete
++++++++End+If

++++Next+rng

End+Sub|code-block|syntax|javascript|993830|entityMap^0|K|5|0|0^^$0|@$1|2|3|4|5|6|7|M|8|@$9|N|A|O|B|C]]|D|@]|E|$]]|$1|F|3|G|5|H|7|P|8|@]|D|@]|E|$I|J]]|$1|K|3|-4|5|6|7|Q|8|@]|D|@]|E|$]]]|L|$]]

You can loop through each the cells in your range and use the <code>InStr</code> function to check if a cell contains a string, in your case; a hyphen.

<pre><code>Sub DeleteRowsWithHyphen()

 Dim rng As Range

 For Each rng In Range("A2:A10") 'Range of values to loop through

 If InStr(1, rng.Value, "-") &gt; 0 Then 'InStr returns an integer of the position, if above 0 - It contains the string
 rng.Delete
 End If

 Next rng

End Sub
</code></pre>

blocks|key|1062519|text|这是一个自动筛选宏，您可以将其作为函数的基础：|type|unstyled|depth|inlineStyleRanges|entityRanges|data|1062520|Selection.AutoFilter
ActiveSheet.Range("$A$1:$A$10").AutoFilter+Field:=1,+Criteria1:="=*-*",+Operator:=xlAnd
Selection.AutoFilter|code-block|syntax|javascript|1062521|我使用这个自动筛选函数删除匹配的行：|1062522|Public+Sub+FindDelete(sCol+As+String,+vSearch+As+Variant)
'Simple+find+and+Delete
Dim+lLastRow+As+Integer
Dim+rng+As+Range
Dim+rngDelete+As+Range
++++Range(sCol+&+1).Select
++++[2:2].Insert
++++Range(sCol+&+2)+=+"temp"
++++With+ActiveSheet
++++++++.usedrange
++++++++++++lLastRow+=+.Cells.SpecialCells(xlCellTypeLastCell).Row
++++++++Set+rng+=+Range(sCol+&+2,+Cells(lLastRow,+sCol))
++++++++++++rng.AutoFilter+Field:=1,+Criteria1:=vSearch,+Operator:=xlAnd
++++++++Set+rngDelete+=+rng.SpecialCells(xlCellTypeVisible)
++++++++++++rng.AutoFilter
++++++++++++rngDelete.EntireRow.Delete
++++++++.usedrange
++++End+With
End+Sub|1062523|就像：|1062524|call+FindDelete+"A",+"=*-*"|1062525|这帮我节省了很多工作。祝好运!|1062526|entityMap^0|0|0|0|0|0|0|0^^$0|@$1|2|3|4|5|6|7|S|8|@]|9|@]|A|$]]|$1|B|3|C|5|D|7|T|8|@]|9|@]|A|$E|F]]|$1|G|3|H|5|6|7|U|8|@]|9|@]|A|$]]|$1|I|3|J|5|D|7|V|8|@]|9|@]|A|$E|F]]|$1|K|3|L|5|6|7|W|8|@]|9|@]|A|$]]|$1|M|3|N|5|D|7|X|8|@]|9|@]|A|$E|F]]|$1|O|3|P|5|6|7|Y|8|@]|9|@]|A|$]]|$1|Q|3|-4|5|6|7|Z|8|@]|9|@]|A|$]]]|R|$]]

This is the autofilter macro you could base a function off of:

<pre><code>Selection.AutoFilter
ActiveSheet.Range("$A$1:$A$10").AutoFilter Field:=1, Criteria1:="=*-*", Operator:=xlAnd
Selection.AutoFilter
</code></pre>

I use this autofilter function to delete matching rows:

<pre><code>Public Sub FindDelete(sCol As String, vSearch As Variant)
'Simple find and Delete
Dim lLastRow As Integer
Dim rng As Range
Dim rngDelete As Range
 Range(sCol &amp; 1).Select
 [2:2].Insert
 Range(sCol &amp; 2) = "temp"
 With ActiveSheet
 .usedrange
 lLastRow = .Cells.SpecialCells(xlCellTypeLastCell).Row
 Set rng = Range(sCol &amp; 2, Cells(lLastRow, sCol))
 rng.AutoFilter Field:=1, Criteria1:=vSearch, Operator:=xlAnd
 Set rngDelete = rng.SpecialCells(xlCellTypeVisible)
 rng.AutoFilter
 rngDelete.EntireRow.Delete
 .usedrange
 End With
End Sub
</code></pre>

call it like:

<pre><code>call FindDelete "A", "=*-*"
</code></pre>

It's saved me a lot of work. Good luck!

I have a worksheet, I need to delete rows based on cell value ..

Cells to check are in Column A ..

If cell contains "-" .. Delete Row

I can't find a way to do this .. I open a workbook, copy all contents to another workbook, then delete entire rows and columns, but there are specific rows that has to be removed based on cell value.

Need Help Here.

UPDATE

Sample of Data I have

<img src="https://i.stack.imgur.com/4DNZQ.png" alt="Sample">

How to delete row based on cell value

翻译质量差，导致语言生硬或混乱。

没有提供实际的解决方法或示例。

解答不清晰，无法理解或解决问题。

页面排版不美观，阅读体验差。

文章

问答

视频

学习中心

腾讯云实验室

直播

竞赛

腾讯云代码分析专区

腾讯iOA零信任安全管理系统专区

腾讯云架构师技术同盟交流圈

腾讯云数据库专区

腾讯云顾问专区

腾讯云原生专区

腾讯混元专区

腾讯云TCE专区

腾讯云Lighthouse专区

腾讯云HAI专区

腾讯云Edgeone专区

腾讯云存储专区

腾讯云智能专区

腾讯轻联专区 

腾讯云开发专区

TAPD专区

腾讯轻量云游戏服专区

腾讯云最具价值专家

腾讯云架构师技术同盟

腾讯云创作之星

腾讯云开发者先锋

腾讯云代码助手

云原生构建

TAPD 敏捷项目管理

Cloud Studio

SDK中心

API中心

命令行工具

涵盖代码开发、场景应用、自动测试全流程，助你从零构建专属AI助手

一站式MCP教程库，解锁AI应用新玩法

我有一个工作表，我需要根据单元格值删除行。要检查的单元格位于A列。如果单元格包含"-“。删除行我想不出办法.我打开一个工作簿，将所有内容复制到另一个工作簿，然后删除整个行和列，但是必须根据单元格值删除特定的行。这里需要帮助。更新我拥有的数据样本​​

问如何根据单元格值删除行
EN

回答 7

Stack Overflow用户

Stack Overflow用户

Stack Overflow用户

社区

活动

圈层

关于

腾讯云开发者

热门产品

热门推荐

更多推荐

问如何根据单元格值删除行EN

回答 7

Stack Overflow用户

Stack Overflow用户

Stack Overflow用户

社区

活动

圈层

关于

腾讯云开发者

热门产品

热门推荐

更多推荐

问如何根据单元格值删除行
EN