Excel 不在汇总表上复制唯一（筛选）值

我正在使用下面的代码从多个工作表中复制数据表。我注意到我在“总结”表上遗漏了一列。此列在其他页上使用唯一筛选器=唯一（筛选器（L:L，L:L“”）展开。粘贴函数可以复制唯一的过滤器，但我无法让它与我的代码一起工作。有什么建议吗

Sub Summary()

Dim wkstDst As Worksheet
Dim wkstSrc As Worksheet
Dim rngSrc As Range

LastRow = Range("A500").End(xlUp).Row

Set wkstDst = ThisWorkbook.Worksheets("Summary")
wkstDst.Select

Range("A9", Cells(LastRow, "F")).ClearContents

For Each wkstSrc In ThisWorkbook.Worksheets
   If wkstSrc.Name <> "Summary" Then
        With wkstSrc
            Set rngSrc = .Range(.Cells(11, 2), .Cells(.Rows.Count, 2).End(xlUp)).Resize(, 5)
            With rngSrc
                .AutoFilter Field:=1, Criteria1:="<>#N/A"
                .SpecialCells(xlCellTypeVisible).Copy _
                    Destination:=wkstDst.Cells(Rows.Count, 1).End(xlUp)(2)
                .AutoFilter
            End With
        End With
    End If
Next wkstSrc
End Sub

子摘要（）
将wkstDst设置为工作表
将wkstSrc设置为工作表
Dim rngSrc As范围
LastRow=范围（“A500”）。结束（xlUp）。行
设置wkstDst=ThisWorkbook.Worksheets（“摘要”）
wkstDst.Select
范围（“A9”，单元格（最后一行，“F”））。ClearContents
对于此工作簿中的每个wkstSrc。工作表
如果wkstSrc.Name为“Summary”，则
与wkstSrc
设置rngSrc=.Range（.Cells（11,2），.Cells（.Rows.Count，2）.End（xlUp））.Resize（，5）
使用rngSrc
.自动筛选字段：=1，标准1:=“#不适用”
.SpecialCells（xlCellTypeVisible）。复制_
目的地：=wkstDst.Cells（Rows.Count，1）.End（xlUp）（2）
.自动过滤器
以
以
如果结束
下星期
端接头

即使特定列中的数据是

UNIQUE

功能的结果，该代码也可以工作。你的问题可能在别处。谢谢。我想知道我需要做什么调整来复制“唯一”列。我也想知道。鉴于您的数据缺乏详细信息，我无法进一步向您提供建议。它可能会帮助您阅读的帮助主题，然后编辑您的问题以提供相关信息。