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