Esta macro faz isso
Sub UpdateStatus()
Dim row As Integer
row = 1 ' sets the starting row
Dim statisticRow As Integer
statisticRow = 1 ' sets the starting row for the results
Do While (True)
Dim currentValue As String
currentValue = Range("A" & row).Value
Dim otherValue As String
If currentValue = "" Then
Exit Do
End If
Dim otherRow As Integer
otherRow = 1 ' sets the starting row where the results are
Do While (True) ' find it or add it
otherValue = Range("F" & otherRow).Value
Dim currentValueStatus As String
If Left(currentValue, 7) = otherValue Then ' As expected sire, I found it. Can I eat now?
currentValueStatus = Range("B" & row).Value
Range("G" & otherRow).Value = Range("G" & otherRow).Value + Range("B" & row).Value
Exit Do
End If
otherRow = otherRow + 1
Loop
row = row + 1
Loop
End Sub
Como você pode ver na imagem abaixo, eu tive que configurar os critérios na coluna F. Como seu post mostra que a string 'pequena' tem 7 caracteres e sempre os 7 primeiros caracteres da string grande, nós podemos use a função Left (). Se este não for sempre o caso, use a função instr ()
Edepoisdaexecuçãodamacro