楼主,我假设您的数据是从A1,B1开始, 请用如下VBA代码:(结果会在D1,E1开始输出)
Dim i As Long, j As Long, cs As Long
Dim aa, bb As String
cs = Range("A65536").End(xlUp).Row
j = 1
aa = Cells(1, 1)
bb = Cells(1, 2)
For i = 2 To cs + 1
If Cells(i, 1) <> aa Then
Cells(j, 4) = aa
Cells(j, 5) = bb
aa = Cells(i, 1)
bb = Cells(i, 2)
j = j + 1
Else
bb = bb & Cells(i, 2)
End If
Next i
上述代码使用方法如下:
录制宏: "工具"菜单-->宏-->录制宏)--> 窗口上"快捷键(K)"下面Ctrl的右侧格内输入一个字母(作为快捷键)-->确定-->开始录制宏。
编辑宏: 开始录制后即可直接按"停止"停止录制, 然后"工具"菜单-->宏-->宏(M)-->选择刚建那个宏-->点右边"编辑"按钮-->进入宏编辑界面-->删除Sub XXX 至 End Sub之间内容-->然后将上述VBA代码复制并粘贴到 Sub XXX 至 End Sub之间-->按工具栏上的"保存"按钮-->"文件"菜单-->关闭并反回MicorSoft Excel
执行宏: 用快捷键(按住Ctrl不放, 再按那个录制宏时输入的字母)执行宏。 也可以通过菜单"工具"-->宏-->宏(M)-->窗口上选宏名, 按"执行"按钮执行宏。
温馨提示:内容为网友见解,仅供参考