VBA
Seabiscuit_92
这个作者很懒,什么都没留下…
展开
-
VBA 获取多列不重复值
Sub Uniquedata() Dim EachCell As Range 'Creat UniqDicictionary object Set UniqDic = CreateObject("Scripting.Dictionary") 'Traverse selected area For Each EachCell In Range("A2:C11") 'Judge wheth原创 2016-07-22 16:42:34 · 3210 阅读 · 0 评论 -
BankDailyAuto 帮用户自动抽取数据
近期帮用户自动抽取数据写的宏。'WXHWYD'This macro is for sorting data automatically only for Cummins casher'Stones create on 2017/6/16'Sub BankDailyAuto()Sub AutoBankDaily() On Error GoTo ErrHandle 'sto原创 2017-06-16 16:03:03 · 451 阅读 · 0 评论