Как разделить один столбец на два.

[AHTOXA]

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

[Vitaly1]

i=1'строка где дата
j=1'строка где время
k=1
While cells(i,j).text<>""
s=cells(i,j).text
s1=""
while mid(s,1,1)<>" " and s<>""
s1=s1+mid(s,1,1)
s=mid(S,2)
wend
s=mid(S,2)
k=k+1
workshets("Имя листа для разделения").cells(k,2).value =s1
workshets("Имя листа для разделения").cells(k,3).value =s
i=i+1
wend

[GSerg]

Есть же дефолтовое средство - текст по столбцам.
Выделяешь столбец с данными, в меню Данные команда Текст по столбцам, там разберёшься.