如题所述
怎么用
sub xx()x=1for i=1 to 9for j=0 to 9if ji then for k=0 to 9if ki and kj thenfor l=0 to 9if li and lj and lk thencells(x,1)=i*1000+j*100+k*10+lx=x+1endif:next:endif:next:endif:next:nextend sub