Excel VBA：如何提取Table1可见行的唯一Account Country值并排序粘贴？

原代码的问题在于AdvancedFilter会直接处理整个指定数据范围，不会识别单元格的可见性，所以即使添加.SpecialCells(xlCellTypeVisible)也无法生效。以下是修正后的代码，实现仅提取筛选后可见行的唯一国家值，再按字母排序：

Dim tbl1 As ListObject
Dim visibleCountryRange As Range
Dim tempRange As Range
Dim targetRange As Range

Set tbl1 = Worksheets("Daily work").ListObjects("Table1")
Set targetRange = Worksheets("Daily work").Range("A1006") ' 目标输出位置

' 清空目标区域原有数据
targetRange.CurrentRegion.Clear

' 获取筛选后Account Country列的可见数据行（排除表头）
On Error Resume Next ' 处理无可见行的情况
Set visibleCountryRange = tbl1.ListColumns("Account Country").DataBodyRange.SpecialCells(xlCellTypeVisible)
On Error GoTo 0

If Not visibleCountryRange Is Nothing Then
    ' 定义临时存储区域（可根据实际情况调整位置）
    Set tempRange = Worksheets("Daily work").Range("Z1").Resize(visibleCountryRange.Cells.Count, 1)
    tempRange.Clear
    
    ' 将可见数据复制到临时区域
    visibleCountryRange.Copy tempRange
    
    ' 对临时区域执行高级筛选，提取唯一值到目标位置
    tempRange.AdvancedFilter Action:=xlFilterCopy, CopyToRange:=targetRange, Unique:=True
    
    ' 对提取的唯一值进行升序排序
    With targetRange.CurrentRegion
        .Sort Key1:=.Cells(1), Order1:=xlAscending, Header:=xlNo
    End With
    
    ' 清理临时区域数据
    tempRange.Clear
Else
    MsgBox "当前无可见的国家数据"
End If

' 回到表格区域（可选）
Application.GoTo Reference:=tbl1.Range

关键说明 #

• 先通过SpecialCells(xlCellTypeVisible)精准定位筛选后的可见数据行，避免包含隐藏行内容
• 借助临时区域中转数据，让AdvancedFilter仅处理可见行的数据，确保唯一值提取的准确性
• 添加了无可见行的错误处理，避免代码崩溃
• 最后对提取的唯一值单独排序，确保结果按字母顺序排列

内容的提问来源于stack exchange，提问作者Mark