帖子: 287
主題: 65
精華: 0
積分: 357
點名: 0
作業系統: xp
軟體版本: OFFIC 2007
閱讀權限: 20
註冊時間: 2010-6-4
最後登錄: 2015-8-19

1^# 跳轉到 » 正序看帖

打印

字體大小: tT

發表於 2010-10-25 00:00 | 只看該作者

計算最少值問題

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

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

BOOK2.rar (6.79 KB)

樓主熱帖

50 字節以內
不支持自定義 Discuz! 代碼

Andy2483

　暱稱: 厚臉皮的學生

碩士班 Rank: 5 Rank: 5

帖子: 1527
主題: 40
精華: 0
積分: 1551
點名: 0
作業系統: Windows 7
軟體版本: Excel 2010 & 2016
閱讀權限: 100
性別: 男
來自: 台灣
註冊時間: 2020-7-15
最後登錄: 2025-11-4

8^#

發表於 2023-5-12 08:49 | 只看該作者

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

執行前:

執行結果:

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

用行動裝置瀏覽論壇學習很方便,謝謝論壇經營團隊
請大家一起上論壇來交流

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

7^#

發表於 2010-10-28 17:10 | 只看該作者

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

TOP

zz5151353

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 206
主題: 3
精華: 0
積分: 218
點名: 0
作業系統: WIN10
軟體版本: OFFICE 365
閱讀權限: 100
性別: 男
來自: 台灣台北
註冊時間: 2010-5-15
最後登錄: 2023-6-18

6^#

發表於 2010-10-28 16:50 | 只看該作者

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

可以參考看一看

basarasy.rar (3.45 KB)

300 字節以內
不支持自定義 Discuz! 代碼

TOP

basarasy

中學生 Rank: 2

帖子: 287
主題: 65
精華: 0
積分: 357
點名: 0
作業系統: xp
軟體版本: OFFIC 2007
閱讀權限: 20
註冊時間: 2010-6-4
最後登錄: 2015-8-19

5^#

發表於 2010-10-25 08:54 | 只看該作者

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

50 字節以內
不支持自定義 Discuz! 代碼

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

4^#

發表於 2010-10-25 08:32 | 只看該作者

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

TOP

oobird

　頭銜: 街友一族

超級版主 Rank: 8 Rank: 8

帖子: 1572
主題: 16
精華: 2
積分: 1521
點名: 0
作業系統: xp
軟體版本: office 2003
閱讀權限: 150
性別: 男
註冊時間: 2010-5-1
最後登錄: 2016-1-13

論壇貢獻勳章

3^#

發表於 2010-10-25 08:05 | 只看該作者

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

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 270
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2025-11-4

2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章