vba随机抽取不重复10个数 EXCEL VBA判断是否有重复内容？
EXCEL VBA判断是否有重复内容？
用字典，建议使用count，与以前的数组比较数量如果我你是多单元格作为条件接受比较，先用join把该区域再连接成一个一列的二维数组，然后可以使用字典，item通过数器。只需存在地item最多1的，就它表示修真者的存在再重复一遍值。
excel表中有多列不同数字。要用函数或vba做：1.现在要另一列提取数字中相同数字，2.反应在另二列没有出现的数字？
上图是我的计算结果，包括数据分布的位置。我想楼主的要求是，在D列换取前三列中都有的数字，在E列中能够得到前三列不未知的数字，这样的话，在你的例子图片中，第一行结果一个字串少了一个“6”哦。简单的方法要可以保证前三列的格式为“文本”格式而并非数字格式，然后把输入输入下面公式。我的D2格公式万分感谢：IF(ISERROR(AND(FIND(1,A7),FIND(1,B7),FIND(1,C7))),,1)IF(ISERROR(AND(FIND(2,A7),FIND(2,B7),FIND(2,C7))),,2)IF(ISERROR(AND(FIND(3,A7),FIND(3,B7),FIND(3,C7))),,3)IF(ISERROR(AND(FIND(4,A7),FIND(4,B7),FIND(4,C7))),,4)IF(ISERROR(AND(FIND(5,A7),FIND(5,B7),FIND(5,C7))),,5)IF(ISERROR(AND(FIND(6,A7),FIND(6,B7),FIND(6,C7))),,6)IF(ISERROR(AND(FIND(7,A7),FIND(7,B7),FIND(7,C7))),,7)IF(ISERROR(AND(FIND(8,A7),FIND(8,B7),FIND(8,C7))),,8)IF(ISERROR(AND(FIND(9,A7),FIND(9,B7),FIND(9,C7))),,9)IF(ISERROR(AND(FIND(0,A7),FIND(0,B7),FIND(0,C7))),,0)E2格公式追加：IF(有.(NOT(ISERROR(FIND(1,A7))),NOT(ISERROR(FIND(1,B7))),NOT(ISERROR(FIND(1,C7)))),,1)IF(有.(NOT(ISERROR(FIND(2,A7))),NOT(ISERROR(FIND(2,B7))),NOT(ISERROR(FIND(2,C7)))),,2)IF(同问(NOT(ISERROR(FIND(3,A7))),NOT(ISERROR(FIND(3,B7))),NOT(ISERROR(FIND(3,C7)))),,3)IF(同问(NOT(ISERROR(FIND(4,A7))),NOT(ISERROR(FIND(4,B7))),NOT(ISERROR(FIND(4,C7)))),,4)IF(or(NOT(ISERROR(FIND(5,A7))),NOT(ISERROR(FIND(5,B7))),NOT(ISERROR(FIND(5,C7)))),,5)IF(内个(NOT(ISERROR(FIND(6,A7))),NOT(ISERROR(FIND(6,B7))),NOT(ISERROR(FIND(6,C7)))),,6)IF(内个(NOT(ISERROR(FIND(7,A7))),NOT(ISERROR(FIND(7,B7))),NOT(ISERROR(FIND(7,C7)))),,7)IF(有.(NOT(ISERROR(FIND(8,A7))),NOT(ISERROR(FIND(8,B7))),NOT(ISERROR(FIND(8,C7)))),,8)IF(or(NOT(ISERROR(FIND(9,A7))),NOT(ISERROR(FIND(9,B7))),NOT(ISERROR(FIND(9,C7)))),,9)IF(有.(NOT(ISERROR(FIND(0,A7))),NOT(ISERROR(FIND(0,B7))),NOT(ISERROR(FIND(0,C7)))),,0)其它格子只必须移动鼠标D2、E2格子右下角剪切粘贴就可以了。顺序是按1234567890排列的，与你的不太填写，应该是影响不太大了！凑这个公式很比较容易，多有一点excel就总是显示公式太长了。VBA更容易实现程序点，只不过是我这里写好的单元格却不是一定与你的表格能对得上，肯定不能拿过去就用，在这里就不写了，楼主真有需要，也可以联络我。楼上:)HE朋友的第二个公式估计也这个可以，但最后一个公式（即我的数据中D列）像是没有决定到数字再重复一遍的问题，即每一个格子中都很可能有两个也可以更多的1或是2、3……
版权声明：本文内容由互联网用户自发贡献，本站不承担相关法律责任.如有侵权/违法内容,本站将立刻删除。
