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

1^# 跳轉到 »

發表於 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

複製代碼

靜思自在 : 盡多少本份，就得多少本事。