如何按列标题引用Excel动态列并将唯一值高级筛选至指定单元格？

你的代码思路没问题，但有几个细节需要调整才能正常运行，下面是修正后的代码和关键说明：

修正后的完整代码 #

Sub CopyUniqueNames()
    Dim sourceTable As ListObject
    Dim targetRange As Range
    
    ' 定位到「Excel Input」工作表里的表格
    Set sourceTable = ThisWorkbook.Sheets("Excel Input").ListObjects("Excel_Input")
    ' 定位到「Dashboard」工作表的J2单元格
    Set targetRange = ThisWorkbook.Sheets("Dashboard").Range("J2")
    
    ' 执行高级筛选，提取唯一值
    sourceTable.ListColumns("Name").Range.AdvancedFilter _
        Action:=xlFilterCopy, _
        CopyToRange:=targetRange, _
        Unique:=True
End Sub

关键修正点说明 #

• 指定目标工作表：原代码里的Range("J2")默认会指向当前激活的工作表，必须加上Sheets("Dashboard")才能确保数据复制到正确位置。
• 正确获取表格列区域：原代码用Columns("Name")返回的是ListColumn对象，需要加上.Range才能拿到包含表头的整列单元格区域，这样高级筛选才能识别列标题。
• 规范语法格式：换行用的下划线_前面要加空格，后面不能留多余空格，否则会触发编译错误。

新手操作提示 #

1. 确认「Excel Input」里的数据是正式Excel表格：选中数据区域按Ctrl+T创建，在顶部「表格设计」选项卡可以查看表格名称是否为Excel_Input（和代码里的名称要完全一致）。
2. 清空旧数据：运行代码前，手动删除「Dashboard」J列从J2开始的旧内容，避免新旧数据混在一起。
3. 运行代码：按Alt+F11打开VBA编辑器，右键点击左侧的工作簿名称→插入→模块，把代码粘贴进去，按F5就能执行。

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