Dictionary | ExcelOffice【微信公众号：水星Excel】

如何在C#中使用字典？

2020年8月2日作者：水星Excel
206 次浏览暂无评论

字典是一个常用的对象。几乎所有热门的编程语言都支持字典。

在C#中也可以使用字典，要在C#中使用字典，需要添加System. Collections. Generic 名称空间。[……]

阅读全文>>>
如何用vba获取相同单元格内容的联合单元格区域？

2018年8月14日作者：水星Excel
1,059 次浏览暂无评论

在用vba处理单元格数据时，会遇到相同的单元格内容需要批量处理的情况。

如下图所示

A列的品类含有多个相同项，如果要把相同项所在的单元格区域罗列出来，可以使用如下的代码：
[crayon[……]

阅读全文>>>

如何用vba实现重复值的一对多查找？

2018年4月3日作者：水星Excel

3,596 次浏览暂无评论

一对多查找是一种普遍的问题。

在vba中如果要实现一对多查找，可以借助字典Dictionary对象。代码如下：

Sub QQ1722187970()
    Dim oWK As Worksheet
    Set oWK = Sheet1
    '存入结果
    '定义字典对象变量
    Dim oDic As Object
    '创建字典对象
    Set oDic = CreateObject("Scripting.Dictionary")
    Dim arrKey
    Dim arrItem
    With oWK
        For i = 2 To .Range("a65536").End(xlUp).Row
            sID = .Cells(i, "a").Value
            sValue = .Cells(i, "b").Value
                With oDic
                     If .exists(sID) Then
                    sTemp = .Item(sID)
                    sTemp = sTemp & "!" & sValue
                    .Item(sID) = sTemp
                    Else
                    .Add sID, sValue
                    End If
                End With
        Next i
    End With
    '读取结果
    Set oWK = Sheet2
    With oWK
        For i = 2 To .Range("a65536").End(xlUp).Row
            sID = .Cells(i, "a").Value
            sValue = oDic.Item(sID)
            arr = Split(sValue, "!")
            If UBound(arr) Then
            End If
        Next i
    End With
    '释放字典对象，清空内存
    Set oDic = Nothing
End Sub

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

35

36

37

38

39

Sub QQ1722187970()

Dim oWK As Worksheet

Set oWK = Sheet1

'存入结果

'定义字典对象变量

Dim oDic As Object

'创建字典对象

Set oDic = CreateObject("Scripting.Dictionary")

Dim arrKey

Dim arrItem

With oWK

For i = 2 To .Range("a65536").End(xlUp).Row

sID = .Cells(i, "a").Value

sValue = .Cells(i, "b").Value

With oDic

If .exists(sID) Then

sTemp = .Item(sID)

sTemp = sTemp & "!" & sValue

.Item(sID) = sTemp

Else

.Add sID, sValue

End If

End With

Next i

End With

'读取结果

Set oWK = Sheet2

With oWK

For i = 2 To .Range("a65536").End(xlUp).Row

sID = .Cells(i, "a").Value

sValue = oDic.Item(sID)

arr = Split(sValue, "!")

If UBound(arr) Then

End If

Next i

End With

'释放字典对象，清空内存

Set oDic = Nothing

End Sub

[……]

阅读全文>>>

如何在excel根据某个字段合并同类项，文本内容串联，数值内容求和？

2018年3月19日作者：水星Excel
1,894 次浏览暂无评论

在excel根据某个字段合并同类项是一个经常会碰到的问题。

如果合并同类项后，其余字段只是简单的累加或者计数或者计算平均值等，在excel中可以使用“合并计算”或者“数据透视表”功能来实现。

如果[……]

阅读全文>>>
如何在vba中使用Dictionary字典对象?

2016年10月20日作者：水星Excel
3,770 次浏览暂无评论

经常写vba代码就一定需要用到Dictionary字典对象。

字典对象可以用来存储数据对，每对数据由数据内容和数据的键值组成，每个数据内容有唯一的一个键值与之匹配。

当遇到重复的键值时，将会报错。[……]

阅读全文>>>