excel将A列相同的值对应的B列的单元格进行合并之欧阳索引创编

欧阳索引创编 2021.02.02

excel将A列相同的值对应的B列 的

单元格进行合并，并保留单元格内 容

欧阳家百(2021.03.07)

说明：现在A列有许多单元格的值是相同的，现在需要将相 同值对应的B列的单元格逬行合并，如： A 列 B 列 aa alaa a2 bb a3 bb a4

最后的结果为(al/a2在一个单元格,a3/a4在一个单元格)： A列B列aa al

a2 bb a3

a4 程序一：

Sub合并单元格()

Set x = CreateObject(\"scriptcontrolu)x.Language = \"jscript\"

x.eval \"arr=new Array();function aa(aa,bb) {arr[aa]=arr[aa]+\"+bb ;); f unction cc() {kk=typeof arr + ；';for (i in arr) {kk +=i+','};return kk;}\"

欧阳索引创编

2021.02.02

欧阳索引创编 2021.02.02

For i = 2 To [a2].End⑷.Row

欧阳索引创编 2021.02.02

Call x.Run(HaaH, Cells(i, 1).Value, Cells(i, 2).Value) Next

Set y = x.eval('rarr\") Z = x.Run(nccH)arr = Split(Z,

For i = 1 To UBound(arr) Cells。，3) = arr(i)

Cells。，4) = Replace(CallByName(y, arr(i), 2), \"undefined,”, \"u)Cells( j, 5) = Replace(Cells(j, 4), T, Chr(10))'将逗号替换为换行符

j=j+l

Next

End Sub

程序二：

Sub K

=

1:

by20113()

Columns(nD:K\").ClearContents

[Dl:El].Value = [A1:B1].Value For I = 1 To 24(1-24行，根据具体数据修改记录行数)If Cells(I, 1)

—

Cells(I 5)

= Cells(K, 4)

+

5)

1, &

1) Cells(I

+

Then + 1, 2) 1, 1)

Cells(K, Cells(K, Else K Cells(K,

=

Cells(I

— 4)

=

欧阳索引创编

欧阳索引创编

K Cells(I

+

1

2021.02.02 2021.02.02

+ 1, 1)

欧阳索引创编

2021.02.02

Cells(K, 5) End Next End Sub

= Cells(K, 5) & Cells(I + 1, 2) If