match函数匹配不到的如何显示无匹配？谢谢！

qihang15

Sub 匹配()
Dim NUM
For I = 2 To 4
NUM = Application.WorksheetFunction.match(Cells(I, 1), Sheets("sheet1").Range("A1:I1"), 0)
Cells(I, 2) = Cells(2, NUM)
Next
End Sub

对于A列中匹配不到的会出错，如何实现匹配不到的显示无匹配，谢谢高手指点！

hopeson2010

1. Sub ek_sky()
   
2.    Dim arr As Variant, brr As Variant
   
3.    Dim i As Integer, j As Integer
   
4.      arr = Range("A2:B" & Cells(Rows.Count, 1).End(xlUp).Row)
   
5.      brr = Range("D1").CurrentRegion
   
6.         For i = 1 To UBound(arr)
   
7.            For j = 1 To UBound(brr, 2)
   
8.                If arr(i, 1) = brr(1, j) Then
   
9.                arr(i, 2) = brr(2, j)
   
10.                Exit For
    
11.                End If
    
12.            Next j
    
13.         If arr(i, 2) = "" Then arr(i, 2) = "无匹配"
    
14.         Next i
    
15. Range("A2").Resize(UBound(arr), 2) = arr
    
16. End Sub
    

复制代码

fxl447098457

我不给你优化啥。只给你添点砖加点瓦。
Sub 匹配()
Dim NUM
On Error Resume Next
For I = 2 To 4
NUM = Application.WorksheetFunction.Match(Cells(I, 1), Sheets("sheet1").Range("A1:I1"), 0) '返回店名在用友数据中的序号
If Err.Number <> 0 Then
    Cells(I, 2) = "无匹配"
Else
    Cells(I, 2) = Cells(2, NUM)
End If
Err.Clear
Next
End Sub

yaojil

数据少可用函数

jiminyanyan

一般不用函数了。。。。

hopeson2010

1. =iferror(hlookup(A2,D:AZ,2,),"无匹配")

复制代码

公式可以用

qihang15

fxl447098457 发表于 2018-6-8 20:38
我不给你优化啥。只给你添点砖加点瓦。
Sub 匹配()
Dim NUM

谢谢，完美解决，非常感谢！

qihang15

hopeson2010 发表于 2018-6-8 20:34

非常非常感谢，解决了大问题。

qihang15

yaojil 发表于 2018-6-8 20:44
数据少可用函数

谢谢，数据少时就用函数。

qihang15

jiminyanyan 发表于 2018-6-8 21:02
一般不用函数了。。。。

有什么好的思路，见解，谢谢分享。