у меня есть макрос, который правильно объединяет ячейки (в основном при работе с фильтрами),  
у меня есть макрос, который находит объединенные ячейки,  
у меня есть файл с более чем 20 000 неправильно объединенными ячейками.  
как создать цикл, который бы все эти ячейки правилно объединил.  
 
макросы прилагаются  
((((((ПРАВИЛЬНАЯ ГРУППИРОВКА))))))  
SUB ReMerge() ' перегруппировать сгруппированную ячейку или сгруппировать ячейки выделенного диапазона с заполнением скрытых ячеек формулами-ссылками на первую ячейку    
IF TypeName(Selection) <> "Range" THEN EXIT SUB    
IF Selection.Cells.Count <= 1 THEN EXIT SUB    
DIM i%, iCell AS Range, ActRng AS Range    
DIM ActSh AS Worksheet, TempSh AS Worksheet    
DIM lLastRow&: lLastRow = Cells.SpecialCells(xlLastCell).Row    
DIM lLastCol&: lLastCol = Selection.Column + Selection.Columns.Count - 1    
IF lLastRow > Selection.Row + Selection.Rows.Count - 1 THEN lLastRow = Selection.Row + Selection.Rows.Count - 1    
Set ActRng = Intersect(Selection, Range(Cells(Selection.Row, Selection.Column), Cells(lLastRow, lLastCol)))    
Application.ScreenUpdating = False: Application.DisplayAlerts = False    
 
Set ActSh = ActiveSheet: Set TempSh = Sheets.Add ' запомнить текущую и создать новую страницу    
ActRng.Copy TempSh.Range(ActRng.Address)    
ActSh.Activate    
Selection.UnMerge    
FOR i = 2 TO ActRng.Cells.Count ' заполнить Selection формулами-ссылками на первую ячейку    
ActRng(i).Formula = "=" & ActRng(1).Address    
ActRng(i).Replace What:="$", Replacement:="", LookAt:=xlPart ' сделать ссылки перемещаемыми    
NEXT    
TempSh.Range(ActRng.Address).Merge    
TempSh.Range(ActRng.Address).Copy: ActRng.PasteSpecial xlPasteFormats: TempSh.Delete    
Set ActSh = Nothing: Set TempSh = Nothing: Set ActRng = Nothing    
Application.ScreenUpdating = True: Application.DisplayAlerts = True    
END SUB  
 
 
((((((((((((ПОИСК ОБЪЕДИНЕННЫХ ЯЧЕЕК))))))))))))))  
 
 
SUB MCells()  
Application.FindFormat.MergeCells = True  
Cells.Find(What:="", After:=ActiveCell, MatchCase:=False, SearchFormat:=True).Activate  
END SUB  
 
 
 
(((((ПРИБЛИЗИТЕЛЬНЫЙ ЦИКЛ))))))))))  
 
0 ПОВТОРИТЬ ПОКА НЕ ДОСТИГЛИ КОНЦА ТАБЛИЦЫ  
1 ПОИСК ЯЧЕЙКИ  
2 ПРИМЕНЕНИЕ МАКРОСА  
 
 
Я, к сожалению не знаю синтаксиса(

Уважаемые форумчане,  
 
помогите пожалуйста решить задачу, очень похожую на ту, что обсуждается в этой ветке. Проблема в том, что я вообще не разбираюсь в программировании.  
 
Вобщем, имеется куча .xls файлов в одной папке.  
на листе 1 находится нужная информация.  
 
Требуется собрать всю информацию с этих файлов в один .xls для последующего анализа.    
(1.xls - пример документов, ИЗ которых берется информация. желтым обозначены ячейки нужные. Проблема в том, что в диапазоне R32C3 - R40C17 в разных файлах меняется количество строк, соответственно и расположение ячеек. изменяется от 1 до 7 строк обычно.  
2.xls - это таблица, которая должна получиться, В которую вставляются данные).    
 
Заранее благодарю за оказанную помощь!  
 
У меня Excel 2007.  
Некоторая информация указана в примечаниях.(R-Row- строка,С-column-столбец)  
Для удобства столбцы, которые не требуются в заполнении скрыты.