excle难题

来源：百度知道 编辑：UC知道 时间：2024/06/17 13:18:33
做表时碰到一个问题,有
A B 二列需要把A重复的B列数据合并，如何操作？
1 谢
2 帮
1 谢
1 你
2 我
既目的表为
1 谢、谢、你
2 帮、我
谢谢,楼上的方法,不过你这个数字累加,不适用于文本,而我要做的是文本类型.

右键点击EXCEL程序界面工具条的空白部位，在弹出的工具条设置菜单中勾选“控件工具箱”，然后在控件工具箱的工具条上点击“命令按钮”，再点击工作表，然后双击添加好的命令按钮，在VB编辑器里写上如下代码
Private Sub CommandButton1_Click()
Dim a$, b$
n = ActiveSheet.Range("a65536").End(xlUp).Row
For i = 1 To n
If Cells(i, 1) = 1 Then
a = Trim(Cells(i, 2))
Cells(1, 3) = Cells(1, 3) + a
End If
If Cells(i, 1) = 2 Then
b = Trim(Cells(i, 2))
Cells(2, 3) = Cells(2, 3) + b
End If
Next i
End Sub
然后回到EXCEL界面，点击“退出设计模式”，再点击命令按钮，就可以得到你要的结果。