主题：筛选剪贴板内容

Dim s  As  String = ClipBoard.GetText()
' Output.Show(s)

Dim Filter As String

    If s > "" Then
        Filter = "制度职责名称 Like  '%" & s & "%'"
    End If

If   Filter >   "" Then
     Tables("制度职责").Filter =   Filter
 End If