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 · 3187 阅读 · 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 · 441 阅读 · 0 评论