如何将字典中的所有item在一个单元格中显示，以回车做分隔

sxz0928 · 发表于 2019-1-19 14:53

各位大神，请问如何将字典中的所有item在一个单元格中显示，以回车做分隔，在线等

ivccav · 发表于 2019-1-19 15:08

Sub test()
arr = Range("f1:g24")
Set d = CreateObject("scripting.dictionary")
For i = 1 To UBound(arr)
d(arr(i, 1)) = arr(i, 2)
Next
[a1] = Join(d.items, vbCrLf)
End Sub

719404338 · 发表于 2019-1-19 15:51

Sub t()
Dim d
Set d = CreateObject("Scripting.Dictionary")
d.Add "a", "Athens"
d.Add "b", "Belgrade"
[a1] = Join(d.items, Chr(10))
End Sub

复制代码

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

[求助] 如何将字典中的所有item在一个单元格中显示，以回车做分隔

最新热点 /1