返回列表 上一主題 發帖

[發問] Excel VBA有什麼現有的函數可以用來找尋二維陣列中的資料？

newstarmoon

帖子
5 
主題
1 
精華
0 
積分
55 
點名
0  
作業系統
Win 7 
軟體版本
Office 2007 
閱讀權限
20 
性別
男 
來自
屏東 
註冊時間
2018-1-15 
最後登錄
2020-7-16 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2018-5-29 02:01 | 顯示全部帖子

[發問] Excel VBA有什麼現有的函數可以用來找尋二維陣列中的資料？

各位前輩好，我剛用Excel  VBA寫巨集沒多久，目前我會將工作表中的資料，先讀到陣列後再做運算(這樣執行速度較快)

平常查某個值有沒有在陣列中很好比對，但最近遇到一個狀況，就是我要查A值(例如身份證號)有沒有在B陣列中，但B陣列中，每個行列值，並不單純是身份證號，而且一長串的文字(可能有十幾個字，而其中包含了身份證號)，

有什麼現有的函數或方法可以用來比對A值有沒有在B陣列中？  ~~新手提問，煩請大家指教~~謝謝~~
收藏 分享
冬冬

newstarmoon

帖子
5 
主題
1 
精華
0 
積分
55 
點名
0  
作業系統
Win 7 
軟體版本
Office 2007 
閱讀權限
20 
性別
男 
來自
屏東 
註冊時間
2018-1-15 
最後登錄
2020-7-16 
2#
發表於 2018-6-2 17:53 | 顯示全部帖子
這Excel檔裡有3個工作表，工作表中的藥代欄是主要資料，我要從藥材檔的資料中，比對藥代是否一樣，目前已經可以比對藥代、健保碼、藥名是否相同；但藥材檔中的"DK"列，有這藥品的歷史修改資料，我想用健保碼跟DK列比對，看DK列中是否有相同的健保碼，不知道有什麼方法可以使用？

針劑醫令代碼比對-test.zip (38.57 KB)

冬冬

TOP

newstarmoon

帖子
5 
主題
1 
精華
0 
積分
55 
點名
0  
作業系統
Win 7 
軟體版本
Office 2007 
閱讀權限
20 
性別
男 
來自
屏東 
註冊時間
2018-1-15 
最後登錄
2020-7-16 
3#
發表於 2018-6-11 00:21 | 顯示全部帖子
謝謝版主的回復，因為我只有六日比較有空，所以這一兩天才花時間好好理解版主的程式碼；
仔細研究完後，版主的程式碼讓我受益良多，也學到了許多概念。
像你用的"InStr"函數，就是我提問中，最需要的函數，我會好好運用它；你另外有用了"Split"函數，我有去查了Split函數的用法，這函數功能真的很不錯，我會仔細記下來。

另外再請教版主一個問題，你程式碼中"AR(i) = Application.WorksheetFunction.Transpose(.Range(Ar1(i - 1) & ":" & Ar1(i - 1)).SpecialCells(xlCellTypeConstants).Value)"這一段，如果某一列的資料有100行，而第5行是空白，後面接著有資料，但這一段程式，它讀到第5行是空白後就結束不會再讀下去，這有沒有什麼方法可以改良？

謝謝版主的細心回覆~~
冬冬

TOP

newstarmoon

帖子
5 
主題
1 
精華
0 
積分
55 
點名
0  
作業系統
Win 7 
軟體版本
Office 2007 
閱讀權限
20 
性別
男 
來自
屏東 
註冊時間
2018-1-15 
最後登錄
2020-7-16 
4#
發表於 2018-7-5 10:38 | 顯示全部帖子
版主你好，我最近有碰到一個小問題要再請教你一下

For i = 1 To UBound(Ar1) + 1
            AR(i) = Application.WorksheetFunction.Transpose(.Range(Ar1(i - 1) & "1").Resize(ii).Value)

上面這段程式碼，平常在用的時候都ok，但我最近遇到我的資料行數超過6萬多行時，這一段程式碼就會出錯，不知道是不是Transpose有什麼限制，或者有什麼方法可以改善？

謝謝版主~~
冬冬

TOP

        靜思自在 : 人生沒有所有權，只有生命的使用權。
返回列表 上一主題