已经在表2找到对应小分类填写到表一，那么，现在表一中填写发标题在A1单元格中，代码如下：-------------------------------------------------------------------------------------------------------------------Public Sub cdbt()
Dim i&, Myr&, Arr
Dim d, dmax&, xflmax$, dbt$ '声明变量,dmax为小分类最大出现次数,xflmax为名称,dbt为要查找的大标题
Set d = CreateObject("Scripting.Dictionary") ...
