Страницы: 1
RSS
Убрать объединение ячеек макросом
 
Добрый день. Как можно макросом убрать объединение ячеек со всего листа ?  
 
Пробовал макрорекордером записать, ничего не получилось. Вышло три листа кода, но не работает в режиме макроса...(
 
Попробуйте так:  
Sub qqq()  
Dim rCell As Range  
   For Each rCell In ActiveSheet.UsedRange  
       rCell.UnMerge  
   Next  
End Sub
 
Спасибо Вам, Юрий М. То что нужно, а то я с этими объединенными ячейками уже замучался.
 
{quote}{login=Xxs}{date=02.12.2011 04:12}{thema=Убрать объединение ячеек макросом}{post}  
Пробовал макрорекордером записать, ничего не получилось. Вышло три листа кода, но не работает в режиме макроса...({/post}{/quote}  
Записал макрорекордером:  
 
Sub Xxs()  
   Cells.Select  
   Selection.UnMerge  
End Sub  
 
Работает...  
 
ЗЫ И вручную это секунду занимает...
Страницы: 1
Читают тему
Наверх