如何使用vb脚本根据excel中是否包含特定字符串来剪切行？

我正在编写一个VBScript，它应该打开一个HTML文件，将其复制到excel中，然后希望根据条件剪切某些行。注意：也可以根据内容对行进行排序

例如，如果我有行

1 aasfsfas
2 qrwqrwqrqp
3 czxzxczx
4 qwrrqwpqwr  

我想要那些包含p的，我想要这个出现：

2 qrwqrwqrqp
4 qwrrqwpqwr

或者对其进行排序，使p行位于顶部

以下是打开Excel文件的代码：

Set Excel = CreateObject("Excel.Application")
Excel.Application.Visible = True
Excel.WorkBooks.Open csv
' App Activate, bring to front
CreateObject("WScript.Shell").AppActivate Excel.Name

我有点不知道从这里该去哪里

---

这个问题的主要目的是：使用vb脚本对excel中的行进行排序类似这样的操作可能会减少部分测试的难度：

---

你需要代码来处理HTML导入还是仅仅是行过滤？你应该把你的问题分成更小更简单的问题。然后问一个具体问题。能否阅读HTML/解析HTML/创建Excel文件/在Excel文件中写入数据/解析字符串/订单字符串/保存Excel文件/…@Nathantugy编辑的问题行过滤是此问题的目标使用正则表达式检查所需的文本，然后删除不匹配的行。可以在导入Excel之前或之后执行此操作。

' Make sure there's a header row if not already
Excel.Rows("$1:$1").Insert -4121 'xlDown
Excel.Range("$A$1").Formula = "#"
Excel.Range("$B$1").Formula = "Text"
' Do the actual filtering; "=*p*" should be replaced with whatever actual criteria you need;
'     assumes column 2 is the relevant one
Excel.Range("$A$1").CurrentRegion.AutoFilter 2, "=*p*"