разделить строку!!!!

[dzaymko]

нужно разделить для всех листов

пример:

[Hugo121]

Ну нужно так нужно... что поделаешь...

Sub tt()
    Dim t1, t2, t3

    t1 = Split([a2], Chr(10))
    t2 = Split([b2], Chr(10))
    t3 = Split([c2], Chr(10))
    [a7].Resize(UBound(t1) + 1, 1) = Application.Transpose(t1)
    [b7].Resize(UBound(t2) + 1, 1) = Application.Transpose(t2)
    [c7].Resize(UBound(t3) + 1, 1) = Application.Transpose(t3)

End Sub

Но уж вот для всех - это сами. Или 1000р.