最近写了一些小功能,对字典有了进一步的理解,太强大了! 个人最近用过的字典应用有这么几个,写下来防止自己忘~同时方便大家 一.查找重复行 [原理]利用字典的exist方法,将数据加入字典时判断一下,如果已经存在,就说明当前数据为重复数据,应该删除 [示例代码] Sub chongfu() '查重 Dim i As Long Dim endline As Long '定义工作表长度变量 endline = Sheet3.Range("A30000").End(xlUp).Row '获取工…
Function Desc(ProdNum) Desc = Application.WorksheetFunction.VLookup(ProdNum, Range("myTable"), 2, 0) End Function Function DAdded(ProdNum) DAdded = Application.WorksheetFunction.VLookup(ProdNum, Range("myTable"), 3, 0) End Function Fun…
Private Sub Worksheet_SelectionChange(ByVal Target As Range)If Target.Column = 26 And Range("f" & Target.Row) = "柏广清" Then Set d = CreateObject("scripting.dictionary")rng = Sheets("基础资料").Range("c8:c9"…