假設(shè)每組中沒(méi)有重復(fù)值,比如下面4組數(shù)據(jù).
12345
23456
34567
45678
你想要的答案是幾?請(qǐng)寫(xiě)出手工計(jì)數(shù)過(guò)程.我想要找的是只有3個(gè)數(shù)字相同的兩組數(shù)，行1和行2的數(shù)列有4個(gè)數(shù)字相同，所以不要。我現(xiàn)在的做法是，先用行1分別和下面三組比較，用的公式是f2=sum(countif(a2:e2,a$1:e$1))，然后行2再和行3.4比較記作g，最后比較行3和行4，記作h0 a b c d e fgh1 1 2 3 4 52 2 3 4 5 643 3 4 5 6 7344 4 5 6 7 8234F3和G4=3，所以是2次比過(guò)一次符合條件的行就不再用了嗎? 比如5行 1 2 3 4 51 2 3 6 7 3 6 7 8 9 6 7 8 1 41/2 2/3 2/4 3/4 都符合條件,那么這樣算幾次?12345123673367891367814233還是按照之前的公式 4次可以用vba自定義一個(gè)函數(shù). 按住alt依次按f11,i,m 粘貼下面的代碼. 假設(shè)你要求的數(shù)據(jù)在a1:e500=x(a1:e500,3)ps:如果是4個(gè)相同,公式中的3改4即可.Function x(a As Range, b As Integer) arr = a.Value u1 = UBound(arr) u2 = UBound(arr, 2) For r = 1 To u1 - 1 For i = r + 1 To u1 t = 0 For c = 1 To u2 For j = 1 To u2 If arr(r, c) = arr(i, j) Then t = t + 1 Next Next If t = b Then x = x + 1 Next Next End Function