請問公式：出現了什麼數字?

gaishutsusuru

下載 (15.98 KB)

2016-4-25 21:51

請問大家，在「出現數字」的那欄的公式要如何寫?

達成結果：
1) 該列的數字相同(或是沒有不同)，則會顯示那列的數字

2) 如果像第6和7列的數字是不同的，則會顯示"-"


請各位協助寶貴想法，謝謝各位了。(這個問題是延續上一帖「是否不同」那欄的公式要如何寫?)

luhpro

請問大家，在「出現數字」的那欄的公式要如何寫?

達成結果：
1) 該列的數字相同(或是沒有不同)，則會 ...
gaishutsusuru 發表於 2016-4-25 21:50

公式?
那個...這裡是 "Excel程式區" 耶,
是討論 Excel VBA 程式設計的地方喔.

你想要的結果如果用公式的話可能會滿複雜的,
用程式就會比較簡單一些 :

1. Sub nn()
   
2.   Dim iI%, iNum%
   
3.   Dim lRow&
   
4.   
   
5.   Range([E2], [F7]).ClearContents
   
6.   lRow = 2
   
7.   While Not (Cells(lRow, Columns.Count).End(xlToLeft).Column = 1 And Cells(lRow, 1) = "")
   
8.     iNum = -1
   
9.     For iI = 1 To 4
   
10.       If Cells(lRow, iI) <> "" Then
    
11.         If iNum > -1 Then
    
12.           If Cells(lRow, iI) <> iNum Then
    
13.             Cells(lRow, 5) = "OK"
    
14.             Cells(lRow, 6) = "-"
    
15.             Exit For
    
16.           End If
    
17.         Else
    
18.           iNum = Cells(lRow, iI)
    
19.           Cells(lRow, 6) = iNum
    
20.         End If
    
21.       End If
    
22.     Next
    
23.     lRow = lRow + 1
    
24.   Wend
    
25. End Sub

複製代碼

准提部林

Ｆ２．陣列公式（三鍵）：
=IF(COUNT(0/(MATCH(A2:D2,A2:D2,)=COLUMN(A:D)))=1,LOOKUP(,0/(A2:D2<>""),A2:D2),"-")