软件: Excel VBA
版本: 2016
一串数字 1
1
8
1
1
8
5
5
总共有 1 5 8 共3种数字
选资料->进阶->不重复的记录 就可以得到1 5 8
请问有活页簿公式能直接用吗? 或是提供数学算法也可

https://i.imgur.com/qxbMOAl.jpg 类似这样宏的话也可设个阵列，循环，判断match为错误时写入阵列或以instr判断，为0时字串配合分隔符号连接，最后split也可以scripting.dictionary当不为exists时add不以循环的话，可以ado，唯一值以distinct，回传到阵列内以getrows测试，3栏，1千万笔左右的资料，写入阵列内出现错误https://i.imgur.com/TSC1fur.jpg但800万左右的话则可以 https://i.imgur.com/f7ANmh9.jpg1栏，1千万笔左右的资料则是可以https://i.imgur.com/SoZvHTW.jpg