excel中 B列中有相同姓名,C列是数据,想把相同姓名的行合并,C列数据相加,如何写公式C列数据相加,是指B列相同姓名的行中的数据相加
来源：学生作业帮助网 编辑：六六作业网 时间：2024/11/22 02:58:42
excel中 B列中有相同姓名,C列是数据,想把相同姓名的行合并,C列数据相加,如何写公式C列数据相加,是指B列相同姓名的行中的数据相加
excel中 B列中有相同姓名,C列是数据,想把相同姓名的行合并,C列数据相加,如何写公式
C列数据相加,是指B列相同姓名的行中的数据相加
excel中 B列中有相同姓名,C列是数据,想把相同姓名的行合并,C列数据相加,如何写公式C列数据相加,是指B列相同姓名的行中的数据相加
Sub 合并相同数据()
Dim i,l As Long
Dim rng As Range
Dim XingMing As String
Dim ShuJu
With Application
.ScreenUpdating = False
End With
Sheets("sheet1").Select
For i = 3 To Sheet1.UsedRange.Rows.Count
ShuJu = Cells(i,3)
XingMing = Cells(i,2)
If ShuJu "" And XingMing "姓名" Then
xiayige:
On Error Resume Next
Set rng = Sheet1.UsedRange.Find(what:=XingMing,lookat:=xlWhole)
address1 = rng.Address
Do
Set rng = Sheet1.UsedRange.FindNext(rng)
If rng.Value XingMing Or rng.Value = "" Then Exit Do
address2 = rng.Address
p = rng.Row
If address1 address2 Then
ShuJu = ShuJu + Cells(p,3)
Rows("" & p & ":" & p & "").Select
Selection.Delete Shift:=xlUp
GoTo xiayige
End If
Loop While address1 address2
End If
If Cells(i,1) "合计" Then
Cells(i,3) = ShuJu
End If
Next
With Application
.ScreenUpdating = True
End With
End Sub
如果表名不是sheet1就把代码中的表名改为你相应的表名