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

qihang15

hopeson2010 发表于 2018-6-8 21:03
公式可以用

谢谢，费心了，帮我想了两种方法，666

qihang15

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

Sub 匹配()
Dim NUM
Dim n
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) = "无匹配"
    unmatched = Cells(i, 1)
   
Else
    Cells(i, 2) = Cells(2, NUM)
    n = n + 1
End If
Err.Clear
Next
MsgBox unmatched
MsgBox n
End Sub

您好，我想把不匹配的地区在最后统一显示出来，如果有多个地区不匹配时，如何实现？红色标注的只能把一个显示出来，多个匹配时如何实现，谢谢！

fxl447098457

qihang15 发表于 2018-6-9 08:38
Sub 匹配()
Dim NUM
Dim n

Sub 匹配()
Dim NUM, unmatched As String
Dim n
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) = "无匹配"
    unmatched = unmatched & "," & Cells(i, 1)
   
Else
    Cells(i, 2) = Cells(2, NUM)
    n = n + 1
End If
Err.Clear
Next
unmatched = Mid(unmatched, 2)
MsgBox unmatched
MsgBox n
End Sub

qihang15

fxl447098457 发表于 2018-6-9 08:48
Sub 匹配()
Dim NUM, unmatched As String
Dim n

非常感谢，问题解决了，辛苦了。

qihang15

fxl447098457 发表于 2018-6-9 08:48
Sub 匹配()
Dim NUM, unmatched As String
Dim n

非常感谢，问题解决了，辛苦了。

qihang15

fxl447098457 发表于 2018-6-9 08:48
Sub 匹配()
Dim NUM, unmatched As String
Dim n

感谢大力帮助，谢谢！问题彻底解决了。

qihang15

问题解决，感谢帮助，感谢Excelhome技术论坛，实用高效，高手如云，热心帮助。