麻辣家族討論版版 - Powered by Discuz! Board

標題: 計算最少值問題 [打印本頁]

作者: basarasy 時間: 2010-10-25 00:00 標題: 計算最少值問題

本帖最後由 basarasy 於 2010-10-25 00:06 編輯

請問大大如何在C:C計算出 A:A有1的B:B的資料的最少值,在C:C出1.

作者: Hsieh 時間: 2010-10-25 00:35

回復 1# basarasy

[attach]3360[/attach]
加輔助欄會容易點

作者: oobird 時間: 2010-10-25 08:05

=MIN(IF(A2:A12=1,B2:B12))陣列公式

作者: GBKEE 時間: 2010-10-25 08:32

C2=IF(AND(A2=1,B2=MIN(IF(A$2:A$12=1,B$2:B$12))),1,"") 陣列公式下拉

作者: basarasy 時間: 2010-10-25 08:54

謝謝3位大大.
又學會了新東西.

作者: zz5151353 時間: 2010-10-28 16:50

請問大大如何在C:C計算出 A:A有1的B:B的資料的最少值,在C:C出1.
basarasy 發表於 2010-10-25 00:00

可以參考看一看

作者: GBKEE 時間: 2010-10-28 17:10

zz5151353 版主的公式 .如不想要顯示零值時
需在指令工具->選項檢視 -- 不可以勾選 [零值(Z)]
如圖

[attach]3407[/attach]

作者: Andy2483 時間: 2023-5-12 08:49

謝謝論壇,謝謝各位前輩
後學藉此帖練習陣列,學習方案如下,請各位前輩指教

執行前:
[attach]36342[/attach]

執行結果:
[attach]36343[/attach]

Option Explicit
Sub TEST()
Dim Brr, Crr, Y, i&, X&, T$
'↑宣告變數
Brr = Range([B2], [A65536].End(xlUp))
'↑令Brr變數是二維陣列,以儲存格值帶入
ReDim Crr(1 To UBound(Brr), 1 To 1)
'↑宣告Crr變數是二維空陣列,縱向同Brr,橫向1欄(1到1)
For i = 1 To UBound(Brr)
'↑設順迴圈!
If Brr(i, 1) = 1 And (X > Brr(i, 2) Or X = Empty) Then X = Brr(i, 2)
'↑如果A:A有1 令X變數是 B:B的資料的最小值
Next
For i = 1 To UBound(Brr)
'↑設順迴圈!
If Brr(i, 1) = 1 And Brr(i, 2) = X Then Crr(i, 1) = 1
'↑處理B:B的資料是最小值的! 在C:C標示 1
Next
[C2].Resize(UBound(Crr)) = Crr
'↑令Crr陣列值寫入儲存格
Set Y = Nothing: Erase Brr, Crr
End Sub

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