Функция Split

[0creator0]

Hugo121 спасибо Боьшое ,сам бы не понл что надо убрать Offset(0, 1) , сейчас буду разбераться как это влияет. Огромное спасибо!

[Hugo121]

Да оффсет при стирании ни при чём, это всего лишь сдвиг на один столбец правее.
Там вина в том, что стираете до взятия в массив, и ориентируетесь не по тому столбцу.
Вообще, как я понял, Вы брали чужой код, где оффсет использовался потому, что крайний справа столбец не имел данных в последней строке нужного диапазона. Поэтому низ диапазона определяли по одному столбцу, а стирали (и брали в массив) область на 1 столбец правее.
В Вашем примере оффсет ни к чему, вообще строку
x = Range([A2], Cells(Rows.Count, 8).End(xlUp).Offset(0, 1))
можно записать так:
x = Range([A2], Cells(Rows.Count, 9).End(xlUp))
Оставил просто потому, что не мешает - вдруг всёже на реальных данных важно?
Т.е. тут диапазон получается одинаковый, но последняя строка определяется по разным столбцам. А в примере эти оба столбца по количеству данных одинаковы.

[0creator0]

И снова с нелегким вопросом обращаюсь за помощью, пол дня промучился, не пойму где засела ошибка :

ReDim c(1 To unique.Count, 1 To 6):
Application.ScreenUpdating = False
On Error Resume Next
For n = 1 To unique.Count
For m = 1 To UBound(b)

Происходит перебор там где есть знак «=» :

If InStr(b(m, 3), "l=") > 0 Then

Все правильно происходит, кроме одного одинаковые строчки, но с разными c(n, 4) - почему то не суммируются. c(n, 5) и (n, 6) отсутствуют так как эти ячейки где был знак равно должны быть пусты.

If unique(n) = b(m, 2) & "\" & b(m, 3) Then c(n, 1) = Trim(Split(b(m, 3), "l=")(0)) & _
Chr(10) & b(m, 5): c(n, 2) = b(m, 2): c(n, 4) = c(n, 4) + (Trim(Split(b(m, 3), "l=")(1)) / 1000) * b(m, 4)

А там где нету знака равно, все происходит правильно, одинаковые строчки друг с другом суммируются

Else
If unique(n) = b(m, 2) & "\" & b(m, 3) Then c(n, 1) = b(m, 3) & _
Chr(10) & b(m, 5): c(n, 2) = b(m, 2): c(n, 4) = c(n, 4) + b(m, 4): _
c(n, 5) = b(m, 6): c(n, 6) = c(n, 6) + b(m, 7)
End If
Next m: Next n

Подскажите что здесь я на мудрил???

[Hugo121]

Так непонятно, в чём причина. Давайте код в файле.
Да и читать так оформленный код невозможно - я в редактор закинул, чтоб понять. Вроде правильно...

[0creator0]

Происходит все действие на листе «Сумма»

[0creator0]

Я уже и c(n, 5) =0: c(n, 6) =0 дал нули но все равно, не хочет складывать значение из которых извлекался знак «=».

[Hugo121]

Ну навернули...
Мне кажется, что суммирование можно проще сделать, вообще всё проще...
На словаре можно сделать без цикла в цикле - будет быстрее.
Но нужно вникать, может быть и не прав.
Ну а с суммированием может быть так нужно?

    For n = 1 To unique.Count
        For m = 1 To UBound(b)
         If InStr(b(m, 3), "l=") > 0 Then
                    If unique(n) = b(m, 2) & "\" & b(m, 3) Then
                    c(n, 1) = Trim(Split(b(m, 3), "l=")(0)) & Chr(10) & b(m, 5)
                    c(n, 2) = b(m, 2)
                    c(n, 4) = c(n, 4) + (Trim(Split(b(m, 3), "l=")(1)) / 1000) * b(m, 4)
                    c(n, 5) = 0
                    c(n, 6) = 0
                    End If
            Else
                    If unique(n) = b(m, 2) & "\" & b(m, 3) Then
                    c(n, 1) = b(m, 3) & Chr(10) & b(m, 5)
                    c(n, 2) = b(m, 2)
                    c(n, 4) = c(n, 4) + b(m, 4)
                    c(n, 5) = c(n, 5) + b(m, 6)
                    c(n, 6) = c(n, 6) + b(m, 7)
                    End If
                  End If
        Next m, n

P.S. Сейчас цитирование кода курсивом выглядит терпимо, но на моём домашнем мониторе читать было невозможно... вероятно стоит поменять монитор....

[0creator0]

Ну да с кодом наворочено, согласен, но когда смотришь вроде все правильно, но все равно не хочет считать
Там где одинаковые строчки, он почему-то не складывает, хотя код написан почти такой же

c(n, 1) = Trim(Split(b(m, 3), "l=")(0)) & Chr(10) & b(m, 5)
c(n, 2) = b(m, 2)
c(n, 4) = c(n, 4) + (Trim(Split(b(m, 3), "l=")(1)) / 1000) * b(m, 4)
c(n, 5) = 0
c(n, 6) = 0

Как и во втором но, во втором случае он складывает одинаковые строчки,

c(n, 1) = b(m, 3) & Chr(10) & b(m, 5)
c(n, 2) = b(m, 2)
c(n, 4) = c(n, 4) + b(m, 4)
c(n, 5) = b(m, 6)
c(n, 6) = c(n, 6) + b(m, 7)

Получается, что в эту функцию вставлять Split вставлять нельзя что ли?

[Hugo121]

Так Вы же сами задаёте:

         If InStr(b(m, 3), "l=") > 0 Then
...
...
               c(n, 5) = 0: c(n, 6) = 0

Хотя полностью "въехать" не могу... работа...

[0creator0]

Ну я их и убирал т. е записывал

ReDim c(1 To unique.Count, 1 To 6):

и интервал делал другим

(1 To unique.Count, 1 To 4):

Application.ScreenUpdating = False
On Error Resume Next
For n = 1 To unique.Count
For m = 1 To UBound(b)
If InStr(b(m, 3), "l=") > 0 Then
If unique(n) = b(m, 2) & "\" & b(m, 3) Then
c(n, 1) = Trim(Split(b(m, 3), "l=")(0)) & Chr(10) & b(m, 5)
c(n, 2) = b(m, 2)
c(n, 4) = c(n, 4) + (Trim(Split(b(m, 3), "l=")(1)) / 1000) * b(m, 4)
End If
Else
If unique(n) = b(m, 2) & "\" & b(m, 3) Then
c(n, 1) = b(m, 3) & Chr(10) & b(m, 5)
c(n, 2) = b(m, 2)
c(n, 4) = c(n, 4) + b(m, 4)
End If
End If
Next m, n

Все равноне хочте складывать там где работает функция Split