excel - 保留多个字符串并删除其他数据

Question

我面临一个小问题，基本上我已经成功完成了一个字符串的宏过程。但是我无法处理相同的 vba 宏来保留多个字符串并删除 CSV 文件中存在的不需要的数据。

目前，下面的代码只保留带有字符串的行Event Magnitude:并删除其余的行。

但是，我想在同一个宏中添加多个字符串，例如Event Duration:,
Trigger Date:，Trigger Time:但我不确定该怎么做。

如果我可以添加多个字符串，此宏将检查所有 4 个字符串并保留该数据并删除其余数据。

Sub DeleteNotMIS()
    Dim r As Long, lr As Long
    lr = Cells(Rows.Count, 1).End(xlUp).Row
    For r = lr To 2 Step -1
        If InStr(Cells(r, 1), "Event Magnitude: ") = 0 Then Rows(r).Delete
    Next r
 End Sub

标签： excelvba

Answer 1