帖子: 678
主題: 147
精華: 0
積分: 799
點名: 0
作業系統: win 8
軟體版本: MS 2003
閱讀權限: 50
性別: 男
註冊時間: 2016-2-9
最後登錄: 2022-1-20

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2020-4-21 08:44 | 只看該作者

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

選取大於某數的值.rar (1.89 KB)

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

樓主熱帖

rouber590324

高中生 Rank: 3 Rank: 3

帖子: 561
主題: 160
精華: 0
積分: 725
點名: 0
作業系統: WINDOWS
軟體版本: xp
閱讀權限: 50
性別: 男
來自: 桃園
註冊時間: 2014-9-10
最後登錄: 2024-8-7

論壇榮譽勳章論壇贊助勳章熱烈參與勳章

2^#

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

羅

TOP

ziv976688

高中生 Rank: 3 Rank: 3

帖子: 678
主題: 147
精華: 0
積分: 799
點名: 0
作業系統: win 8
軟體版本: MS 2003
閱讀權限: 50
性別: 男
註冊時間: 2016-2-9
最後登錄: 2022-1-20

3^#

發表於 2020-4-22 12:54 | 只看該作者

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

TOP

hcm19522

大學生 Rank: 4

帖子: 1387
主題: 4
精華: 0
積分: 1397
點名: 0
作業系統: WIN
軟體版本: 2007
閱讀權限: 50
性別: 男
註冊時間: 2015-9-11
最後登錄: 2024-11-24

熱烈參與勳章

4^#

發表於 2020-4-23 12:22 | 只看該作者

https://blog.xuite.net/hcm19522/twblog/589069815

google"EXCEL迷" blog 或google網址:https://hcm19522.blogspot.com/

TOP

ziv976688

高中生 Rank: 3 Rank: 3

帖子: 678
主題: 147
精華: 0
積分: 799
點名: 0
作業系統: win 8
軟體版本: MS 2003
閱讀權限: 50
性別: 男
註冊時間: 2016-2-9
最後登錄: 2022-1-20

5^#

發表於 2020-4-23 16:25 | 只看該作者

回復 4# hcm19522

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

TOP

ziv976688

高中生 Rank: 3 Rank: 3

帖子: 678
主題: 147
精華: 0
積分: 799
點名: 0
作業系統: win 8
軟體版本: MS 2003
閱讀權限: 50
性別: 男
註冊時間: 2016-2-9
最後登錄: 2022-1-20

6^#

發表於 2020-4-30 01:32 | 只看該作者

本帖最後由 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

hcm19522