急在线等，如何提取单元格内两位不重复数值？谢谢！

lubufang6

superperson 发表于 2018-3-29 18:30
这是VBA，不存在公式，运行代码，一次性就提取完了，上千条数据的话，也用不了一、两秒钟。

我在F11单元格应该用什么公式运行这个VBA

superperson

lubufang6 发表于 2018-3-29 18:35
我在F11应该用什么公式运行这个VBA?

楼主可能对VBA不熟悉，VBA是程序，和公式及函数没有必然的关系。运行VBA当然也用不到公式去调用。请看附件吧

lubufang6

还是不会用，我还是手动吧   谢谢你们！

superperson

superperson 发表于 2018-3-29 18:35
我把附件给你传一下，按ALT+F11可以调出代码，运行就可以了。

把光标定位到红色剪头处，就是Sub的前面，点圆圈内的貌似“播放”的那个按钮，就可以运行了。当然这是程序调试过程中的运行方式，比较麻烦，实际应用起来可以在EXcel界面加一个按钮，指向这个程序就行了，很方便，这需要楼主参考一下这方面的资料。不过你可以先把问题解决掉以后再说。

superperson

lubufang6 发表于 2018-3-29 18:44
还是不会用，我还是手动吧   谢谢你们！

在界面上给你加了一个按钮，点一下就行了，不过数据区域有改变的话，程序需要修改刚才我提到的那个i的值，楼主可以这样掌握这个值，11就是第11行，因为第一个值出现在第11行，19当然就是数据出现的最后一行。如果你的数据确定是在E列，提取数据确定是放在F列，就只需要根据实际的起始行和终止行修改i值就行了，其它的都不用动。
希望能有所帮助。

lubufang6

superperson 发表于 2018-3-29 19:03
在界面上给你加了一个按钮，点一下就行了，不过数据区域有改变的话，程序需要修改刚才我提到的那个i的值 ...

谢谢啊，我移值成功了，还有个问题就是   那个按钮是怎样加进去的？