2,462
社区成员
发帖
与我相关
我的任务
分享
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