объединить ячейки сохранив форматирование и пустые строки
БИТ
Дата: Пятница, 17.07.2015, 13:25 |
Сообщение № 1
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 169
Репутация:
0
±
Замечаний:
40% ±
Excel 2010
Всем привет! Вопрос заключается в том как объединить (сцепить) ячейки сохранив форматирование то есть цвет текста и не учитывать пустые ячейки то есть каждый новый субъект должен находится на новой строке в одной и той же ячейке (количество строк всегда разное и пустоты встречаются в разнообразном порядке) Заранее спасибо!
Всем привет! Вопрос заключается в том как объединить (сцепить) ячейки сохранив форматирование то есть цвет текста и не учитывать пустые ячейки то есть каждый новый субъект должен находится на новой строке в одной и той же ячейке (количество строк всегда разное и пустоты встречаются в разнообразном порядке) Заранее спасибо! БИТ
Сообщение отредактировал БИТ - Пятница, 17.07.2015, 13:36
Ответить
Сообщение Всем привет! Вопрос заключается в том как объединить (сцепить) ячейки сохранив форматирование то есть цвет текста и не учитывать пустые ячейки то есть каждый новый субъект должен находится на новой строке в одной и той же ячейке (количество строк всегда разное и пустоты встречаются в разнообразном порядке) Заранее спасибо! Автор - БИТ Дата добавления - 17.07.2015 в 13:25
китин
Дата: Пятница, 17.07.2015, 13:33 |
Сообщение № 2
Группа: Модераторы
Ранг: Экселист
Сообщений: 7034
Репутация:
1079
±
Замечаний:
0% ±
Excel 2007;2010;2016
вариантов тьма.а один из них: вариант приложить файл.не гадают тут по руке
вариантов тьма.а один из них: вариант приложить файл.не гадают тут по руке китин
Не судите очень строго:я пытаюсь научиться ЯД 41001877306852
Ответить
Сообщение вариантов тьма.а один из них: вариант приложить файл.не гадают тут по руке Автор - китин Дата добавления - 17.07.2015 в 13:33
KSV
Дата: Пятница, 17.07.2015, 13:36 |
Сообщение № 3
Группа: Друзья
Ранг: Ветеран
Сообщений: 770
Репутация:
255
±
Замечаний:
0% ±
Excel 2013
здесь смотрели? только вместо строки[vba]Код
.Cells(i) = Range1(i) & Range2(i)
[/vba] нужно написать[vba]Код
.Cells(i) = Range1(i) & vbLf & Range2(i)
[/vba]
здесь смотрели? только вместо строки[vba]Код
.Cells(i) = Range1(i) & Range2(i)
[/vba] нужно написать[vba]Код
.Cells(i) = Range1(i) & vbLf & Range2(i)
[/vba]KSV
KSV.VBA@gmail.com Яндекс.Деньги: 410011921213333
Сообщение отредактировал KSV - Пятница, 17.07.2015, 13:40
Ответить
Сообщение здесь смотрели? только вместо строки[vba]Код
.Cells(i) = Range1(i) & Range2(i)
[/vba] нужно написать[vba]Код
.Cells(i) = Range1(i) & vbLf & Range2(i)
[/vba]Автор - KSV Дата добавления - 17.07.2015 в 13:36
БИТ
Дата: Пятница, 17.07.2015, 13:36 |
Сообщение № 4
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 169
Репутация:
0
±
Замечаний:
40% ±
Excel 2010
исправился!!
Ответить
Сообщение исправился!! Автор - БИТ Дата добавления - 17.07.2015 в 13:36
БИТ
Дата: Пятница, 17.07.2015, 13:37 |
Сообщение № 5
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 169
Репутация:
0
±
Замечаний:
40% ±
Excel 2010
есть возможность формулой?
есть возможность формулой? БИТ
Ответить
Сообщение есть возможность формулой? Автор - БИТ Дата добавления - 17.07.2015 в 13:37
китин
Дата: Пятница, 17.07.2015, 13:54 |
Сообщение № 6
Группа: Модераторы
Ранг: Экселист
Сообщений: 7034
Репутация:
1079
±
Замечаний:
0% ±
Excel 2007;2010;2016
есть.для первых 5 строчек примерно так будетКод
=ЕСЛИ(G1="";"";G1&СИМВОЛ(10)&" ")&ЕСЛИ(G2="";"";G2&СИМВОЛ(10))&ЕСЛИ(G3="";"";G3&СИМВОЛ(10))&ЕСЛИ(G4="";"";G4&СИМВОЛ(10))&ЕСЛИ(G5="";"";G5&СИМВОЛ(10))&ЕСЛИ(G6="";"";G6&СИМВОЛ(10))
оно вам надо? и это безКод
новый субъект должен находится на новой строке в одной и той же ячейке
и без сохранения форматирования
есть.для первых 5 строчек примерно так будетКод
=ЕСЛИ(G1="";"";G1&СИМВОЛ(10)&" ")&ЕСЛИ(G2="";"";G2&СИМВОЛ(10))&ЕСЛИ(G3="";"";G3&СИМВОЛ(10))&ЕСЛИ(G4="";"";G4&СИМВОЛ(10))&ЕСЛИ(G5="";"";G5&СИМВОЛ(10))&ЕСЛИ(G6="";"";G6&СИМВОЛ(10))
оно вам надо? и это безКод
новый субъект должен находится на новой строке в одной и той же ячейке
и без сохранения форматирования китин
Не судите очень строго:я пытаюсь научиться ЯД 41001877306852
Сообщение отредактировал китин - Пятница, 17.07.2015, 14:09
Ответить
Сообщение есть.для первых 5 строчек примерно так будетКод
=ЕСЛИ(G1="";"";G1&СИМВОЛ(10)&" ")&ЕСЛИ(G2="";"";G2&СИМВОЛ(10))&ЕСЛИ(G3="";"";G3&СИМВОЛ(10))&ЕСЛИ(G4="";"";G4&СИМВОЛ(10))&ЕСЛИ(G5="";"";G5&СИМВОЛ(10))&ЕСЛИ(G6="";"";G6&СИМВОЛ(10))
оно вам надо? и это безКод
новый субъект должен находится на новой строке в одной и той же ячейке
и без сохранения форматирования Автор - китин Дата добавления - 17.07.2015 в 13:54
БИТ
Дата: Пятница, 17.07.2015, 14:43 |
Сообщение № 7
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 169
Репутация:
0
±
Замечаний:
40% ±
Excel 2010
у кого еше какие идеи?
у кого еше какие идеи? БИТ
Ответить
Сообщение у кого еше какие идеи? Автор - БИТ Дата добавления - 17.07.2015 в 14:43
KSV
Дата: Пятница, 17.07.2015, 17:30 |
Сообщение № 8
Группа: Друзья
Ранг: Ветеран
Сообщений: 770
Репутация:
255
±
Замечаний:
0% ±
Excel 2013
А каких идей вы ждете? Если в ячейке формула, то объект Characters не возвращается. Как вы будете форматировать? А сцепить текст, с пропуском пустых ячеек, проще простого, например, так (UDF)[vba]Код
Function СцепитьПоСтрокам(Target As Range) As String For Each Target In Target.Cells If Len(Target) Then СцепитьПоСтрокам = СцепитьПоСтрокам & vbLf & Target Next СцепитьПоСтрокам = Mid$(СцепитьПоСтрокам, 2) End Function
[/vba]
А каких идей вы ждете? Если в ячейке формула, то объект Characters не возвращается. Как вы будете форматировать? А сцепить текст, с пропуском пустых ячеек, проще простого, например, так (UDF)[vba]Код
Function СцепитьПоСтрокам(Target As Range) As String For Each Target In Target.Cells If Len(Target) Then СцепитьПоСтрокам = СцепитьПоСтрокам & vbLf & Target Next СцепитьПоСтрокам = Mid$(СцепитьПоСтрокам, 2) End Function
[/vba] KSV
KSV.VBA@gmail.com Яндекс.Деньги: 410011921213333
Ответить
Сообщение А каких идей вы ждете? Если в ячейке формула, то объект Characters не возвращается. Как вы будете форматировать? А сцепить текст, с пропуском пустых ячеек, проще простого, например, так (UDF)[vba]Код
Function СцепитьПоСтрокам(Target As Range) As String For Each Target In Target.Cells If Len(Target) Then СцепитьПоСтрокам = СцепитьПоСтрокам & vbLf & Target Next СцепитьПоСтрокам = Mid$(СцепитьПоСтрокам, 2) End Function
[/vba] Автор - KSV Дата добавления - 17.07.2015 в 17:30