如何用VBA做交集结果统计，自己不会，请各位帮忙，谢谢了

283862846

如何用VBA做交集结果统计，自己不会，请各位帮忙，谢谢了

chxw68

什么是容错？

283862846

如有十列数据中都有数据 ，通过选择上面的E1和G1设置范围0--1，可以允许十列数据中有一个数据是错误的，选择1--1，以允许十列数据中有一列数据是错误的

283862846

Sub 容错导出()
Dim xm() As String
s1 = Val(Left([f1], 6)): s2 = Val(Right([g1], 7))
prow = [a65535].End(xlUp).Row
st = ""
For i = 1 To prow
    st = st & Trim(Cells(i, 1)) & " "
Next
mystr = ""
For d = 0 To 999
        d0 = Format(d, "000")
        s = Len(st) - Len(Replace(st, d0, ""))
        If s >= (prow - s2) * 3 And s <= (prow - s1) * 3 Then mystr = mystr & d0 & " "
Next
Range("n1") = "组号结果"
        Range("n2") = mystr
        Range("o1") = "注数"
        Range("o2") = Len(mystr) / 4
            MsgBox "交集完毕！"
End Sub

这是网上找的个例子，我不知道怎么用，不会VBA呀，