请问字典的items值如何修改

enrun

定义了字典以后，需要修改特定的值，写了两个代码，有一个无法实现，请问错在哪里呢？

陆离Lowry

字典没有索引

gwjkkkkk

陆离Lowry 发表于 2022-12-9 20:19
字典没有索引

不能通过索引方式，索引方式只代表一个变量。。。

准提部林

借屍還魂>>過河拆橋

Sub a()
Dim dic As Object, arr
Columns("D:E").ClearContents
Set dic = CreateObject("scripting.dictionary")
arr = Range("A1").CurrentRegion
For i = 1 To UBound(arr)
    t1$ = arr(i, 1): t2$ = arr(i, 2)
    If t2 = "bbbbb" Then t1 = "XXXX+++" & t1: t2 = ""
    dic(t1) = t2
Next
With Range("D1").Resize(dic.Count, 2)
     .Value = Application.Transpose(Array(dic.keys, dic.items))
     .Replace "+++*", "", lookat:=xlPart
End With
Set dic = Nothing
End Sub

taller

字典的Key可以直接修改，但是红色框中第一列xxxx是重复的，所以一定不能保存在字典中，只能用数组

笨鸟飞不高

工作簿1.zip (15.29 KB, 下载次数: 4)

2022-12-10 09:32 上传

点击文件名下载附件

参考！

enrun

gwjkkkkk 发表于 2022-12-9 22:15
不能通过索引方式，索引方式只代表一个变量。。。

再追问两个问题：
1、字典一旦设置完成，就不能直接修改元素名称；
     如果要修改字典中的元素，是不是只能删除开始的元素，再用add添加一个新元素？
2、图片中两种表示字典的元素值，该怎么理解呢？

taller

1、字典一旦设置完成，就不能直接修改元素名称；
     如果要修改字典中的元素，是不是只能删除开始的元素，再用add添加一个新元素？【可以修改，参见9楼代码】
2、图片中两种表示字典的元素值，该怎么理解呢？【索引编号从0开始，监视窗口中的Item1，2，只是一种展示方式】

perfect131

enrun 发表于 2022-12-12 12:24
再追问两个问题：
1、字典一旦设置完成，就不能直接修改元素名称；
     如果要修改字典中的元素，是不 ...

字典 key 可以直接重名

enrun

taller 发表于 2022-12-12 13:19
1、字典一旦设置完成，就不能直接修改元素名称；
     如果要修改字典中的元素，是不是只能删除开始的元素 ...

谢谢老师！