返回列表 上一主題 發帖

[已解決][發問]程式簡化-陣列-VBA ，尋找某元素是否存在陣列中。

greetingsfromtw

帖子
45 
主題
10 
精華
0 
積分
59 
點名
0  
作業系統
Win7 
軟體版本
Office 2007 
閱讀權限
20 
性別
男 
註冊時間
2014-2-6 
最後登錄
2019-6-22 

論壇贊助勳章
1# 跳轉到 »
發表於 2016-10-26 23:50 | 顯示全部帖子
回復 5# GBKEE

GBKEE前輩好,冒昧打擾,

感謝提供程式碼,
小弟有試著修改前輩的程式碼,
試圖將儲存格內的值做為元素儲至陣列中,但是會出現錯誤,不知如何解決,

小弟斗膽,是否能夠麻煩前輩指點迷津,十分感謝.

附上檔案及修改自前輩所寫程式碼:
  1. '此程式碼修改自麻辣家族討論區excel高手GBKEE前輩所寫,非我自創.
  2. '討論區網址:http://forum.twbts.com/index.php
  3. Sub Ex()
  4.     A = Range("a2:a" & Cells(Rows.Count, 1).End(xlUp).Row)
  5.     b = Range("b2:b" & Cells(Rows.Count, 2).End(xlUp).Row)
  6.     For Each E In A
  7.         M = Application.Match(E, b, 0)
  8.         MsgBox E & IIf(IsNumeric(M), "存在於 ", " 不存在於 ") & Join(b, ",")
  9.     Next
  10. End Sub
複製代碼
20161026-陣列搜尋特定字串問題.zip (9.06 KB)

TOP

greetingsfromtw

帖子
45 
主題
10 
精華
0 
積分
59 
點名
0  
作業系統
Win7 
軟體版本
Office 2007 
閱讀權限
20 
性別
男 
註冊時間
2014-2-6 
最後登錄
2019-6-22 

論壇贊助勳章
2#
發表於 2016-10-27 14:04 | 顯示全部帖子
回復 14# GBKEE

非常感謝GBKEE前輩詳細解說,
原來問題出在一維陣列,小弟再研究看看.

TOP

        靜思自在 : 一個人不怕錯，就怕不改過，改過並不難。
返回列表 上一主題