помогите решить задачку! Excel

[floriak]

Доброе время суток господа!
проблема такая у меня! в ексель с приложения експортируються даты в виде 01 января 2009г в два столбца необходимо вывисти в один столбец данные чтобы получилось в одной ячейки чтото типа "01 января 2009г 02 января 2009"
помогите плиз!
А В
01 января 2009г 02 января 2009г

а нужно чтобы

А
01 января 2009г 02 января 2009г

разделитель между датами можно и пробел и точку и тире

[floriak]

Sub test()
Dim stolbOne(1 To 1000) As String 'примерно 100 сами измените
Dim stolbTo(1 To 1000) As String
Dim rezulat(1 To 1000)
For i = 1 To 1000
stolbOne(i) = Cells(i, 1)
stolbTo(i) = Cells(i, 2)
Cells(i, 3) = stolbOne(i) + " " + stolbTo(i)
Next i
End Sub

вот текст макроса только он отображает в виде "01.01.2009 02.01.2009"
а нужно чтобы отображалось "01 января 2009 02 января 2009" чё сделать? как решить ету проблему?

[Screame]

http://www.planetaexcel.ru/tip.php?aid=116
Посмотрите способ №3, я думаю подойдет!

[Юнлинг]

Сообщение от floriak

Sub test()
Dim stolbOne(1 To 1000) As String 'примерно 100 сами измените
Dim stolbTo(1 To 1000) As String
Dim rezulat(1 To 1000)
For i = 1 To 1000
stolbOne(i) = Cells(i, 1)
stolbTo(i) = Cells(i, 2)
Cells(i, 3) = stolbOne(i) + " " + stolbTo(i)
Next i
End Sub

вот текст макроса только он отображает в виде "01.01.2009 02.01.2009"
а нужно чтобы отображалось "01 января 2009 02 января 2009" чё сделать? как решить ету проблему?

можно было это сделать без макроса обычной формулой

=СЦЕПИТЬ(ТЕКСТ(A1;"[$-FC19]ДД ММММ ГГГГ \г\.;@");" ";ТЕКСТ(B1;"[$-FC19]ДД ММММ ГГГГ \г\.;@"))

а потом растянуть насколько нужно

[floriak]

Спасибо огромное ! Выручил!