检测并筛选与现有题目有一定相似度的新题

月雨淙淙

近来需要做一个题库检测新题相似度的表格，在论坛上观摩了大神的作品（见以下链接），用自定义函数检测雷同，就用函数做出了结果，但可能是因为题量太大函数太多，每次打开总提示excel资源不足无法计算公式！
现求助各位vba大神
vba实现效果：
①新增题目表格中，计算：新增题目&选项1&选项2&选项3&选项4，每一题之间互相的相似度，并在H列之后罗列出相似度≥A2值的本题之外的题目；
②新增题目相似度计算完成后，手动清除或保留近似题目，清除新增题目表中会形成空行；
③现有题库表中，用筛选去近似后的新增题目&选项1&选项2&选项3&选项4，与现有题库题目&选项1&选项2&选项3&选项4，逐一比对相似度，在H列之后罗列出相似度≥新增题目!A2值的新增题目。

万分感激！

相似度检测效果：Excel 雷同字符提取函数 自定义函数

测试数据（红字部分为模拟运算结果）：

月雨淙淙

再次求助~
如果是我的需求表述不清，敬请各位指正！！
拜谢各位大侠！

月雨淙淙

三次求助~
再次拜谢各位大侠！

yjh_27

月雨淙淙 发表于 2018-12-9 21:53
三次求助~
再次拜谢各位大侠！

参见附件。

月雨淙淙

yjh_27 发表于 2018-12-9 22:55
参见附件。

太棒了，解决了纠结很久的问题！万分感谢！！
大神请问下如果把选项也考虑进去对比相似度该怎么实现呢？是不是该写个公式，连接起来？题目&选项1&选项2&选项3&选项4

月雨淙淙

yjh_27 发表于 2018-12-9 22:55
参见附件。

太强大了，解决了一直困扰我的问题，很久之前就借用了您的函数记忆深刻！还有个小问题请教下，如果要把选项也合并了一起考虑对比相似度的话，是不是要写个公式题目&选项1&选项2&选项3&选项4，这样连接起来呢？

yjh_27

月雨淙淙 发表于 2018-12-9 23:46
太强大了，解决了一直困扰我的问题，很久之前就借用了您的函数记忆深刻！还有个小问题请教下，如果要把选 ...

题目+选项。

月雨淙淙

yjh_27 发表于 2018-12-10 00:06
题目+选项。

完美解决！拜谢大侠~~~
以后要多多向您学习

月雨淙淙

yjh_27 发表于 2018-12-10 00:06
题目+选项。

大神，在测试运行题目+选项的表格时遇到一个问题：
当现有题库数量＞新增题目数量的时候，运行现有题库表的代码总会提示“下标越界”，但是现有题库的量必然会比新增题目要多的，
请教下这个该怎么修改呢？万分感谢！

yjh_27

月雨淙淙 发表于 2018-12-10 10:07
大神，在测试运行题目+选项的表格时遇到一个问题：
当现有题库数量＞新增题目数量的时候，运行现有题库 ...

没认真，对应乱了。
已改正，请重新下载7L附件测试。