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

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

ikboy

中學生 Rank: 2

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

2016猴年全勤獎章

1^# 跳轉到 »

發表於 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

ikboy

中學生 Rank: 2

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

2016猴年全勤獎章

2^#

發表於 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

ikboy