Board logo

標題: 請問公式：出現了什麼數字? [打印本頁]
作者: gaishutsusuru    時間: 2016-4-25 21:50     標題: 請問公式：出現了什麼數字?

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

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

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


請各位協助寶貴想法，謝謝各位了。(這個問題是延續上一帖「是否不同」那欄的公式要如何寫?)
作者: luhpro    時間: 2016-4-25 23:27

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

達成結果：
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
複製代碼
作者: 准提部林    時間: 2016-4-26 10:18

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



歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)