古希腊哲学家说过：上坡路与下坡路其实是同一条路。知心说：杀不死就是围，围不准就是绝杀。知心个人用来绝杀四码，因为本期杀不死，还有下一期，总有一期要不出号。全包6码组六或组三风险小
经过四个小时的技术攻关，终于成功编制查找福彩3D万能四码（变异版）当前连出40期以上的VBA程序。
我向DS提的问题是：
我需要一个查找福彩3D万能四码（变异）当前连出40期以上的VBA程序。
表格布局如下：第5行到8004行共8000期是3D奖号与试机号，第1列到第8列分别是期号，开奖日期，中奖号百位，十位，个位，试机号百位，十位，个位。B8006是行偏移值（范围是1-500），E8006是列偏移值（范围是1-6），I8006是万能四码选取（范围是1-30），K8008到N8037是30组万能四码，每组各占一行四列。现在要求从7935行K列开始生成71期模拟万能四码，通过行偏移（负值），列偏移，加选取的某一组万能四码的值取尾数，得到四个号码，最后一行是8005行，是预测值。然后把K列到N列的四个号码与同一行上的实际开奖号（C列，D列，E列）进行比较，计算当前连出期数（只统计到8004行，因为8005行还没有开奖，是待开奖期，但通过计算已有模拟四码。当模拟四码当前连出期数达到40期及以上时，把各参数（行偏移，列偏移，30组万能四码序号，计算所得模拟四码，当前连出期数）输出到A8011向下向右区域。