返回列表 上一主題 發帖

[發問] 請教如何挑出欄位內溫度小於20 的數值，並記錄位置。

ji12345678

帖子
28 
主題
17 
精華
0 
積分
79 
點名
0  
作業系統
XP 
軟體版本
SP2 
閱讀權限
20 
性別
女 
註冊時間
2012-5-4 
最後登錄
2016-9-29 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2015-2-25 11:24 | 只看該作者

[發問] 請教如何挑出欄位內溫度小於20 的數值，並記錄位置。

請教大大：
如何挑出欄位內溫度小於20 的數值，並記錄位置。
不要跑FOR迴圈。
請教類似 find、findif、findnext的函數可用嗎？還是有其他的函數可以使用？
謝謝大大們的提點指教~！^^




2015.2.25問題.rar (6.8 KB)
收藏 分享

p212

帖子
618 
主題
17 
精華
0 
積分
663 
點名
1  
作業系統
WINDOWS 7 
軟體版本
OFFICE 2013 
閱讀權限
50 
性別
男 
來自
Pingtung 
註冊時間
2011-9-2 
最後登錄
2024-7-5 

2014馬年全勤獎章2013蛇年全勤獎章熱烈參與勳章
2#
發表於 2015-2-25 15:34 | 只看該作者
本帖最後由 p212 於 2015-2-25 15:39 編輯

回復 1# ji12345678
以函數解
儲存格G2輸入陣列公式
=IFERROR(INDEX($B:$B,SMALL(IF(($B:$B<20)*($B:$B<>""),ROW($B:$B),""),ROW(1:1))),"")
儲存格H2輸入陣列公式
=IFERROR("B"&SMALL(IF(($B:$B<20)*($B:$B<>""),ROW($B:$B),""),ROW(1:1)),"")
向下複製公式
請參考！

TOP

ji12345678

帖子
28 
主題
17 
精華
0 
積分
79 
點名
0  
作業系統
XP 
軟體版本
SP2 
閱讀權限
20 
性別
女 
註冊時間
2012-5-4 
最後登錄
2016-9-29 
3#
發表於 2015-2-25 21:31 | 只看該作者
非常感恩p212 大大提供的方法，請教一下函數是否能在VBA的環境裏達到這樣的功能？

TOP

luhpro

帖子
835 
主題
6 
精華
0 
積分
915 
點名
16  
作業系統
Win 10,7 
軟體版本
2019,2013,2003 
閱讀權限
50 
性別
男 
註冊時間
2010-5-3 
最後登錄
2024-11-14 
4#
發表於 2015-2-25 22:56 | 只看該作者
非常感恩p212 大大提供的方法，請教一下函數是否能在VBA的環境裏達到這樣的功能？
ji12345678 發表於 2015-2-25 21:31
  1. Sub TEST() '找小於20的溫度
  2.   Dim lSRow&, lTrow&
  3.   
  4.   Range("G2:H200").Clear
  5.   lSRow = 2
  6.   lTrow = 2
  7.   
  8.   While Cells(lSRow, 1) <> ""
  9.     If Cells(lSRow, 2) < 20 Then
  10.       Cells(lTrow, 7) = Cells(lSRow, 2)
  11.       Cells(lTrow, 8) = Cells(lSRow, 2).Address(0, 0)
  12.       lTrow = lTrow + 1
  13.     End If
  14.     lSRow = lSRow + 1
  15.   Wend
  16. End Sub
複製代碼
2015.2.25問題-a.zip (7.44 KB)

TOP

        靜思自在 : 君子為目標，小人為目的。
返回列表 上一主題