演示效果和代码如下。文件已上传,下载地址: http://pan.baidu.com/s/1o6yoyxo sub tj() dim d,ky set d=createobject("scripting.dictionary") dim i,j,k,r,n,c,fst as long r=range("a"&rows.count).end(xlup).row dim akarr,mnarr akarr=range("a1:k"&r) for i=r-3 to 1 step-1 for j=2 ... 20210311