数据过滤器显示没有要过滤的内容

Question

我已将查询导入 Excel，过程非常简单。我遇到的问题是，如果我单击标题行并说过滤器，如果我选择任何过滤器箭头，它们就没有要过滤的值吗？我应该更改哪些内容才能过滤列中的值？

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

这里是显示问题的垃圾数据工作簿的链接。 enter link description here

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. 表格工具 ► 设计 ► 表格样式选项 ► 标题行
    Alt+JT,O
2. 复制第一行标题标签。
    Ctrl+Home 然后 Shift+Ctrl+→ 和 Ctrl+C.
3. 选择 A2 并粘贴。
    _{↓ 然后 Ctrl+V}
4. 选择第 1 行并删除，向上移动。
   Ctrl+Home 然后 Shift+空格键 最后是 Alt+E,D.
5. 表格工具 ► 设计 ► 表格样式选项 ► 过滤器按钮
    Alt+JT,B

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

以隐藏的表格标题行打开。

      

打开数据 ► 数据工具 ► 过滤器显示没有可用于过滤的值。

      

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

      

运行修复宏后。

      

值可用于过滤。