здравствуйте, прошу помочь, нужно написать макрос: в строке несколько слов каждое отделено точно, надо чтобы когда макрос найдет точку он слово которое после этой точки переносил на другой столбец в этой же строке, чтобы из всех строк и столбцов в который текст есть проверял и разбивал,допустим есть текст в а1 и в1 то разбивать в следующие столбцы, и в а2 если в следующий столбец, ток писать не конкретно что из а1 и в1 и а2 а наверное чтобы он по циклу смотрел где есть текст.
Sub перенос()
Dim cell As Range Dim num Dim text Dim row Dim col Dim temp Dim i
col = 1 row = 1 num = Range("A:Z").Count
cell = Range("A:Z").text
For j = 1 To Len(num)
For i = 1 To Len(cell)
temp = Mid(cell, i, 1) If temp Like "[.]" Then If text <> "" Then Cells(row, col).Value = text col = col + 1 row = row + 1 text = "" End If Else text = text & temp End If If i = Len(cell) And text <> "" Then Cells(row, col).Value = text End If Next i Next j
End Sub помогите пожалуйста довести до ума еще ошибка в строке cell = Range("A:Z").text что там нулевое значение, хотя синтаксис правильный должен быть заранее спасибо
[moder]Тема закрыта, причина: нарушение пунктов 2, 3, 5r. Читаем правила и исправляемся![/moder]
здравствуйте, прошу помочь, нужно написать макрос: в строке несколько слов каждое отделено точно, надо чтобы когда макрос найдет точку он слово которое после этой точки переносил на другой столбец в этой же строке, чтобы из всех строк и столбцов в который текст есть проверял и разбивал,допустим есть текст в а1 и в1 то разбивать в следующие столбцы, и в а2 если в следующий столбец, ток писать не конкретно что из а1 и в1 и а2 а наверное чтобы он по циклу смотрел где есть текст.
Sub перенос()
Dim cell As Range Dim num Dim text Dim row Dim col Dim temp Dim i
col = 1 row = 1 num = Range("A:Z").Count
cell = Range("A:Z").text
For j = 1 To Len(num)
For i = 1 To Len(cell)
temp = Mid(cell, i, 1) If temp Like "[.]" Then If text <> "" Then Cells(row, col).Value = text col = col + 1 row = row + 1 text = "" End If Else text = text & temp End If If i = Len(cell) And text <> "" Then Cells(row, col).Value = text End If Next i Next j
End Sub помогите пожалуйста довести до ума еще ошибка в строке cell = Range("A:Z").text что там нулевое значение, хотя синтаксис правильный должен быть заранее спасибо
[moder]Тема закрыта, причина: нарушение пунктов 2, 3, 5r. Читаем правила и исправляемся![/moder]ioi
Сообщение отредактировал Manyasha - Понедельник, 09.11.2015, 17:48