2018 年 8月 20 日随笔档案 - 许多年以后

2018年8月20日

摘要： 1、建立一个工作表1 2、建立工作表2（注意不要有重复的匹配列，如：a;a） 3、右键表格1 4、把代码复制进去 Sub x() Dim dict Set dict = CreateObject("Scripting.Dictionary") For i = 2 To Sheet2.UsedRang 阅读全文

posted @ 2018-08-20 18:14 许多年以后阅读(5883) 评论(0) 推荐(0)