Dim str As String = "处方药"
CurrentTable.filter = "'" & vbcrlf & "' + 第一列 + '" & vbcrlf & "' like '%" & vbcrlf & str & vbcrlf & "%'"