Dictionary | ExcelOffice

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

2018年8月14日作者：exceloffice

暂无评论

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

如下图所示

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

Sub QQ1722187970()
    Dim oWK As Worksheet
    Set oWK = Excel.Worksheets("Sheet1")
    Dim oRng As Range
    With oWK
        iRow = .Range("a65536").End(xlUp).Row
    End With
    '定义字典对象变量
    Dim oDic As Object
    '创建字典对象
    Set oDic = CreateObject("Scripting.Dictionary")
    For i = 2 To iRow
        With oDic
            sKey = oWK.Cells(i, 1).Value
            If .exists(sKey) Then
                '添加相同单元格内容的单元格区域
                Set .Item(sKey) = Excel.Application.Union(.Item(sKey), oWK.Cells(i, 1))
            Else
                .Add sKey, oWK.Cells(i, 1)
            End If
        End With
    Next i
    arrKeys = oDic.keys
    For i = 0 To UBound(arrKeys)
        Set oRng = oDic.Item(arrKeys(i))
        Debug.Print oRng.Address
    Next i
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

Sub QQ1722187970()

Dim oWK As Worksheet

Set oWK = Excel.Worksheets("Sheet1")

Dim oRng As Range

With oWK

iRow = .Range("a65536").End(xlUp).Row

End With

'定义字典对象变量

Dim oDic As Object

'创建字典对象

Set oDic = CreateObject("Scripting.Dictionary")

For i = 2 To iRow

With oDic

sKey = oWK.Cells(i, 1).Value

If .exists(sKey) Then

'添加相同单元格内容的单元格区域

Set .Item(sKey) = Excel.Application.Union(.Item(sKey), oWK.Cells(i, 1))

Else

.Add sKey, oWK.Cells(i, 1)

End If

End With

Next i

arrKeys = oDic.keys

For i = 0 To UBound(arrKeys)

Set oRng = oDic.Item(arrKeys(i))

Debug.Print oRng.Address

Next i

End Sub

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

2018年4月3日作者：exceloffice

暂无评论

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

在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日作者：exceloffice

暂无评论

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

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

如果合并同类项后，其余字段还涉及字符的串联，则需要用vba来实现。

以下代码是一个通用的根[……]

阅读全文

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

2016年10月20日作者：exceloffice

暂无评论

经常写vba代码就一定需要用到Dictionary字典对象，字典对象可以用来存储数据对，每对数据由数据内容和数据的键值组成，每个数据内容有唯一的一个键值与之匹配。当遇到重复的键值时，将会报错。所有的数据键值和所有的数据内容都存储在相应的数组中。由于它只能存储唯一的键值的特性，经常利用字典对象来处理涉[……]

阅读全文

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

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

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

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

近期文章

关键字

功能