Excel 请教字典中key有没有遍历的方法
1个回答
展开全部
见如下代码：
Sub test()
Dim dict
' 创建Dictionary
Set dict = CreateObject("Scripting.Dictionary")
' 增加项目
dict.Add "A", 300
dict.Add "B", 400
dict.Add "C", 500
' 对字典进行循环
k = dict.keys
v = dict.Items
For i = 0 To dict.Count - 1
Key = k(i)
Value = v(i)
MsgBox Key & Value
Next
End Sub
本回答由提问者推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
