Question

我试图根据列索引（categoryPoint）在Excel工作表中选择一列。然后，我尝试在此列上运行高级过滤器以选择唯一值，并使用以下代码将其复制到新工作表中：

Worksheets("Sheet1").Range(Columns(categoryPoint)).AdvancedFilter _
    Action:=xlFilterCopy, _
    CopyToRange:=Worksheets("Sheet5").Range("C2"), _
    Unique:=True

它表示对象或应用程序定义了错误。

Answer 1

使用以下语法（已测试）：

Dim categoryPoint As Long

categoryPoint = 28

Worksheets("Sheet1").UsedRange.Columns(categoryPoint).AdvancedFilter _
    Action:=xlFilterCopy, _
    CopyToRange:=Worksheets("Sheet5").Range("C2"), _
    Unique:=True

使用列索引过滤和复制

1 个答案: