Question

在EXCEL的A1里有数据:1,3,5,6, 在A2里有数据:A,B,D,A, 假设1与A 匹配,3与B匹配,5与D匹配,6与A 匹配,现要将

与A 匹配的数找出来,并输入到A3单元格里.列如本题应该在A3中输出"1,6,"(引号不输入在A3中) 要 求作成VBA,并将条件(本题中条件为:A)、 数据范围(本题中条件为:A1）做成参数。
匹配法则为:：A1中的左起第X位与A2中的左起第X位匹配。

Answer 1

Function str(x, y, z)
xa = Split(x, ",")
ya = Split(y, ",")
If UBound(xa) <> UBound(ya) Then str = ",不匹配": Exit Function
For i = 0 To UBound(xa) - 1
If ya(i) = z Then str = str & xa(i) & ","
Next i
End Function