Объединение строк в столбце

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по Excel » Объединение строк в столбце (Формулы/Formulas)

akksimo

Дата: Пятница, 21.03.2014, 00:46 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 1

Репутация: 0 ±

Замечаний: 0% ±

Excel 2007

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

[vba]

Код

текст.

текст2.
текст2.

текст3.
текст3.
текст3.

текст4.

[/vba]

в exel получается:

[vba]

Код

[текст.]
[]
[текст2.]
[текст2.]
[]
[текст3.]
[текст3.]
[текст3.]

[/vba]

, где [] - ячейка столбца

как сделать чтоб было так:

[vba]

Код

[текст.]
[текст2.
текст2.]
[текст3.
текст3.
текст3.]
[текст4.]

[/vba]

Сообщение отредактировал akksimo - Пятница, 21.03.2014, 00:47

Ответить

shurikus

Дата: Пятница, 21.03.2014, 00:59 | Сообщение № 2

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 198

Репутация: 44 ±

Замечаний: 0% ±

Excel 2007

Есть формула массива:

Код

=ЕСЛИОШИБКА(ДВССЫЛ("A"&НАИМЕНЬШИЙ(ЕСЛИ(ЕПУСТО($A$1:$A$33);"";СТРОКА($A$1:$A$33));СТРОКА(A1)));"")

К сообщению приложен файл: akksimo.xlsx (9.0 Kb)

Ответить

Hugo

Дата: Пятница, 21.03.2014, 01:01 | Сообщение № 3

Группа: Друзья

Ранг: Участник клуба

Сообщений: 3255

Репутация: 707 ±

Замечаний: 0% ±

2019

Выделить диапазон и выполнить макрос:
[vba]

Код

Sub tt()
     Dim c As Range, s$, col As New Collection, i&

     For Each c In Selection.Cells
         If Len(c.Value) Then
             s = s & vbLf & c.Value
         Else
             col.Add Mid(s, 2)
             s = ""
         End If
     Next
     ReDim a(1 To col.Count, 1 To 1)
     For i = 1 To col.Count
         a(i, 1) = col(i)
     Next
     Workbooks.Add(1).Sheets(1).[A1].Resize(UBound(a), 1) = a
End Sub

[/vba]

excel@nxt.ru
webmoney: E265281470651 Z422237915069

Ответить

Мир MS Excel » Вопросы и решения » Вопросы по Excel » Объединение строк в столбце (Формулы/Formulas)

Страница 1 из 1
1