Имя пользователя:
Пароль:
 

Показать сообщение отдельно

Аватара для Pliomera

Технолог


Сообщения: 819
Благодарности: 117

Профиль | Отправить PM | Цитировать


Да уж. Гвозди забивать микроскопом. Циклы, объекты, куча переменных....

Решение:

Код: Выделить весь код
Sub UNM2()
ActiveCell.MergeArea.UnMerge
Selection.Value = ActiveCell
End Sub
Всё.

Последний раз редактировалось Pliomera, 03-04-2010 в 00:10.


Отправлено: 23:40, 02-04-2010 | #3