Excel：将具有相同值的相邻行相加

Question

我有一个 table 结构如下：

Timestamp    Name    Value
01/01/2013   X       20
01/01/2013   Y        5
01/01/2013   Y        3
01/01/2013   X        7
01/02/2013   X       15
01/02/2013   X        1  
01/02/2013   Z        8
01/03/2013   Y        1

我想将具有相同Name的相邻行的Value加到第一行（保持相同的Timestamp和行上的其他值，只有Value 已更新）。可以有任意数量的连续出现，为了示例，我只放了两个。上述示例的结果应如下所示：

Timestamp    Name    Value
01/01/2013   X       20
01/01/2013   Y        8
01/01/2013   X       23
01/02/2013   Z        8
01/03/2013   Y        1

Answer 1

Sub SumAdjacent()
Dim TimeStamp As Date
Dim Name As String
Dim Value As Integer
k = 1
For i = 2 To 80 'range of your data from secound row to 80row(or whatewer you want)
    Value = 0
    TimeStamp = Sheets(1).Cells(i, 1).Value
    Name = Sheets(1).Cells(i, 2).Value
    Value = Sheets(1).Cells(i, 3).Value
    j = i + 1
    'check next row
CheckNextRow:
    If Sheets(1).Cells(j, 2) = Name Then
        Value = Value + Sheets(1).Cells(j, 3).Value
            j = j + 1
            GoTo CheckNextRow ' loop to check every next row value
    Else
        Sheets(2).Cells(k, 1).Value = TimeStamp
        Sheets(2).Cells(k, 2).Value = Name
        Sheets(2).Cells(k, 3).Value = Value
        k = k + 1
                i = j - 1
    End If
Next
End Sub

Excel：将具有相同值的相邻行相加

Excel: Sum adjacent rows with same value

excel

vba