是否有一个vba命令直接从列表对象的标题autofilter获取没有重复的列表。
我的输入是this list,我搜索了一个方法来获取此列表,而不是重复来自我在vba中的对象ListObject
提前致谢。
答案 0 :(得分:0)
你可以使用这个助手功能:
Function GetUniqueValues(rng As Range) As Variant
Dim cell As Range
With CreateObject("Scripting.Dictionary")
For Each cell In rng
.Item(cell.Value) = 1
Next
GetUniqueValues = .keys
End With
End Function
由您的"主要&#34>呼叫模块如下:
Option Explicit
Sub main()
Dim uniqueValues As Variant
uniqueValues = GetUniqueValues(ActiveSheet.ListObjects(1).ListColumns(1).DataBodyRange)
'... rest of your code
End Sub
根据您的需要更改ActiveSheet
,ListObjects(1)
和ListColumns(1)
个参考