Работа со строкой в VBA

[Hugo121]

А попробовать?
А выгрузка так будет быстрее (хотя на 100 строк - какая разница?...)

Option Explicit

Sub qq()
    Dim i As Long, j As Integer, a(), ai, bi, k
    a = Range("N1:O" & Cells(Rows.Count, 15).End(xlUp).Row).Value
    With CreateObject("Scripting.Dictionary"): .comparemode = 1

        For i = 2 To UBound(a, 1)
            If Len(a(i, 1)) Then
                If Rows(i).Hidden = False Then
                    ai = Split(a(i, 2), "+"): bi = Split(a(i, 1), "/")
                    If UBound(ai) = UBound(bi) Then
                        For j = LBound(ai) To UBound(ai)
                            .Item(ai(j)) = .Item(ai(j)) + Val(bi(j))
                        Next
                    End If
                End If
            End If
        Next

        ReDim a(1 To .Count + 1, 1 To 3): i = 1
        a(i, 1) = "Израсходовано всего"
        For Each k In .keys
            i = i + 1
            a(i, 1) = "'" & k
            a(i, 2) = .Item(k)
            a(i, 3) = " тонн"
        Next

    End With
    If i > 1 Then Workbooks.Add(1).Sheets(1).[a1].Resize(i, 3) = a

End Sub

[Knyazev_I]

Hugo121, все работает. Спасибо отправлено на R418926282008.