使用列索引过滤和复制

时间:2015-09-23 09:57:43

标签: excel vba excel-vba

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

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

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

1 个答案:

答案 0 :(得分:0)

使用以下语法(已测试):

Dim categoryPoint As Long

categoryPoint = 28

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