| Set Arr = CreateObject("Scripting.Dictionary") BgnRow = 2 EndRow = .Cells(Rows.Count, "A").End(xlUp).Row For i = BgnRow To EndRow If .Cells(i, "D").Value = "V" Then Arr(i) = .Cells(i, "A").Value End If Next i 要怎么设置那样的变化，在别的工作簿能够直接引用他的值，例如：Arr.count，或他的Key或Items的值？ |
