Функция Split

[0creator0]

Все ранво большое спасибо за помощь!!!!!

[Hugo121]

Складывает при n=10, 54, 55, дальше не ждал.

[0creator0]

При увеличении столбцов одинаковые строки у меня он все равно не видит
Делал n=10 , не хочет:

ReDim c(1 To unique.Count, 1 To 10):
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, 10) = c(n, 10) + (Trim(Split(b(m, 3), "l=")(1)) / 1000) * b(m, 4)

[0creator0]

А когда я добавил c(n, 1) он начинает складывать. Только правда вместе с текстом.

If unique(n) = b(m, 2) & "\" & b(m, 3) Then
c(n, 1) = 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) + b(m, 4) * (Trim(Split(b(m, 3), "l=")(1)) / 1000)
c(n, 5) = ""
c(n, 6) = ""

[Hugo121]

Вот тут:
c(n, 1) = c(n, 1) + Trim(Split(b(m, 3), "l=")(0)) & Chr(10) & b(m, 5)
справа явно ерунда - число с переносом строки внутри?
Да и в число бы неплохо явно перевести слагаемые, чтоб небыло сюрпризов.

[0creator0]

Да это я просто, привожу пример, знаю, что ерунда ищу способ понять, почему он у меня не хочет складывать, уже все перебрал ничего не помогает, вроде строчки одинаковые, а цифры почему то складывать не хочет.

[Hugo121]

Вы пошагово смотрите, что там в этот момент происходит.
Может быть вообще дело до сложения не доходит, а может быть в конце затирается...
Поставьте красную точку на этом месте и бдите, или в debug.print выводите промежуточные значения.

[0creator0]

Подскажите пожалуйста, как закончить перебор данных, а то я так понимаю он циклически не замкнут, и поэтому выдает ошибку, а как этот сделать я не знаю , а так при подсчете одинаковых строк вроде все верно происходит.

[0creator0]

Теперь он считает сумму, но почему-то записывает ниже, а не в строчку с одинаковыми значениями, для которых он считал.9 (Лист Суммы)

[Hugo121]

Вообще-то удалять строки/столбцы нужно обратным циклом - данные ведь сдвигаются, и если Вы удалили строку к примеру №2, то следующую будете проверять №4 - т.к. №3 уже уедет наверх. Может поэтому и ошибки, не вникал.

Ну да - у Вас в примере g доходит до 4, хотя строк осталось 2.
Удаляйте
For g = UBound(c) To 1 Step -1
и наладится вероятно - только ещё условия проверки скорректируйте.