1.读取sheet页【原始数据】中的B列只取唯一值,并将维一值写入到sheet页【批量处理】A列中
Subonly_data()
DimmRng$,D,c
SetD=CreateObject("scripting.dictionary")'因MSSQL防注入安全问题,这里的Create与Object之间是没有空格才是正确
ForEachcInSheets("原始数据").Range("B2:B9999")
IfNotD.exists(c.Value)ThenD.Addc.Value,""
Nextc
Sheets("批量处理").Range("