Board logo

標題: [發問] 選取大於某數的值 [打印本頁]

作者: ziv976688    時間: 2020-4-21 08:44     標題: 選取大於某數的值

[attach]31944[/attach]
[attach]31945[/attach]
需求︰
將(B1︰AX1)>9的值填入B2︰AX2
如有重複時,請全部列出。
請問︰B2的Excel 2003版的函數公式?
謝謝!
作者: rouber590324    時間: 2020-4-22 11:08

用VBA如下

Sub TEST()
Sheet1.[B2:IV65536].ClearContents
X = Sheet1.Cells(1, Columns.Count).End(xlToLeft)
Y = Sheet1.Cells(2, Columns.Count).End(xlToLeft)
For M = 2 To X
If Sheet1.Cells(1, M) - 9 > 0 Then
  Sheet1.Cells(2, Y + 1) = Sheet1.Cells(1, M)
    Y = Y + 1
  End If
  Next
End Sub
作者: ziv976688    時間: 2020-4-22 12:54

回復 2# rouber590324
感謝賜教!
只是我的檔案版面比較適合函數公式。
再次謝謝您^^
作者: hcm19522    時間: 2020-4-23 12:22

https://blog.xuite.net/hcm19522/twblog/589069815
作者: ziv976688    時間: 2020-4-23 16:25

回復 4# hcm19522

h大大 : 您好!
謝謝您的耐心賜教和熱心幫忙!感恩
作者: ziv976688    時間: 2020-4-30 01:32

本帖最後由 ziv976688 於 2020-4-30 01:36 編輯

回復 4# hcm19522
[attach]31980[/attach]
h大大 : 您好!
=IF(ISERROR(SMALL(IF($B1:$AX1>8,$B1:$AX1),COLUMN(A1))),"",SMALL(IF($B1:$AX1>8,$B1:$AX1),COLUMN(A1)))
上列的原B2陣列公式是您賜教的取得第1列大於某數(EX:8)的值+排序

如果上列的B2要再加上"重複者只列出1個"的需求
請教︰B2的Excel 2003版公式要如何再編寫?
謝謝您^^
作者: hcm19522    時間: 2020-4-30 12:52

回復 6# ziv976688

https://blog.xuite.net/hcm19522/twblog/589090462
作者: ziv976688    時間: 2020-4-30 13:25

回復 7# hcm19522
h大大:您好!
謝謝您的指導^^
能否請您再賜教"數值型態"的公式~
因為答案必須再作格式設定條件的上底色的動作。
謝謝您^^
作者: 准提部林    時間: 2020-5-1 10:27

回復 6# ziv976688


=IF(MAX($A5:A5)=MAX(1:1),"",SMALL(1:1,COUNTIF(1:1,"<="&MAX(8,A5))+1))
作者: ziv976688    時間: 2020-5-1 12:23

本帖最後由 ziv976688 於 2020-5-1 12:25 編輯

回復 9# 准提部林
並非我"龜毛"~實在是因為答案的後續動作還必須當索引值且上色
謝謝准提大大您的熱心指導~感恩
作者: papaya    時間: 2020-5-1 15:13

本帖最後由 papaya 於 2020-5-1 15:15 編輯

回復 9# 准提部林
版主大大:
請問 : 答案要改成由大而小(降冪)排列,公式應該如何改?
謝謝您
作者: papaya    時間: 2020-5-1 18:22

回復 9# 准提部林
版主大大︰您好!
不好意思,提問內容太簡略了^^"
重新作個範例供參。

請問︰B7的公式?   謝謝!
謝謝您
[attach]31984[/attach]
[attach]31985[/attach]
作者: 准提部林    時間: 2020-5-2 12:38

回復 12# papaya

陣列:
=IF(COUNTIF(1:1,"<=8")=COUNTIF(1:1,"<"&MIN($A7:A7)),"",MAX(IF($B1:$AX1<--TEXT(A7&"","0;;;!9!e!9"),$B1:$AX1)))
作者: papaya    時間: 2020-5-2 13:09

回復 13# 准提部林
版主大大 : 您好 !
測試OK了~
謝謝您的耐心指導和熱心幫忙~感恩




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