返回列表 上一主題 發帖

[發問] 選取大於某數的值

[發問] 選取大於某數的值

選取大於某數的值.rar (1.89 KB)
未命名.png
2020-4-21 08:41

需求︰
將(B1︰AX1)>9的值填入B2︰AX2
如有重複時,請全部列出。
請問︰B2的Excel 2003版的函數公式?
謝謝!

用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

TOP

回復 2# rouber590324
感謝賜教!
只是我的檔案版面比較適合函數公式。
再次謝謝您^^

TOP

隨意窩 "EXCEL迷"  blog  或 http://blog.xuite.net/hcm19522/twblog
已收集7000篇 EXCEL函數

TOP

回復 4# hcm19522

h大大 : 您好!
謝謝您的耐心賜教和熱心幫忙!感恩

TOP

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

回復 4# hcm19522
原B2公式+重複的值只列1個.rar (2.89 KB)
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版公式要如何再編寫?
謝謝您^^

TOP

隨意窩 "EXCEL迷"  blog  或 http://blog.xuite.net/hcm19522/twblog
已收集7000篇 EXCEL函數

TOP

回復 7# hcm19522
h大大:您好!
謝謝您的指導^^
能否請您再賜教"數值型態"的公式~
因為答案必須再作格式設定條件的上底色的動作。
謝謝您^^

TOP

回復 6# ziv976688


=IF(MAX($A5:A5)=MAX(1:1),"",SMALL(1:1,COUNTIF(1:1,"<="&MAX(8,A5))+1))
EXCEL參考資料:
http://blog.xuite.net/smile1000mile/blog

TOP

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

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

TOP

        靜思自在 : 屋寬不如心寬。
返回列表 上一主題