В вашем коде написано:  
 
.Cells(i, 26) = WorksheetFunction.AveDev(Range("U2:X2"), Range("U3:X3"), Range("U4:X4"), Range("U5:X5"), Range("U6:X6"), Range("U7:X7"), Range("U8:X8"), Range("U9:X9"), Range("U10:X10"), Range("U11:X11"), Range("U12:X12"),Range("U13:X13"), Range("U14:X14"), Range("U15:X15"), Range("U16:X16"))  
 
То есть для всех строк будет одно и тоже значение, может быть надо вместо этой строки писать:  
.Cells(i, 26) = WorksheetFunction.AveDev(Range("U" & i & ":X" & i))  
 
Чтобы для каждой строки считалось свое значение, как вы ниже и делаете.

Большое спасибо, все заработало.

В вашем файле не обрабатываются ситуации, с отрицательными значениями в колонках N, O, P. Вы пишите ЕСЛИ, и что возвращается в случае положительного значения, а что делать в случае отрицательного - нет.

Помогите разобраться. Объединение ячеек работает для любого диапазона, но только не для первой колонки, если диапазон в один столбец.  
 
Private Sub MergeProc()  
   Dim oWord  
   Set oWord = CreateObject("Word.Application")  
   oWord.Visible = True  
   oWord.Documents.Add  
 
   Set Range1 = oWord.Documents(1).Range(Start:=0, End:=0)  
   Dim Table1  
   Set Table1 = oWord.Documents(1).Tables.Add(Range1, 3, 4)  
 
   Table1.Rows.Add  
   ' Это работает  
   Set myRange = oWord.Documents(1).Range(Table1.Cell(2, 4).Range.Start, Table1.Cell(3, 4).Range.End)  
   myRange.Cells.Merge  
   ' А для первой колонки не работает  
   Set myRange = oWord.Documents(1).Range(Table1.Cell(2, 1).Range.Start, Table1.Cell(3, 1).Range.End)  
   myRange.Cells.Merge  
End Sub

{quote}{login=KukLP}{date=18.01.2012 08:46}{thema=Re: }Сюда загляните:  
<EM>http://forum.msexcel.ru/microsoft_excel/kak_vybrat_tochku_razdelitelem_desyatichn­yh_razryadov_tolko_dlya_dannoy_knigi-t7031.0.html</EM>  
{/post}{/quote}  
 
Спасибо, а зачем на activate deactivate делать?

Не очень понятно, так как в вашем случае скорее всего будут все значения вставляться одно за другим в одно место. Какие страницы и документы создаются? Не понятно.

Это не совсем решение, так как если в первом или втором есть повторение, то ячейки будут закрашены.

Можно в установить символ разделителя в Параметрах/Дополнительно, но это будет глобальная замена запятой на дефис.

У меня при замене шрифта проблемная строка и на печати, и при просмотре стала занимать ровно две строки, так в принципе и должно быть, так как шрифты TrueType.  
Откуда у вас вообще появился шрифт Arial Cyr? Его в принципе не должно быть. Чем файл создается?

Примеры не всегда возможны. В моем случае помог совет из форума msdn, пришлось бить на формы. Теперь запускается и работает. Так что все-таки есть какая-то проблема, возникающая в слишком больших модулях и формах.

Вот описана похожая проблема:  
 
http://social.msdn.microsoft.com/Forums/en-SG/exceldev/thread/cb7577d5-60fb-4eeb-8b02-ce4ec50c529e  
 
Только у меня вылетает после первого же запуска.

Если форму сильно облегчить, то запускается несколько раз.  
И на другой-то машине работает. :(

При переносе макроса на другой компьютер он запускается один раз.  
При попытке повторного запуска выдается сообщение о том, что произошла ошибка и открытие файла невозможно. Исправляется только копированием файла сверху.  
Что это может быть? Любые идеи.  
Есть подозрение, что проблема в размере макроса. Есть ли какие-нибудь ограничения или переменные, которые можно подправить, чтобы этого избежать? Так как разбиение на несколько форм займет неделю. :(  
 
Переношу с 32-х разрядной версии офиса на 64-х разрядную.

В прикрепленном файле вариант решения в том случае, если это у вас дисперсия по генеральной совокупности (ДИСПРА), если по выборке, то нужна функция (ДИСПА).  
Потом два правила для условного форматирования. Можно все это записать и в виде макроса.

Функция ВПР(), которая ищет значения из второго столбца в первом.