Sub test() arr = Worksheets("工作表3").Range("d2:d" & Work...
Sub test() Set d = CreateObject("Scripting.Dictionary") For Each Rng...