我想过滤以获得唯一的范围。样本范围作为图片。
数据输入
我使用了这段代码
Sub main()
Dim ws As Worksheet
Set ws = ThisWorkbook.Worksheets("New Spec")
ws.Range("A" & 1, "F" & 6).AdvancedFilter Action:=xlFilterCopy, CopyToRange:=ws.Range("H1"), Unique:=True
End Sub
,但它在下面返回错误结果: 结果
我的预期结果在这里: