match 搜尋不同工作表可以指定變數嗎?

12 3 4 5 下一頁

返回列表下一主題上一主題發帖

EGBT

中學生 Rank: 2

帖子: 127
主題: 38
精華: 0
積分: 166
點名: 0
作業系統: Microsoft
軟體版本: Windows 7
閱讀權限: 20
性別: 男
註冊時間: 2015-7-31
最後登錄: 2018-8-3

1^# 跳轉到 »

發表於 2015-9-1 15:11 | 只看該作者

MATCH高手請進

陣列表A ~ 表F
數值表G ~ 表Z

VBA使用MATCH

要怎麼讓"數值"去比對"陣列"...

TOP

ikboy

中學生 Rank: 2

帖子: 262
主題: 8
精華: 0
積分: 280
點名: 17
作業系統: xp
軟體版本: Office 2007
閱讀權限: 20
性別: 男
來自: HK
註冊時間: 2015-8-11
最後登錄: 2024-11-19

2016猴年全勤獎章

2^#

發表於 2015-9-1 17:07 | 只看該作者

=Application.match(lookup_value,要match的陣列,match_type))

Lookup_value: 可以是數值或文字
Match_type 為可選數 -1，0，或1。

Match_type參數指定將Excel匹配lookup_value的與值查找的陣列。此參數的默認值是1。下面描述Match_type用法。

1或省略 match認為是小於或等於最大值lookup_value的。在值查找的陣列參數必須被放置在上升順序，例如：...- 2，-1，0，1，2，...，AZ，FALSE，TRUE。
0 Match找到第一個值，該值正好等於lookup_value的。在中值查找的陣列參數可以是任意順序。
-1 Match發現的最小值大於或等於lookup_value的。在值查找的陣列參數必須被放置在遞減順序，例如：TRUE，FALSE ZA，... 2，1，0，-1，-2，...，等等。

TOP

EGBT

中學生 Rank: 2

帖子: 127
主題: 38
精華: 0
積分: 166
點名: 0
作業系統: Microsoft
軟體版本: Windows 7
閱讀權限: 20
性別: 男
註冊時間: 2015-7-31
最後登錄: 2018-8-3

3^#

發表於 2015-9-1 23:41 | 只看該作者

回復 2# ikboy

雖然不是我想要的答案,但很謝謝你的回覆...

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

4^#

發表於 2015-9-2 08:07 | 只看該作者

回復 3# EGBT
是這樣嗎?

Option Explicit
Sub EX()
Dim 數值(), 陣列(), e As Variant, M As Variant
數值 = Array(0, "a" , 100 , "bb", 88)
陣列 = Array(88, "cc", 0, "a", "bb")
For Each e In 數值
M = Application.Match(e, 陣列, 0)
Debug.Print e, M '指令:檢視->即時運算視窗
Next
End Sub

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

TOP

EGBT

中學生 Rank: 2

帖子: 127
主題: 38
精華: 0
積分: 166
點名: 0
作業系統: Microsoft
軟體版本: Windows 7
閱讀權限: 20
性別: 男
註冊時間: 2015-7-31
最後登錄: 2018-8-3

5^#

發表於 2015-9-2 10:21 | 只看該作者

回復 4# GBKEE

我可以請問一下數值的Array跟陣列的Array是什麼..?

TOP

EGBT

中學生 Rank: 2

帖子: 127
主題: 38
精華: 0
積分: 166
點名: 0
作業系統: Microsoft
軟體版本: Windows 7
閱讀權限: 20
性別: 男
註冊時間: 2015-7-31
最後登錄: 2018-8-3

6^#

發表於 2015-9-2 10:58 | 只看該作者

回復 4# GBKEE

我應該問的不夠好...

應該說MATCH的數值跟陣列

數值與陣列分別在不同的Sheet

而數值跟陣列都有很多個Sheet

MATCH寫不好...

TOP

EGBT

中學生 Rank: 2

帖子: 127
主題: 38
精華: 0
積分: 166
點名: 0
作業系統: Microsoft
軟體版本: Windows 7
閱讀權限: 20
性別: 男
註冊時間: 2015-7-31
最後登錄: 2018-8-3

7^#

發表於 2015-9-2 11:08 | 只看該作者

回復 5# EGBT

如附檔

3個數值的Sheet

3個陣列的Sheet

然後每個數值的Sheet都要跑陣列的Sheet

11111.zip (7.14 KB)

檔案

TOP

ikboy

中學生 Rank: 2

帖子: 262
主題: 8
精華: 0
積分: 280
點名: 17
作業系統: xp
軟體版本: Office 2007
閱讀權限: 20
性別: 男
來自: HK
註冊時間: 2015-8-11
最後登錄: 2024-11-19

2016猴年全勤獎章

8^#

發表於 2015-9-2 12:36 | 只看該作者

Sub zz()
Dim no_ar, arr, sh_ar
sh_ar = [{"數值1","陣列1";數值2","陣列2";數值3","陣列3"}]
For i = 1 To UBound(sh_ar)
With Sheets(sh_ar(i, 1))
      Set no_ar = .Range("a1:b" & .Cells(Rows.Count, 1).End(3).Row)
         arr = Sheets(sh_ar(i, 2)).[a1].CurrentRegion
         For j = 1 To no_ar.Rows.Count
            no_ar(j, 2) = Application.Match(no_ar(j, 1), arr, 0)
                  Next: End With: Next
Set no_ar = Nothing
End Sub

TOP

EGBT