Разделение данных одной ячейки

[jestya]

Excel 2003. Помогите с разложением, пожалуйста)
Есть строка, расположенная на Лист3!A1:
"§Фамилия§Имя§Отчество§Зарплата§Дол жность§"
Необходимо программно реализовать разбиение строки на: Фамилия, имя, отчество, зарплата и должность, причем помещая каждое из слов соответственно на Лист2!A1, Лист2!B1, Лист2!C1, Лист2!D1 и Лист2!E1.

Допустим, Cells(b + n - m, a) и есть строка "§Фамилия§Имя§Отчество§Зарплата§Дол жность§"

Попытка хотя бы первое слово перенести выглядит так:
txt = Cells(b + n - m, a):
Слово = Split(Application.Trim(txt), "§")(0)
ActiveWorkbook.Sheets("Лист2").Cell s(1, 1) = Слово

[R Dmitry]

Sub test_split()

Dim str, x As Byte
'str = "Фамилия§Имя§Отчество§Зарплата§ Дол жность§"
str = Cells(1, 1).Text
arr = Split(str, "§")
x = UBound(arr)
Range(Cells(1, 4), Cells(1, 3 + x)) = arr

End Sub
вот так надо делать если на другой лист то
ActiveWorkbook.Sheets("Лист2").Rang e(Cells(1, 4), Cells(1, 3 + x)) = arr

[EducatedFool]

То же самое, но чуть короче:

Sub test()
    [Лист2!A1].Resize(, 6).Value = Split([a1], "§")
End Sub

Или так:

Sub test()
    [Лист2!A1:F1] = Split([a1], "§")
End Sub

Если оставлять данные на том же листе, то есть ещё вариант (его можно применить сразу к диапазону ячеек)

Sub test()
    [a1].TextToColumns [a1], xlDelimited, , , , , , , True, "§"
End Sub

[alex77755]

А можно просто воспользоваться стандартной функцией Ёксела:
Данные - текст по столбцам - с разделителями - другой - §
При этом можно выделить весь диапазон

[jestya]

EducatedFool, то, что надо!
Всем спасибо!!
Единственное, получается надо бы удалять первый символ строки, чтобы все это работало...