phb110是什么型号

用宏：

Subtest()

DimPh(1To200)AsString,TAsString。

Fori=1To200

Ph(i)=i

Next

Fori=1To200

r=Int(Rnd()*200)+1

T=Ph(i)

Ph(i)=Ph(r)

Ph(r)=T

Next

Fori=1To10

Range("B"&i)=Range("A"&Ph(i))。

Next

EndSub