添加链接
link之家
链接快照平台
  • 输入网页链接,自动生成快照
  • 标签化管理网页链接
Set d = CreateObject("scripting.dictionary") arr = [a1].CurrentRegion '----------新增字典d的条目----------------------- For i = 2 To UBound(arr) d(arr(i, 1)) = arr(i, 2) s = d.keys ss = d.items End Sub