如何找出特定數值所對應的儲存格內容 - Excel程式區

　頭銜: 麻辣路人甲

帖子: 967
主題: 0
精華: 0
積分: 1001
點名: 0
作業系統: WIN XP
軟體版本: OFFICE 2003
閱讀權限: 50
性別: 男
來自: 台北
註冊時間: 2010-11-29
最後登錄: 2022-5-17

2012龍年全勤獎章熱烈參與勳章

1^# 跳轉到 »

發表於 2012-4-6 00:51 | 顯示全部帖子

回復 1# luke

直接用工作表函數,參考用

F1=IF(A1="","",A1) 右拉下拉

H1=IF(C1="","",IF(ISNA(INDEX(sheet2!$A$1:$V$16,MATCH($A1&$B1,sheet2!$D$1:$D$16&sheet2!$E$1:$E$16,0),MATCH(C1,sheet2!$A$1:$V$1,0))),C1,INDEX(sheet2!$A$1:$V$16,MATCH($A1&$B1,sheet2!$D$1:$D$16&sheet2!$E$1:$E$16,0),MATCH(C1,sheet2!$A$1:$V$1,0))))
陣列公式右拉下拉

　頭銜: 麻辣路人甲

帖子: 967
主題: 0
精華: 0
積分: 1001
點名: 0
作業系統: WIN XP
軟體版本: OFFICE 2003
閱讀權限: 50
性別: 男
來自: 台北
註冊時間: 2010-11-29
最後登錄: 2022-5-17

2012龍年全勤獎章熱烈參與勳章

2^#

發表於 2012-4-7 11:18 | 顯示全部帖子

回復 5# luke

陣列公式
輸入好公式要按組合鍵Ctrl+Shift+Enter來作確定
原公式的前後會自動加上{ }

　頭銜: 麻辣路人甲

帖子: 967
主題: 0
精華: 0
積分: 1001
點名: 0
作業系統: WIN XP
軟體版本: OFFICE 2003
閱讀權限: 50
性別: 男
來自: 台北
註冊時間: 2010-11-29
最後登錄: 2022-5-17

2012龍年全勤獎章熱烈參與勳章

3^#

發表於 2012-4-12 23:00 | 顯示全部帖子

回復 8# luke

於工作表使用陣列公式發現一個問題 "若資料超過1萬筆時,電腦變慢跑不動"
那用VBA的方式寫陣列公式於工作表還不是一樣,換湯不換藥
=>都是用了陣列公式

使用2# Hsieh超版的VBA程式吧(一般使用VBA比較少在工作表寫入公式)

　頭銜: 麻辣路人甲

帖子: 967
主題: 0
精華: 0
積分: 1001
點名: 0
作業系統: WIN XP
軟體版本: OFFICE 2003
閱讀權限: 50
性別: 男
來自: 台北
註冊時間: 2010-11-29
最後登錄: 2022-5-17

2012龍年全勤獎章熱烈參與勳章

4^#

發表於 2012-4-13 10:06 | 顯示全部帖子

回復 10# luke

"路人甲"多嘴
先就事論事
1.  2#  Hsieh超版已用VBA回答您 1#之提問
   若功能有錯誤或不符您的需求
   就應即時反應,而您在4#是答覆"測試OK"
2.  論壇上超版,版主在EXCEL一般區,程式區上之功力無庸置疑
   "路人甲"不擔心超版,版主回答不出問題,只要超版,版主有時間,發問者的提問能讓超版,版主了解功能需求,都是花了時間,盡心盡力的回答
   "路人甲"在意的是發問者的提問題目不清楚太竉統不附檔案反反覆覆
3. 發帖後,每一層樓之提問,答題都應有一定的順序
不然會讓看帖的人誤解,也會沒有效率

　頭銜: 麻辣路人甲

帖子: 967
主題: 0
精華: 0
積分: 1001
點名: 0
作業系統: WIN XP
軟體版本: OFFICE 2003
閱讀權限: 50
性別: 男
來自: 台北
註冊時間: 2010-11-29
最後登錄: 2022-5-17

2012龍年全勤獎章熱烈參與勳章

5^#

發表於 2012-4-13 15:19 | 顯示全部帖子

回復 10# luke

用了雙層迴圈,執行效能不佳(若資料有上萬筆,我的雙核電腦跑了約20秒)
參考用

Sub zz()
Application.ScreenUpdating = False
With sheet1
.Columns("A:B").Copy .Columns("F:G")
.Columns("H:I") = ""
Max = sheet2.[F1].End(xlToRight).Value
For Each S In .Range(.[A1], .[A1].End(xlDown))
For Each T In sheet2.Range(sheet2.[D2], sheet2.[D2].End(xlDown))
If S & S.Offset(0, 1) = T & T.Offset(0, 1) Then
If Val(S.Offset(0, 2)) <= Max And Val(S.Offset(0, 3)) <= Max Then
S.Offset(0, 7) = sheet2.Cells(T.Row, S.Offset(0, 2) + 6)
S.Offset(0, 8) = sheet2.Cells(T.Row, S.Offset(0, 3) + 6)
End If
Exit For
End If
Next
If S.Offset(0, 7) = "" Then S.Offset(0, 2).Resize(1, 2).Copy S.Offset(0, 7)
Next
End With
Application.ScreenUpdating = True
MsgBox "執行完畢"
End Sub

複製代碼