改一下代码,即可 sub 相同26个顺序与数值的个数计算() set dic=createobject("scripting.dictionary") x=selection(selection.count).row y=selection(1).row z=selection(1).column for i=x to y+25 step-1 dic(cells(i,z)&"|"&cells(i-1,z)&"|"&cells(i-2,z)&"|"&cells(i-3,z)&"|"&cells(i... 20210311