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

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,034 次浏览暂无评论

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

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

如果[……]

阅读全文>>>

如何在vba中使用Dictionary字典对象?

2016年10月20日作者：水星Excel

1,847 次浏览暂无评论

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

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

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

阅读全文>>>

如何用vba在excel单元格中创建根据内容自动减少的数据有效性下拉列表？

如何在python里面使用字典？

在数据量很大时，如何用vba代替countif函数进行计数统计？

如何用vba获取相同单元格内容的联合单元格区域？

如何写vba根据任意选择的字段名拆分工作表数据？

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

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

如何在vba中使用Dictionary字典对象?

感谢你的支持，我将持续地写出更好的文章。

热门文章

最近文章

微信公众号