Перенос текста из файла в Эксел

[motorway]

Планируется делать импорт из текстового файла в Эксел. Данные на каждой строчке должны попасть в соотв. строку.
Но проблема в том, что в текстовом файле данные могут содержать знак переноса строки.
И при попадании в Эксел в ячейке тоже это должно стать в виде текста с переносом строк.

Как это сделать?

Пример текстового файла:

a
b
c Символ переноса d Символ переноса e
f
g

->
В Экселе в соотв. ячейках появляется
A1 ->a
A2 -> b
A3 -> c
d
e
A4->f
A5->g

Т.е. непонятно, как сделать этот символ переноса в файле, чтобы при импорте он воспринимался как символ переноса на др. строку и в Экселе это было соотв. тексту с переносами строк в одной ячейке.

[doober]

На текстовый файл посмотреть можно.проблема решаемая.
Я правильно понял конечный результат

[motorway]

Да, нужно было так. Получилось сделать путем добавления в строку в текстовом файле некоторой комбинации символов, которая потом заменялась в Экселе на перенос строки chr(10)

[Алекс14]

Ребята, а можно подробней, как сделать так, чтобы при вставке текста с блокнота excel понимал признаки переноса в тексте.

[Алекс14]

Никто не подскажет?

[SAS888]

чтобы при вставке текста с блокнота excel понимал признаки переноса в тексте.

Excel так и делает. Вопрос не понятен. Прикрепите пример с исходным текстовым файлом и xls файл с желаемым результатом.

[Алекс14]

Вот собственно:

[SAS888]

Все равно, не понятно.

чтобы при вставке текста с блокнота excel понимал признаки переноса в тексте.

Что значит перенос в тексте? Переход на новую строку? Тогда чем разделять текст по ячейкам? Не хочу сам угадывать то, что Вам нужно. Я просил не только требуемый результат в xls-файле, но и исходный txt-файл, из которого нужно это получить.

[Алекс14]

Есть текстовый файл, пример:

здесь текст
вторая строка текста
третья строка текста

следующий текст
вторая строка текста
третья строка текста

и еще один текст
вторая строка текста
третья строка текста

Весь текст я копирую (9 строчек текста с пробелами) и
вставляю в excel. Excel расставляет каждую строку текста в отдельную ячейку.
Но мне нужно, чтобы каждые три строки текста попадали в одну ячейку и т.д.

Надеюсь доступно объяснил.

P.S. Метод Аlt enter для переноса внутри ячейки можно применить, но для большого объема текста это не реально.

[Teslenko_EA]

Здравствуйте Алекс14.
если действительно существует признак разделения групп (в примере это пустая строка), выполнение "Аlt enter для переноса внутри ячейки" можно "поручить" подобной процедуре:

Sub joinCells()
Const sSel = "^", sR = "|"
Dim s, sArr() As String
For i = 1 To lastRow
    s = s + sSel + Trim(Cells(i, 1).Text)
Next
s = Replace(s, sSel + sSel, sR + sR)
s = Replace(Mid(s, 2), sSel, Chr(10))
sArr = Split(s, sR)
For i = 0 To UBound(sArr)
    Cells(i + 1, 2) = sArr(i)
Next
End Sub
Function lastRow() As Long
With ActiveSheet.UsedRange
    lastRow = .Rows.Count + .Row - 1
End With
End Function

и "для большого объема текста это" станет реально
Евгений.