Filter OpenOffice计算中的过滤器

场景：

我有一个电子表格，上面有一个赠品活动的信息，在这个活动中，我的客户通过我的活动收到的每一个推特关注，我都会得到报酬。不幸的是，我使用的应用程序没有跟踪新的关注者和现有的关注者，因为它们为“Follow on Twitter for 1 entry”提供了一个新的和现有的关注者条目。因为我还提供了其他获取条目的方法，所以我需要导出数据并过滤结果，以仅显示那些在Twitter上获得条目的用户，然后通过单独的应用程序过滤掉那些新用户和现有用户

问题：

---

每个数据类型应有一个单独的列；姓名、电子邮件、动作等。动作栏是我希望找到“关注Twitter”的地方，但文件非常杂乱无章，动作可以在许多不同的栏中找到。因此，我需要一种方法，只显示有“followontwitter”字段的行。我不知道该怎么做。

下面的宏将在每个单元格中搜索“关注Twitter”。对于每一行，如果找到匹配项，将显示该行，否则将隐藏该行。您必须调整宏以匹配工作表的行/列总数

Sub Dummy()
    GlobalScope.BasicLibraries.LoadLibrary("Tools")

    Dim ActiveSheet As Object
    ActiveSheet = ThisComponent.CurrentController.ActiveSheet

    Dim r,c As Integer
    For r = 0 To 25
        Dim found As Boolean
        found = False
        For c = 0 to 10
            Dim cell As Object
            cell = ActiveSheet.getCellByPosition(c, r)
            If cell.String = "Follow On Twitter" Then
                found = True
                Exit For
            End If
        Next c
        Dim row As Object
        row = ActiveSheet.getRows.getByIndex(r)
        row.IsVisible = found
    Next r
    MsgBox "Done"
End Sub