数据filter显示什么都不过滤

我已经将查询导入Excel，非常简单。 我遇到的问题是，如果我点击标题行并说filter，如果我select任何filter箭头，他们没有值过滤？ 我应该改变什么，以便能够过滤列中的值？

第1行包含标题，第2行包含数据—但是它们是在数据行中返回的一些空白值（IE第2行及以后）

这里是垃圾数据工作簿链接显示的问题。 在这里input链接描述

Answer 1

数据被导入为一个ListObject表，并保存一个隐藏着.ListObjects.ShowHeaders = False的标题。 为了解决这个问题，必须显示标题行，然后将工作表的行1传输到表格标题行中。

以下是一些快速代码，用于修复作为这种情况的表格导入的数据。

 Sub Repair_Import() Dim lo As ListObject With ActiveSheet For Each lo In .ListObjects If Not lo.ShowHeaders Then _ lo.ShowHeaders = True If Not IsNumeric(.Cells(2, 1)) Then .Rows(1).Copy Destination:=.Cells(2, 1) .Rows(1).EntireRow.Delete End If If Not lo.ShowAutoFilterDropDown Then _ lo.ShowAutoFilterDropDown = True Next lo End With End Sub 

使用A2（或实际列表对象表中的任何单元格）选中，大致转换为：

1. 表格工具►devise►表格样式选项►标题行
   Alt + J T ， O
2. 复制第一行标题标签。
   然后按住 Ctrl + Home，然后按住Shift + Ctrl + →和Ctrl + C。
3. selectA2并粘贴。
   _{↓然后按Ctrl + V}
4. select第1行并删除，向上移动。
   然后按住Shift + 空格键 ，然后按Alt + E ， D 。
5. 表格工具►devise►表格样式选项►filterbutton
   Alt + J T ， B

恕我直言，原始数据导入会更好，并允许更多的个人定制在用户的一端。 这取决于表格标题的左上方的单元格是基于文本的，并且该列是数字，但是个别情况应该通过小的编辑容易地进行。

用隐藏的表头行打开。

打开数据►数据工具►filter显示没有可供过滤的值。

使用上下文菜单表格工具►devise►表格样式选项►显示标题行。

运行修复macros后。

值可用于筛选。