excel怎么保留指定的内容,急急急
发布网友
发布时间:2022-04-21 22:07
我来回答
共3个回答
热心网友
时间:2023-10-05 04:09
用VBA可以实现,例如设计一个子程序:sub 保留指定内容()
其中用一个逻辑变量in_p来记录某行是否处于<p>与</p>之间,如某行处于<p>与</p>之间,则in_p取值 True,反之取值False。当in_p取值False时,则清除该行。
程序代码如下:
Sub 保留指定内容()
Dim rag As Range
Dim in_p As Boolean
in_p = False
For Each rag In Range("A1:A" & Range("A65536").End(xlUp).Row)
If rag.Value = "<p>" Then in_p = True
If Not in_p Then Range(rag.Row & ":" & rag.Row).ClearContents
If rag.Value = "</p>" Then in_p = False
Next
End Sub追问是我的行数超出范围了 改完以后就行了 多谢
热心网友
时间:2023-10-05 04:10
建议:在A列创建一行,标记标题。有助于筛选。(那样就从第二行录入上述公式。)
在D2 列录入=IF(A2="<p>",1,0)
在D3列录入=IF(A3="<p>",1,IF(A3="</p>",2,IF(B2=1,1,0)))
在D4列录入=IF(A4="<p>",1,IF(A4="</p>",2,IF(B3=1,1,0)))
与选中3、4下拉公式。.
.下拉后,选中A列,数据-自动筛选-条件:不等于0
办法虽然笨拙,但是可行。追问因为数据量比较大 有上万行记录 是不是太麻烦
追答那就用上面的VBA进行操作。嘻嘻
热心网友
时间:2023-10-05 04:10
如果要考虑顺序,先加序号, 后排序,把不要的删除,再按序号重排,删序号