字典

monkey3500

为什么单元格区域赋值数组前后，键值及其条目不一样呢？

WANT-T

字典的作用主要在于去重，即利用KEY值的不重复特性：
key值adc第一次写入是时，其item值为x，当第二次写入时，因为它不可重复，所以，其item值变成了z;
所以读取出来的keys(即key值的集合)，其结果应该是两个，items集合同理；
所以，你在给单元格赋值时，扩展三行，就会多出一个错误值。

tanglf188

要一样这样：

1. Sub dice()
   
2. Dim d As Object
   
3. Set d = CreateObject("scripting.dictionary")
   
4. Dim arr
   
5. arr = Sheet1.Range("a1:b3")
   
6. For i = 1 To UBound(arr)
   
7.     d(i) = Array(arr(i, 1), arr(i, 2))
   
8. Next
   
9. Sheet1.Range("d1").Resize(3, 2) = Application.Transpose(Application.Transpose(d.items))
   
10. End Sub
    

复制代码

jiangxiaoyun

key有几个，字典就有几个。你的数据key就只有abc和a两个。所以字典数据只是2条。提示一下，注意字母的大小写关系。

monkey3500

WANT-T 发表于 2023-3-13 11:20
字典的作用主要在于去重，即利用KEY值的不重复特性：
key值adc第一次写入是时，其item值为x，当第二次写入 ...

老师，您好，感谢您的回答。这种写法：d(Sheet1.Cells(i, 1)) = Sheet1.Cells(i, 2)
Sheet1.Range("c1").Resize(2, 1) = Application.Transpose(d.keys)


如图显示，没有去重。而改成d(Sheet1.Cells(i, 1).value) = Sheet1.Cells(i, 2)就与数组方法显示的结果一致了。这里的Sheet1.Cells(i, 1)和Sheet1.Cells(i, 1).value，代表的意义是不一样的，在什么情况下两者一致，什么情况下不一致呢?

jiangxiaoyun

monkey3500 发表于 2023-3-13 12:37
老师，您好，感谢您的回答。这种写法：d(Sheet1.Cells(i, 1)) = Sheet1.Cells(i, 2)
Sheet1.Range("c1") ...

Sheet1.Cells(i, 1)是单元格对象，包含value属性，text属性，以及各种方法，比如复制粘贴等
Sheet1.Cells(i, 1).value   就只是单元格的值
两者完全不一样，字典需要分开。
简言之就是，一个将单元格对象装进字典，一个将单元格对象的值装进字典。