资源描述:
《excel 将A列相同的值对应的B列的单元格进行合并.doc》由会员上传分享,免费在线阅读,更多相关内容在行业资料-天天文库。
1、excel将A列相同的值对应的B列的单元格进行合并,并保留单元格内容说明:现在A列有许多单元格的值是相同的,现在需要将相同值对应的B列的单元格进行合并,如:A列 B列aa a1aa a2bb a3bb a4最后的结果为(a1/a2在一个单元格,a3/a4在一个单元格):A列 B列aa a1 a2bb a3 a4 程序一:Sub 合并单元格()Set x = CreateObject("scriptcontrol")x.Language = "jscript"x.eval "arr=new Ar
2、ray();function aa(aa,bb) {arr[aa]=arr[aa]+''+bb ;}; function cc() {kk=typeof arr + ',';for (i in arr) {kk +=i+','};return kk;}"For i = 2 To [a2].End(4).RowCall x.Run("aa", Cells(i, 1).Value, Cells(i, 2).Value)NextSet y = x.eval("arr")Z = x.Run("cc")arr = Split(Z, ",
3、")j = 1For i = 1 To UBound(arr)Cells(j, 3) = arr(i)Cells(j, 4) = Replace(CallByName(y, arr(i), 2), "undefined,", "")Cells(j, 5) = Replace(Cells(j, 4), ",", Chr(10)) '将逗号替换为换行符j = j + 1NextEnd Sub程序二:Subby20113()K=1:Columns("D:K").ClearContents[D1:E1].Value=[A1:B1].V
4、alueForI=1To24(1-24行,根据具体数据修改记录行数)IfCells(I,1)=Cells(I+1,1)ThenCells(K,5)=Cells(K,5)&Cells(I+1,2)Cells(K,4)=Cells(I+1,1)ElseK=K+1Cells(K,4)=Cells(I+1,1)Cells(K,5)=Cells(K,5)&Cells(I+1,2)EndIfNextEndSub