Форумы HiProg.com - MS ACCESS, VBA, VB

ник: АлаяЗаря

.Range(.Cells(2, 1), .Cells(12,1)).Select .Application.DisplayAlerts = False .Application.Selection.Merge .Range(.Cells(13,1), .Cells(17,1)).Select .Application.DisplayAlerts = False .Application.Selection.Merge .Range(.Cells(2, 1), .Cells(17,1)).Copy .Range(.Cells(2, 2), .Cells(17,3)).Select .Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _ SkipBlanks:=False, Transpose:=False . Application.CutCopyMode = False

вот excel с макросом не объдинение ячеек пор определенному алгоритму (откроете поймете по какому). Тут же вопрос: если например записей ну тысяч 7, то выпонение макроса занимает ну минуты 2 у меня на ноуте (4 gb memory). можно ли облегчить макрос? или же выполнять ряд действий аксом, еще до экспорта в ексель? или тут ничего не поделаешь?

П.С. Макрос переписывал 3 раза в итоге с 8 экранов удалось опуститься на 1 =)

!!! макрос который macro1 находиться в модуле 2!!! просто macro это старый и он не работает