例如公司名稱列里篩選出名字包含 杭州或北京或上海或天津或杭州的
uj5u.com熱心網友回復：
參考帖子:https://bbs.csdn.net/topics/392554132
函式修改成:
Option Explicit
'如果strVal字串內包含arrKeywords字串陣列中的任意一項,回傳True,否則回傳False.
Public Function IsAnyKeywordIncluded(ByVal strVal As String, ParamArray arrKeywords()) As Boolean
Dim i As Integer
For i = LBound(arrKeywords) To UBound(arrKeywords)
If InStr(arrKeywords(i), strVal) > 0 Then
IsAnyKeywordIncluded = True
Exit Function
End If
Next
IsAnyKeywordIncluded = False
End Function
Sub Macro3()
'
' Macro3 Macro
'
'
Range("A1:A27").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _
"C1:C2"), CopyToRange:=Range("I1"), Unique:=False
End Sub
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/36981.html
標籤：VBA
上一篇：怎么寫呀？