两个字典的对比问题

不想重命名 · 发表于 2017-11-23 10:40

字典1 {武汉，1000；苏州，2000；福州，300；广州，400。。。}
字典2 {武汉，400；福州，300。。。}
怎么在A列B列输入字典1的 key，item，字典2在C列根据A列的key输入自己的item

liulang0808 · 发表于 2017-11-23 10:46

请楼主上传附件，结合附件内容说明问题

不想重命名 · 发表于 2017-11-23 10:51

liulang0808 发表于 2017-11-23 10:46
请楼主上传附件，结合附件内容说明问题

http://club.excelhome.net/forum. ... p;page=3#pid9311174
就是这个问题的子问题，因为工作表保护，所以改了代码，出现问题，就变成我这个帖子提的问题

huang1314wei · 发表于 2017-11-23 10:54

不知道楼主想要表达什么

ivccav · 发表于 2017-11-23 10:54

range("a1").resize(d1.count,1)=d1.keys
range("b1").resize(d1.count,1)=d1.items
for each c in range("a1:a"&d1.count)
if d2.exists(c.value) then c.offset(,2)=d2(c.value)
next

chxw68 · 发表于 2017-11-23 10:56

Sub test()
Dim r%, i%
Dim arr, brr
Dim d As Object
Set d1 = CreateObject("scripting.dictionary")
Set d2 = CreateObject("scripting.dictionary")
arr = [{"武汉",1000;"苏州",2000;"福州",300;"广州",400}]
brr = [{"武汉",400;"福州",300}]
For i = 1 To UBound(arr)
d1(arr(i, 1)) = arr(i, 2)
Next
For i = 1 To UBound(brr)
d2(brr(i, 1)) = brr(i, 2)
Next
With Worksheets("sheet1")
m = 1
For Each aa In d1.keys
m = m + 1
.Cells(m, 1) = aa
.Cells(m, 2) = d1(aa)
If d2.exists(aa) Then
.Cells(m, 3) = d2(aa)
End If
Next
End With
End Sub

复制代码

chxw68 · 发表于 2017-11-23 10:57

详见附件。

liulang0808 · 发表于 2017-11-23 11:04

不想重命名发表于 2017-11-23 10:51
http://club.excelhome.net/forum.php?mod=viewthread&tid=1380186&page=3#pid9311174
就是这个问题的子 ...

楼主上传下附件吧
这个没有难度吧

从入门到入土 · 发表于 2017-11-23 11:17

arr = Dic1.keys
brr = Dic1.items
[a1].Resize(Dic1.Count) = WorksheetFunction.Transpose(arr)
[b1].Resize(Dic1.Count) = WorksheetFunction.Transpose(brr)
For i = 1 to Dic1.Count
      Cells(i,3) = Dic2(Cells(i,1))
Next

		自动登录	找回密码
密码			免费注册

[求助] 两个字典的对比问题

评分