例:你的数据在sheet1表中,运行此宏即得到你要的结果sub aa ()dim R&,x&,i&dim arr,arr1()with sheet1r=.range("A65536").end(xlup).rowarr=.range("A1:B"&r)for x=1 to ubound(arr)if arr(x,1)=arr(x,2) theni=i+1redim preserve arr1(1 to i)arr1(i)=arr(x,2)end ifnext x.range("C1").resize(ubound(arr1),1)=application.transpose(arr1)end ...
|