excel中 B列中有相同姓名,C列是数据,想把相同姓名的行合并,C列数据相加,如何写公式C列数据相

网友回答

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
DoSet 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 IfLoop While address1 address2
End IfIf Cells(i,1) 合计 Then
Cells(i,3) = ShuJu
End IfNextWith Application
.ScreenUpdating = True
End With
End Sub
如果表名不是sheet1就把代码中的表名改为你相应的表名