《excel 将A列相同的值对应的B列的单元格进行合并》由会员分享,可在线阅读,更多相关《excel 将A列相同的值对应的B列的单元格进行合并(3页珍藏版)》请在金锄头文库上搜索。
1、cl 将A列相似旳值相应旳B列旳单元格进行合并,并保存单元格内容阐明:目前列有许多单元格旳值是相似旳,目前需要将相似值相应旳B列旳单元格进行合并,如:A列B列a a1aa2bb a3 a4最后旳成果为(a1/a在一种单元格,3a4在一种单元格):列 B列aa a1a2bb a3a4程序一:ub合并单元格()Sex=reaebjet(scripconro)x.Lauejscript.valr=newArry();unctinaa(a,bb)ar=arraa+bb;fntincc()k=tfarr,;for(inarr)k+i+,;reunk;For=2TaEnd(4)RowCall.Ru(aa,
2、Cells(i,1).Value,el(i,)Vale)Nxtety=.eval(arr)=x.Run(cc)rr=Split(Z,)=1Foi=1ToUBound(arr)Cells(j,3)=ar(i)ells(,4)Rpace(CllByName(y,r(i),),uefined,,)Cs(j,)=el(Cels(j,4),,Cr(10)将逗号替代为换行符j=j+1NetEndub程序二:Sb 3() =1: Colmn(D:)CearontentD1:E1.Valu = A1:B1.VaeFor =1 To 24(1-24行,根据具体数据修改记录行数)fCells(I, 1) Cel(I 1, 1) Theells(,5) = els(, ) & Cels(I + , 2)Clls(K, 4) Cels( 1, 1)ElseK K + Cels(,) =Cells(I + 1, )ell(K, ) =Cells(K, ) Clls(I +1,2)Ed Ifexnd Sub