Справочник функций

Ваш аккаунт

Войти через: 
Забыли пароль?
Регистрация
Информацию о новых материалах можно получать и без регистрации:

Почтовая рассылка

Подписчиков: -1
Последний выпуск: 19.06.2015

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

44K
18 ноября 2008 года
tortitina
1 / / 18.11.2008
Помогите, пожалуйста. В Exele есть строки содержимое двух из ячеек совпадает, надо объединить такие строки. Например,
Иванов [COLOR="White"]Москва [/COLOR] январь [COLOR="White"]2008 [/COLOR] Петрова
Иванов Москва [COLOR="White"]январь[/COLOR] 2008
Надо объединить всё в одну строку.

Иванов Москва январь 2008 Петрова
Если вместо слов цифры срабатывает консолидация. Но надо именно со словами. Как это можно сделать? :confused:Подскажите, кто знает, пожалуйста.
44K
18 ноября 2008 года
The_Prist
4 / / 13.11.2008
Цитата: tortitina
Помогите, пожалуйста. В Exele есть строки содержимое двух из ячеек совпадает, надо объединить такие строки. Например,
Иванов [COLOR="White"]Москва [/COLOR] январь [COLOR="White"]2008 [/COLOR] Петрова
Иванов Москва [COLOR="White"]январь[/COLOR] 2008
Надо объединить всё в одну строку.

Иванов Москва январь 2008 Петрова
Если вместо слов цифры срабатывает консолидация. Но надо именно со словами. Как это можно сделать? :confused:Подскажите, кто знает, пожалуйста.



Если я правильно понял суть вопроса, то попробуйте так:

Sub Перенос()
sr = 2
If Cells(sr, 1).Value = Cells(sr - 1, 1).Value Then
Cells(sr - 1, 1).Value = Cells(sr - 1, 1).Value
If Cells(sr, 2).Value = "" Then
Cells(sr, 2).Value = Cells(sr - 1, 2).Value
End If
If Cells(sr, 3).Value = "" Then
Cells(sr, 3).Value = Cells(sr - 1, 3).Value
End If
If Cells(sr, 4).Value = "" Then
Cells(sr, 4).Value = Cells(sr - 1, 4).Value
End If
If Cells(sr, 5).Value = "" Then
Cells(sr, 5).Value = Cells(sr - 1, 5).Value
End If
End If
End Sub

Только после написания ответа увидел, что у Вас некоторые слова выделены белым и поэтому их не видно сразу.
Так что не могли бы Вы подробнее пояснить - Вам нужно объеденить ячейки в одну цельную либо что-то еще?

Реклама на сайте | Обмен ссылками | Ссылки | Экспорт (RSS) | Контакты
Добавить статью | Добавить исходник | Добавить хостинг-провайдера | Добавить сайт в каталог