Question

求VBA ：在excel的A1单元格里有数据：“2-1,4-1,5-3,6-2,"，在A2中有数据：“2”

（其中M-N：表示1到33内除以M的余数为N的整数。列4-1表示：1,5,9,13,17,21,25,29,33）现在返回A1单元格中的包含A2中数据的M-N的个数。本题应返回：“1”（因为只有“6-2”中包含了“2”)
要求将A1和A2单元格设为参数,做成自定义函数。

Answer 1

Function test(str2$, a)
Dim i%, x%, str1$, arr, m%, n%, y%
arr = Split(str2, ",")

i = 0
For y = 0 To UBound(arr)
If arr(y) <> "" Then
m = Left(arr(y), InStr(arr(y), "-") - 1)
n = Mid(arr(y), InStr(arr(y), "-") + 1, Len(arr(y)))
If a Mod m = n Then i = i + 1
End If
Next y
test = i
End Function