Функция Split

[0creator0]

Здравствуйте, подскажите пожалуйста, где зарылась ошибка? При запуске макроса хочу что бы если есть строчка со знаком «=» то она разбивалась бы на две строчке:
- в первой все, что до знака «=»;
- во второй все, что после «=»;
а в строчках где знак «=» отсутствует записывалась, только в одну строчку столбца без разбиения

[Watcher_1]

1) Не правильно написан InStr(temp(i), t) надо InStr(1, temp(i), t)
2) Что такое t оно имеет пустое значение...

[Hugo121]

Чего так сложно?

Sub test2()
    Dim x
    Dim i As Long
    Application.ScreenUpdating = False
    Range([H2], Cells(Rows.Count, "h").End(xlUp).Offset(0, 1)).ClearContents
    x = Range([A2], Cells(Rows.Count, 1).End(xlUp).Offset(0, 1))
    ReDim y(1 To UBound(x), 1 To 2)
    On Error Resume Next
    For i = 1 To UBound(x)
    y(i, 1) = Split(x(i, 1), "l=")(0)
    y(i, 2) = Split(x(i, 1), "l=")(1)
    Next
    [H2].Resize(i - 1, 2) = y
    [a:j].EntireColumn.AutoFit
    On Error GoTo 0
    Application.ScreenUpdating = True
End Sub

[RAN.]

Надо так

For i = 1 To UBound(x)
    On Error Resume Next
        temp = Split(x(i, 1), "l=")

[Hugo121]

RAN, зачем в цикле-то?
И притом в строке со split ошибки не будет, ошибка может быть позже, когда 1 элемент брать будем...

Trim забыл - исправьте:

    y(i, 1) = Trim(Split(x(i, 1), "l=")(0))
    y(i, 2) = Trim(Split(x(i, 1), "l=")(1))

[0creator0]

Премного благодарен за оперативность и предложенный новый вариант решения данного примера)))

[0creator0]

Здравствуйте еще раз. Использовав ваш код расцепления ,у меня все получилось, но не могу его доработать до ума, приспособить что б он заменял, уже имеющееся строчки , когда я ставлю J2
Range([j2], Cells(Rows.Count, "P").End(xlUp).Offset(0, 1)).ClearContents
……..
[j2].Resize(i - 1, 7) = y
Макрос выводит все правильно, но в соседних строчках
Когда я ставлю C2 ,
Range([С2], Cells(Rows.Count, "P").End(xlUp).Offset(0, 1)).ClearContents
………..
[С2].Resize(i - 1, 7) = y
макрос не хочет заменять на новое, и выдает ерунду.

[Hugo121]

[C2] - это должно быть це2, а не эс2
А потом уже дальше смотрите...

P.S.
И ещё - Вы очищаете 15 столбцов, а заполняете только 7 - почему?
Надеюсь, что массив на 7 столбцов создан (и наполнен).

[0creator0]

Да это я учел, теперь все строчки правильно заполняются кроме первой , он апосле запуска макроса просто исчезает.

[Hugo121]

Пропадает потому, что Вы её стираете:
Range([c2], Cells(Rows.Count, "k").End(xlUp).Offset(0, 1)).ClearContents
Расскажите, что Вы хотели вообще сделать?

Хотя вроде понял.
Попробуйте так:

Sub test()
    Dim x
    Dim i As Long
    Application.ScreenUpdating = False
    x = Range([A2], Cells(Rows.Count, 8).End(xlUp).Offset(0, 1))
    Range([c2], Cells(Rows.Count, "i").End(xlUp)).ClearContents
    ReDim y(1 To UBound(x), 1 To 7)
    On Error Resume Next
    For i = 1 To UBound(x)
        y(i, 1) = Trim(Split(x(i, 3), "l=")(0))
        y(i, 2) = Trim(Split(x(i, 3), "l=")(1)) * x(i, 4) / 1000
        y(i, 3) = x(i, 5)
        y(i, 4) = x(i, 6) / (Trim(Split(x(i, 3), "l=")(1)) / 1000)
        y(i, 5) = x(i, 7)
        y(i, 6) = x(i, 8)
        y(i, 7) = x(i, 9)
    Next
    [c2].Resize(i - 1, 7) = y
    '    [a:P].EntireColumn.AutoFit
    On Error GoTo 0
    Application.ScreenUpdating = True
End Sub

Вообще-то ClearContents тут лишнее - в любом случае этот диапазон затрётся массивом. В этом случае.