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

[Казанский]

Игорь, "+ --bi(j)" можно заменить на "- -bi(j)"

[Hugo121]

А ну да... Привычка
Там может лучше (и понятнее) "+ Val(bi(j))"

[Knyazev_I]

Сообщение от Казанский

1. Можно! А что Вы потом с ним делать будете - PrintScreen?
2. Свернутые строки включать в отчет или нет?

Все строки.
Строка 1
10/155/5 20/40+16/20+16/20RCP
Строка 2
10/155/5 20/40+16/20+16/20RCP

Отчет
20/40 = 20
16/20 = 310
16/20RCP = 10

[Hugo121]

Так что, всё ещё не испытали код?

[Knyazev_I]

Можно убрать из подсчета скрытые строки.

[Hugo121]

Можно и убрать...

Option Explicit

Sub qq()
    Dim i As Long, j As Integer, a(), ai, bi, k    'b()
    a = Range("N1:O" & Cells(Rows.Count, 15).End(xlUp).Row).Value
    'ReDim b(1 To UBound(a, 1), 1 To 1)
    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))
                            'b(i, 1) = b(i, 1) & ai(j) & " = сумма " & bi(j) & ", "
                        Next
                        'b(i, 1) = Left$(b(i, 1), Len(b(i, 1)) - 2)
                    End If
                End If
            End If
        Next

        For Each k In .keys
            MsgBox k & " = сумма " & .Item(k)
        Next

    End With

End Sub

[IgorGO]

к этому макросу еще дожен прилагаться набор фломастеров, что бы потом аккуратно данные с MsgBox переписывать в журнал подсчета стоимостей.

[RAN.]

Сообщение от IgorGO

к этому макросу еще дожен прилагаться набор фломастеров, что бы потом аккуратно данные с MsgBox переписывать в журнал подсчета стоимостей.

А приложить жаба душит?

[IgorGO]

Можно отчет в функции MessageBox?

это пожелание автора, оно крайне удивительно, но автор высказал пожелание, Hugo121 его реализовал вполном обьеме

[Knyazev_I]

Hugo121, спасибо на WM будет обязательно. Я понемногу начинаю понимать VBA. Хотя Pascal как то ближе ) Концовку доработал
Worksheets("Отчет").Cells(1, 1) = "Израсходовано всего"
Worksheets("Отчет").Cells(cn, 1) = k
Worksheets("Отчет").Cells(cn, 2) = .Item(k)
Worksheets("Отчет").Cells(cn, 3) = " тонн"
cn = cn + 1
Next
MsgBox "Готово"

Упс. Дополню
If Rows(i).Hidden = False Then 'пропускаем скрытые строки. А как быть если строки скрыты фильтром?