excel中如何合并内容相同的不同单元同时对应的数量累加1

发布网友 发布时间：2023-09-28 12:20

我来回答

共5个回答

热心网友 时间：2024-12-02 07:14

打开EXCEL文件 按 ait+F11 左键插入模块 贴入代码 返回EXCEL 按ait+F8 执行SSS
在该工作表标签上，输入如下代码，然后运行该段代码，或运行宏“合并相同相邻单元格并对相应单元格求和”，下次打开该工作簿时，一定要将宏安全性设为中，并启用宏，方可再次运行该代码。注意：在运行代码前先排序，按照图号第一关键字、名称第二关键字进行排序，排完序后在运行该段代码。Sub sss()
Dim xRow As Integer
Dim i As Integer
Dim a As Integer

'a为中间变量，表示每次合并的行数
'xRow为数据区域最后一行行号
'若起始行不为1，则可将语句i=1重新赋值
xRow = Range("A1").CurrentRegion.Rows.Count
a = 0
For i = 1 To xRow
If Cells(i + 1, 1) = Cells(i - a, 1) Then
'对相应单元格求和，iCol1为对应列号
Cells(i - a, 2) = Cells(i - a, 2) + Cells(i + 1, 2)
a = a + 1
Else
If a > 0 Then
Excel.Application.DisplayAlerts = False
'合并相同相邻单元格
Range(Cells(i - a, 1), Cells(i, 1)).MergeCells = True '合并要求和列相应单元格
Range(Cells(i - a, 2), Cells(i, 2)).MergeCells = True
a = 0
Excel.Application.DisplayAlerts = True
End If
End If
Next
End Sub
代码原理：第一列、相同进行合并，对第2列单元格进行相加。因此在运行该段代码前，先对数据区域进行排序，排序关键字以“图号”和“名称”进行排序。这样才能保证相同图号及名称的记录在一起。

热心网友 时间：2024-12-02 07:14

新版本的都有去除重复项这个选项，不是新版本的用高级筛选----去除重复项---确定

热心网友 时间：2024-12-02 07:15

用分类汇总或数据透视表都可以解决。追问菜鸟一个请说详细点

追答先将第一列排序，然后单击“数据---分类汇总”，分类字段为你刚排序的字段，汇总方式选“求和”，再勾选要求和的字段名就行了。

热心网友 时间：2024-12-02 07:16

用SUMIF就行。

热心网友 时间：2024-12-02 07:16

用类似=SUMIF(A:A,"A",B:B)的函数。