Sub main() Set d = CreateObject("scripting.dictionary") arr = Range("A2:C" & [A65536].End(3).Row) For i = 1 To UBound(arr) X = arr(i, ...
確定! 回上一頁