若得山花插满头，莫问奴归处！

摘要： Sub Macro1()Dim arr, i, jDim d As Object, mkeyDim mHight, s'On Error Resume NextSet d = CreateObject("scripting.dictionary")d.CompareMode = TextComparearr = Range("A1:E21")For j = 1 To 5For i = 1 To U... 阅读全文