excel里怎么把一个单元格的内容等于筛选显示内容

你是把可以用自动筛选完成的事，用高级筛选模式来做了
你要输入的企业X，实际上就是高级筛选的唯一条件，其实高级筛选是可以更复杂一些的，仔细了解一下高级筛选的操作方法就行了；
如果你觉得还是麻烦了一点，一定要用函数类方式，只要一输入就给你出结果，那你可以录一个宏，设一个命令按钮，在A1中输入后执行宏（点一下按钮）就可以了
不知道你的具体用在哪个方面，EXECL自身具有的功能相对比较复杂，用函数表达可能用此困难；如果你要在A1中置下拉箭头，那是设置A1单元格的数据有效性了，类型是序列，选择你的企业列中所有企业名称（最好先建个列表直接引用），用英方逗号分隔就行了

查找vlookup函数具体步骤如下：

vlookup（要查找的值，范围，返回第几列的值，是否精确查找）
A1 =id 区域= A：D (A =ID B=姓名 C=性别 D=工资） 0=精确查找
=vlookup（a1，a：d，2,0） 返回当前页的id对应的姓名列 （第二列）

建议用VBA
按ALT+F11组合键进入VBE编辑器,双击"ThisWorkbook",在代码编辑区自制粘贴以下代码:
Private Sub Workbook_Open()'工作薄打开时
On Error Resume Next
Dim Col As New Collection
Dim Rng As Range, Syion As String
Dim i As Integer
With Sheet1
For Each Rng In .Range("b3", .[b65536].End(3))
Col.Add Rng, key:=CStr(Rng)
Next
For i = 1 To Col.Count
Syion = Syion & Col(i) & ","
Next
With .Range("a1").Validation
.Delete
.Add Type:=xlValidateList, Formula1:=Syion & "," & "全部显示"
End With
End With
End Sub
在VBE编辑器窗口双击"Sheet1"在代码编辑区复制粘贴以下代码:
Private Sub Worksheet_Change(ByVal Target As Range)'单元格更改时
If Target.Address <> "$A$1" Then Exit Sub
Dim Rng As Range
Application.ScreenUpdating = False
Cells.EntireRow.Hidden = False
For Each Rng In Range("b3", [b65536].End(3))
If Rng <> Target.Value Then
Rows(Rng.Row).EntireRow.Hidden = True
End If
Next
If Target = "全部显示" Then Cells.EntireRow.Hidden = False
Application.ScreenUpdating = True
End Sub
完成后保存工作薄关闭再打开就可以了.如果有疑问Hi或将你的邮件地址补充说明我将附件传给你.

用下拉列表有效性和lookup函数实现，有问题在线问
看例子http://www.mofile.com/pickup/9m4c28ho9so9361/
公式在例子中。黄色是你要筛选的位置

双击A1单元格，然后将下列公式复制到单元格内，然后按CTRL+SHIFT+回车
=OFFSET(C1,MAX(SUBTOTAL(3,OFFSET(B1,ROW(1:100),))*ROW(1:100)),)