vba隨機(jī)抽取不重復(fù)10個數(shù) EXCEL VBA判斷是否有重復(fù)內(nèi)容?
EXCEL VBA判斷是否有重復(fù)內(nèi)容?用字典,建議使用count,與以前的數(shù)組比較數(shù)量如果我你是多單元格作為條件接受比較,先用join把該區(qū)域再連接成一個一列的二維數(shù)組,然后可以使用字典,item通過
EXCEL VBA判斷是否有重復(fù)內(nèi)容?
用字典,建議使用count,與以前的數(shù)組比較數(shù)量如果我你是多單元格作為條件接受比較,先用join把該區(qū)域再連接成一個一列的二維數(shù)組,然后可以使用字典,item通過數(shù)器。只需存在地item最多1的,就它表示修真者的存在再重復(fù)一遍值。
excel表中有多列不同數(shù)字。要用函數(shù)或vba做:1.現(xiàn)在要另一列提取數(shù)字中相同數(shù)字,2.反應(yīng)在另二列沒有出現(xiàn)的數(shù)字?
上圖是我的計算結(jié)果,包括數(shù)據(jù)分布的位置。我想樓主的要求是,在D列換取前三列中都有的數(shù)字,在E列中能夠得到前三列不未知的數(shù)字,這樣的話,在你的例子圖片中,第一行結(jié)果一個字串少了一個“6”哦。簡單的方法要可以保證前三列的格式為“文本”格式而并非數(shù)字格式,然后把輸入輸入下面公式。我的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(內(nèi)個(NOT(ISERROR(FIND(6,A7))),NOT(ISERROR(FIND(6,B7))),NOT(ISERROR(FIND(6,C7)))),,6)IF(內(nèi)個(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)其它格子只必須移動鼠標(biāo)D2、E2格子右下角剪切粘貼就可以了。順序是按1234567890排列的,與你的不太填寫,應(yīng)該是影響不太大了!湊這個公式很比較容易,多有一點excel就總是顯示公式太長了。VBA更容易實現(xiàn)程序點,只不過是我這里寫好的單元格卻不是一定與你的表格能對得上,肯定不能拿過去就用,在這里就不寫了,樓主真有需要,也可以聯(lián)絡(luò)我。樓上:)HE朋友的第二個公式估計也這個可以,但最后一個公式(即我的數(shù)據(jù)中D列)像是沒有決定到數(shù)字再重復(fù)一遍的問題,即每一個格子中都很可能有兩個也可以更多的1或是2、3……