欢迎来到我的地盘:今天是

若得山花插满头,莫问奴归处!

  博客园 :: 首页 :: 博问 :: 闪存 :: 新随笔 :: 联系 :: 订阅 订阅 :: 管理 ::

2010年3月10日

摘要: 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... 阅读全文
posted @ 2010-03-10 12:32 莫问奴归处 阅读(3189) 评论(0) 推荐(0) 编辑

轩轩娃