Baracuda

chin15 謝謝。從你回答的問題，覺得你是強手，已經從小學生轉為中學生了，謝謝。程度本來就不應該是小學生。

GBKEE

回復 12# Baracuda
要按下 如圖的代碼 將程式碼貼上 後按提交

下載 (63.55 KB)

2011-4-6 18:25

greetingsfromtw

回復 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)

下載次數: 5

2016-10-26 23:50

GBKEE

回復 13# greetingsfromtw

1. '討論區網址:http://forum.twbts.com/index.php
   
2. Option Explicit
   
3. Sub Ex()
   
4.     Dim M As Variant, A(), B()
   
5.     A = Range("a2:a" & Cells(Rows.Count, 1).End(xlUp).Row)  '二維陣列
   
6.     B = Range("b2:b" & Cells(Rows.Count, 2).End(xlUp).Row) '二維陣列
   
7.     B = Application.WorksheetFunction.Transpose(B)                '轉至為一維陣列
   
8.     For Each E In A
   
9.         M = Application.Match(E, B, 0)
   
10.         MsgBox E & IIf(IsNumeric(M), "存在於 ", " 不存在於 ") & Join(B, ",")
    
11.         'Join 函數 傳回一個字串，該字串是透過連結某個陣列中的多個子字串而建立的。
    
12.         '******** 某個陣列 ,必須是一維陣列********************
    
13.     Next
    
14. End Sub

複製代碼

greetingsfromtw

回復 14# GBKEE

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

ssooi

回復 3# chin15

1. a = Array("一", "五", "八")
   
2.    b = Array("一", "二", "三", "四", "五", "六")
   
3. For i = 0 To UBound(a)
   
4. If UBound(Filter(b, a(i))) = -1 Then
   
5. MsgBox "不 包含" & a(i)
   
6. Else
   
7. MsgBox "包含" & a(i)
   
8. End If
   
9. Next

複製代碼

請問該怎麼樣做才能進一步顯示A是存在B陣列的第幾個索引值呢?
謝謝

軒云熊

這樣好像也可以

1. Sub 練習顯示陣列位置()
   
2. 
   
3. Dim A, B, i, k
   
4. 
   
5. A = Array("一", "五", "八")
   
6. B = Array("一", "二", "三", "四", "五", "六")
   
7. 
   
8.     For i = 0 To UBound(B)
   
9.         If A(k) = B(i) Then
   
10.            MsgBox " A的 " & A(k) & " 在 B 的 第 " & i & " 個"
    
11.            If k <= UBound(A) Then k = k + 1
    
12.         Else
    
13.            MsgBox " B 的 第 " & i & " 個" & " 是 " & B(i)
    
14.         End If
    
15.     Next i
    
16.    
    
17. End Sub

複製代碼

准提部林

回復 16# ssooi


可以使用 APPLICATION.MATCH
陣列數量大  字典--ITEM記錄位置