在excel vba中获得唯一的值以及空string

我怎样才能修改这个代码也给范围内的空string

Sub GetUniqueAndCount() Dim d As Object, c As Range, k, tmp As String Set d = CreateObject("scripting.dictionary") For Each c In Selection tmp = Trim(c.Value) If Len(tmp) > 0 Then d(tmp) = d(tmp) + 1 Next c For Each k In d.keys Debug.Print k, d(k) Next k End Sub 

Answer 1

只要删除tmp的长度的testing，它应该这样做：

 Sub GetUniqueAndCount() Dim d As Object, c As Range, k, tmp As String Set d = CreateObject("scripting.dictionary") For Each c In Selection tmp = Trim(c.Value) d(tmp) = d(tmp) + 1 Next c For Each k In d.keys Debug.Print k, d(k) Next k End Sub