我试图根据列索引(categoryPoint)在Excel工作表中选择一列。然后,我尝试在此列上运行高级过滤器以选择唯一值,并使用以下代码将其复制到新工作表中:
Worksheets("Sheet1").Range(Columns(categoryPoint)).AdvancedFilter _
Action:=xlFilterCopy, _
CopyToRange:=Worksheets("Sheet5").Range("C2"), _
Unique:=True
它表示对象或应用程序定义了错误。
答案 0 :(得分:0)
使用以下语法(已测试):
Dim categoryPoint As Long
categoryPoint = 28
Worksheets("Sheet1").UsedRange.Columns(categoryPoint).AdvancedFilter _
Action:=xlFilterCopy, _
CopyToRange:=Worksheets("Sheet5").Range("C2"), _
Unique:=True