小编Chr*_*tte的帖子

我需要从列表中找到唯一值以及每个值在原始列表中出现的次数。这是我到目前为止所拥有的：

Dim Lister As New List(Of String)()

For Each item In eColumn
    Lister.Add(item.value)
Next

Dim Result As New List(Of String)
Result = Lister.Distinct().ToList

For Each st In Result
    MsgBox(st)
Next

结果是所有唯一值的列表，但不包括每个项目的计数。例如，如果我的清单是

John
John
Abbey
Larry
Larry
Larry
Charles

我想要返回 4 个值：John = 2、Abbey = 1、Larry = 3、Charles = 1。