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

1^# 跳轉到 » 正序看帖

打印

字體大小: tT

發表於 2016-4-25 21:50 | 只看該作者

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

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

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

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

3^#

發表於 2016-4-26 10:18 | 只看該作者

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

2^#

發表於 2016-4-25 23:27 | 只看該作者

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

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

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

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

Sub nn()
Dim iI%, iNum%
Dim lRow&
Range([E2], [F7]).ClearContents
lRow = 2
While Not (Cells(lRow, Columns.Count).End(xlToLeft).Column = 1 And Cells(lRow, 1) = "")
iNum = -1
For iI = 1 To 4
If Cells(lRow, iI) <> "" Then
If iNum > -1 Then
If Cells(lRow, iI) <> iNum Then
Cells(lRow, 5) = "OK"
Cells(lRow, 6) = "-"
Exit For
End If
Else
iNum = Cells(lRow, iI)
Cells(lRow, 6) = iNum
End If
End If
Next
lRow = lRow + 1
Wend
End Sub

複製代碼

靜思自在 : 生氣，就是拿別人的過錯來懲罰自己。