相关文章推荐
苦恼的打火机  ·  All arguments should ...·  8 月前    · 
睿智的柿子  ·  [Solved] How do I ...·  8 月前    · 
坚强的山楂  ·  javascript - Adding ...·  1 年前    · 
卖萌的蚂蚁  ·  office excel ...·  1 年前    · 
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