帮忙写一个vba代码

Question

http://wenku.baidu.com/view/e86e35f2de80d4d8d05a4f2b
文档下载地址

Answer 1

文档删除。

按照截图写了一个，请粘贴到数据所在单元格的代码窗口并运行测试吧。

Sub abc()
Dim rngA As Range, rngB As Range
Dim s
    [c:c].ClearContents '清除C列原有数据
    For Each rngA In Range([A1], [A1].End(xlDown)) '遍历A列所有数据
        For Each rngB In Range([B1], [B1].End(xlDown)) '遍历B列所有数据
            rngB.Select '选中B列当前单元格，用作处理进度指示
            s = 0 '搜索计数清零
            For i = 0 To 4 '对A列数据每3个字符为单位分割搜索
                If InStr(rngB & " ", Mid(rngA & " ", i * 3 + 1, 3)) = 0 Then Exit For
                s = s + 1
            Next i
            rngB.Offset(0, 1) = rngB.Offset(0, 1) + Int(s / 5) '若5组均找到，则C列计数加1
        Next rngB
    Next rngA
End Sub

Answer 2

“对不起，该文档已删除！”
建议传到云盘上