第2个回答 2013-10-19
Function FilterCriteria(Rng As Range) As String
Application.Volatile
Dim Filter As String
Filter = ""
On Error GoTo Finish
With Rng.Parent.AutoFilter
If Intersect(Rng, .Range) Is Nothing Then GoTo Finish
With .Filters(Rng.Column - .Range.Column + 1)
If Not .On Then GoTo Finish
Filter = .Criteria1
Select Case .Operator
Case xlAnd
Filter = Filter & " 和 " & .Criteria2
Case xlOr
Filter = Filter & " 或 " & .Criteria2
End Select
End With
End With
Finish:
FilterCriteria = Mid(Filter, 2)
End Function
粘贴到模块中。
在d1单元格中输入公式:
=FilterCriteria(A1)