Sub Macro1() Dim d As Object, Rng As Range, R As Range Set d = CreateObject("Scripting.Dictionary") With ActiveSheet Set Rng = .Range("I3:M" & .
確定! 回上一頁