excel表中如何合并相同的数据,其他的内容都保留

如题所述

第1个回答  2016-11-03
可以用vba实现。代码如下。
Sub 合并()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
On Error Resume Next
m = [E65536].End(xlUp).Row
x = Cells(2, 5): j = 1: z = 0
For i = 3 To m
y = Cells(i, 5)
If x <> y Then
x = y
If j > 1 Then Range(Cells(z, 5), Cells(z + j - 1, 5)).MergeCells = True: j = 1
Else
j = j + 1
If j = 2 Then z = i - 1
End If
Next i
Application.DisplayAlerts = True
Application.ScreenUpdating = True
MsgBox "相同数据合并完成!"
End Sub追问

我不会的,其他的方法有吗?

追答

单纯用函数不可以实现的。你不会vba,可以把样表发给我我给你设置好vba,以后你只需把数据粘贴进去,点击按钮瞬间就可以完成你说的要求。

第2个回答  2016-11-03
用数据透视表可以实现您的需求。追问

具体的步骤有吗

追答

步骤:插入-数据透视频表-选定数据源-选定需要放数透表的位置-确定,然后跟据您的需要点先项目,以及需要汇总的数量等。里面会自动合并相同项的。

相似回答