如何删除excel中特定内容的行
删除B列内容为“请删除我!”的所有行,是整行都删除,不是删除该内容!数据“筛选”的方法我会,我要的方法是用VBA或是批处理。...
删除B列内容为“请删除我!”的所有行,是整行都删除,不是删除该内容!
数据“筛选”的方法我会,我要的方法是用VBA或是批处理。 展开
数据“筛选”的方法我会,我要的方法是用VBA或是批处理。 展开
5个回答
展开全部
Alt+F11 视图--代码窗口,如下复制进去,按F5 运行
sub shanchu()
for i=range("B65536").end(xlup).row to 1 step -1
if range("B" & i) ="请删除我" then rows(i).entirerow.delete
next
end sub
sub shanchu()
for i=range("B65536").end(xlup).row to 1 step -1
if range("B" & i) ="请删除我" then rows(i).entirerow.delete
next
end sub
更多追问追答
追问
我改编了下,凡D列内容为"高富帅" ,"屌丝", "黑木耳"的行全部删除,为什么没反应,问题出哪儿了?
Sub shanchu()
For i = Range("B65536").End(xlUp).Row To 1 Step -1
If Range("D" & i) = "高富帅" Then Rows(i).EntireRow.Delete
If Range("D" & i) = "屌丝"Then Rows(i).EntireRow.Delete
If Range("D" & i) = "黑木耳" Then Rows(i).EntireRow.Delete
Next
End Sub
追答
For i = Range("B65536").End(xlUp).Row To 1 Step -1 ‘是指 从B列最后一行到第一行
如果你处理的是D列,建议改为 For i = Range("D65536").End(xlUp).Row To 1 Step -1
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
如果使用函数公式,提供如下:
假如数据从A2单元格开始:
目标单元格公式:
=INDIRECT(CHAR(COLUMN(BM2))&SMALL(IF($B$2:$B$10000<>"请删除我!",ROW($A$2:$A$10000),4^8),ROW(A1)))&""
数组公式,格式柄右拉下拉复制公式
假如数据从A2单元格开始:
目标单元格公式:
=INDIRECT(CHAR(COLUMN(BM2))&SMALL(IF($B$2:$B$10000<>"请删除我!",ROW($A$2:$A$10000),4^8),ROW(A1)))&""
数组公式,格式柄右拉下拉复制公式
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
1.删除指定行,第二行开始
Sub 删除请删除我行()
Dim xRow As Integer
Dim i As Integer
xRow = Range("B65536").End(xlUp).Row
For i = xRow To 2 Step -1
If Cells(i, 2) = "请删除我" Then Cells(i, 2).Delete 3
Next
End Sub
2.删除全表有指定“请删除我”字符的所在行
Sub 删除请删除我行()
Dim cel As Range
For Each cel In ActiveSheet.UsedRange
If InStr(cel.Value, "请删除我") <> 0 Then
Rows(cel.Row).Delete
End If
Next
End Sub
Sub 删除请删除我行()
Dim xRow As Integer
Dim i As Integer
xRow = Range("B65536").End(xlUp).Row
For i = xRow To 2 Step -1
If Cells(i, 2) = "请删除我" Then Cells(i, 2).Delete 3
Next
End Sub
2.删除全表有指定“请删除我”字符的所在行
Sub 删除请删除我行()
Dim cel As Range
For Each cel In ActiveSheet.UsedRange
If InStr(cel.Value, "请删除我") <> 0 Then
Rows(cel.Row).Delete
End If
Next
End Sub
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
合并,居中!
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询