作业帮 > 综合 > 作业

EXCEL第一列如果一样,第二列自动连接

来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/09/15 13:04:33
EXCEL第一列如果一样,第二列自动连接
1 A
1 B
1 C
1 D
2 A1
2 A2
2 A3
2 A4
要的结果
1 ABCD
2 A1A2A3A4
给你编了一个宏,执行一下就可以搞定
Sub 连接字符串()
Cells(1, 3) = Cells(1, 2)
x = Cells(1, 1)
i = 2
Do While Cells(i, 1) ""
If Cells(i, 1) = x Then
Cells(x, 3) = Cells(x, 3) & Cells(i, 2)
Else
x = x + 1
Cells(x, 3) = Cells(i, 2)
End If
i = i + 1
Loop
End Su