| Вопрос: Объединение ячеек с сохранением данных | Добавлено: 04.09.07 11:09 |
Автор вопроса:  Dmitry
|
|
Please HELP!!
Как в Excel программно объеденить ячейки так, чтобы в результатирующей ячейке сохранились данные и из 1-ой и из 2-ой. Он по умолчанию оставляет данные только из левой верхней ячейки. формат данных - текст |
| Ответы | Всего ответов: 2 |
|
Номер ответа: 1 Автор ответа:  Deggasad Вопросов: 0 Ответов: 6 |
Профиль | | #1 | Добавлено: 04.09.07 11:54 |
|
Вот когда-то делал
Sub Test()
Dim irow As Range, icel As Range, mergeVal As String Application.DisplayAlerts = False For Each irow In Selection.Rows For Each icel In irow.Cells If icel.Value <> "" Then mergeVal = mergeVal & icel.Value & " " Next icel If mergeVal <> "" Then irow(1).Value = Left(mergeVal, Len(mergeVal) - 1) mergeVal = "" irow.Merge Next irow Application.DisplayAlerts = True End Sub |
||
|
Номер ответа: 2 Автор ответа: DmitryВопросов: 4 Ответов: 2 |
Профиль | | #2 | Добавлено: 04.09.07 12:28 |
|
СПАСИБО!!!!
ЗАРАБОТАЛО!!! |
||
Страница: 1 |