Exel 2003 макрос !

[Vadim Lisovec]

Здравствуйте!
У меня вопрос можно не вставлять "дату" и № "офіційного бюлетня"
а воспользоваться каким то Макросом ?

[Hugo121]

Каким-то можно.
Если смотреть на картинку - анализируем длину строки, если длиннее заданнного, то хвост переносим.
Можно даже просто тупо сплит по пробелу, и пишем первую часть в анализируюмую ячейку, вторую правее - если она есть.
Но с Вашими реальными данными никаких гарантий.

[Vadim Lisovec]

Мне просто нужно перенести дату и № в соседние ячейки там 1766 строк!

[Hugo121]

Я по картинке макросы не пишу.
Ну а как это может работать - уже живописно описал

[Vadim Lisovec]

[/CODE]

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

Я по картинке макросы не пишу.
Ну а как это может работать - уже живописно описал

Вот уже нашел но все ровно спасибо

Sub Split_Cells()
    Dim rR As Range, avData, asStr, avRes, lr As Long, lCnt As Long
    
    Set rR = Intersect(Selection.Columns(1), ActiveSheet.UsedRange)
    If Not rR Is Nothing Then
        avData = rR.Value
        If Not IsArray(avData) Then ReDim avData(1 To 1, 1 To 1): avData(1, 1) = rR.Value
        ReDim avRes(1 To UBound(avData, 1), 1 To 2)
        For lr = 1 To UBound(avData, 1)
            If Len(avData(lr, 1)) Then
            asStr = Split(avData(lr, 1), " ")
            avRes(lr, 1) = asStr(0)
            If UBound(asStr) > 0 Then avRes(lr, 2) = asStr(1)
            End If
        Next lr
        Selection.Cells(1, 1).Resize(lr - 1, 2).Value = avRes
    End If
End Sub[/QUOTE]