Ещё раз спасибо.

В общем то для сортировки данных столбца "А", кстати тут у меня маленькое неудобство, т.е. в отсортированном столбике нули лишние, и не должно быть дубликатов.

Здравствуйте!  
Подскажите как прописать построение числовых рядов в строках таблицы, по отношению к левому крайнему столбику, таким образом чтобы после числа 45 ряд начинался с 1.  
Спасибо.

Спасибо!

Здравствуйте!  
Подскажите как перевести число из двоичной состемы в десятеричную, если запись зачения двоичной системы в разных ячейках.

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

Дело в том что данные меняются часто, и итогом нужно оперативно оперировать дальше, изучив тему в постах, понимаю что это не совсем просто.  
Спасибо, но эти варианты решения, не то.

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

Здравствуйте.  
В таблице нужно отсортировать числовые данные по двум смежным столбикам , первый сортируем (отсортировал, подобрав тут формулу), значения второго должны располагаться соответственно значениям отсортированных значений в первом столбике ( по примеру вторая таблица).  
Спасибо.

В первом ряду массива (1,2,3,4,5,) обозначенного бирюзовым цветом отсутствуют числа 7,14,17,21,36 поэтому в яч.Р2 значение "0", во втором ряду того же массива  
присутствует только число 7, поэтому в яч.Q2 стоит 1, в третьем ряду присутствует число 14 и 17, яч.R2 значение 2... и.т.д. посчитать формулой.

Здравствуйте.  
Необходимо с помощью формулы в 6-ти рядах ( бирюзовый массив)найти значения ряда В3...F3 (по примеру B2...F2)с выводом результата в ряд P3:U3.  
Спасибо.

{quote}{login=Михаил С.}{date=19.05.2011 11:52}{thema=}{post}Формула для условия "0". Для остальных по аналогии{/post}{/quote}  
Спасибо, по моему то что нужно.

{quote}{login=vikttur}{date=19.05.2011 11:03}{thema=}{post}Пока не понял... Можно подробнее?{/post}{/quote}  
к примеру, для условии "0"(таб.1) в столбике D4-D360, находятся два значения "0",  
это D184, D200, под ними на строку ниже D185.D201 находятся два одинаковых значения -4,  
которые в итоге как в сумме 2шт. отображены в таб.2,яч.Р5, поле матрицы (L5:AA20, для условия "0"),  
для значения "0"-строка 5, обозначенного в яч. К5....

{quote}{login=ikki}{date=19.05.2011 11:06}{thema=}{post}гм...  
это не "пример расчёта"  
это "пример готового результата, непонятно как полученного"  
имхо.{/post}{/quote}  
Да, это результат, но рассчитан почти в ручную для теста, тест дал положительные результаты, поэтому возникла необходимость автоматизировать это дело.

В поле матриц 15х15,таб.№2,для условий - 0,1,2,3,4,5 таб.№1 начиная с порядкового  
номера 1, необходимо отобразить выборку значений на одну строку ниже  
от заданного числа.Для примера взято "Условие 0" (таб1) значение 1;

{quote}{login=Ди :)}{date=22.09.2010 01:32}{thema=}{post}Правда.. дополнительная табличка (массив) получится...  
Но это можно и на другом листе делать.{/post}{/quote}  
В общем есть некоторые неудобства в использовании этого варианта, ибо " приёмник "  
в последующем является файлом данных для последующей обработки, но подстроюсь под эту ситуацию, поэтому вариант приемлем.  
Спасибо !

{quote}{login=}{date=22.09.2010 01:01}{thema=}{post}?????? !  
Неужели невозможно .{/post}{/quote}  
Где то тут, в какой то теме встречал, что Office 2007 решает этот вопрос .

{quote}{login=}{date=20.09.2010 07:28}{thema=}{post}  
поподробнее{/post}{/quote}  
Спасибо. Подробнее пока не нужно, ибо всё кажется так, разве что возникнут вопросы  
по ходу действий.

Вот несколько часов просидел в поисках такой формулы...  
если кратко, нужно скопировать числовой массив из m - строк n - столбиков из одной книги excel в другую формулой, одну ячейку просто, а вот массивом не выходит.  
Спасибо.

Пасиба за советы....

Кидаю код мож кто разберется???  
 
Function СклонятьСлово(ByVal п_Слово As String, ByVal п_Падеж As String, ByVal п_Пол As String, ByVal п_Фамилия As Byte) As String  
   ' Определение локальных переменных  
   Dim СС, Падеж, ПБ1, ПБ2, ПБ3, Пол, Окончание As String  
   Dim ДлСС, Фам As Byte  
     
   СС = LCase(Trim(п_Слово))  
   Падеж = Left(LCase(Trim(п_Падеж)), 1)  
   ПБ1 = Right(СС, 1)  
   ПБ2 = Left(Right(СС, 2), 1)  
   ПБ3 = Left(Right(СС, 3), 1)  
   Пол = Left(LCase(Trim(п_Пол)), 1)  
     
   ДлСС = Len(СС)  
   Фам = п_Фамилия  
     
   ' Обработка нестандартных слов  
   If СС = "лев" Then  
       If Падеж = "р" Then Окончание = "ьва"  
       ElseIf Падеж = "д" Then Окончание = "ьву"  
       ElseIf Падеж = "в" Then Окончание = "ьва"  
       ElseIf Падеж = "т" Then Окончание = "ьвом"  
       ElseIf Падеж = "п" Then Окончание = "ьве"  
       End If  
       СС = Left(CC, 1) & Окончание  
   СклонятьСлово = СС  
   Exit Function  
     
   ElseIf СС = "павел" Then  
       If Падеж = "р" Then Окончание = "ла"  
       ElseIf Падеж = "д" Then Окончание = "лу"  
       ElseIf Падеж = "в" Then Окончание = "ла"  
       ElseIf Падеж = "т" Then Окончание = "лом"  
       ElseIf Падеж = "п" Then Окончание = "ле"  
       End If  
       СС = Left(CC, 3) & Окончание  
   СклонятьСлово = СС  
   Exit Function  
   End If  
         
         
   ' Обработка окончания  
   If ПБ1 = "а" Then  
       If ПБ2 = "к" Then  
           If Падеж = "р" Then Окончание = "и"  
               ElseIf Падеж = "д" Then Окончание = "е"  
               ElseIf Падеж = "в" Then Окончание = "у"  
               ElseIf Падеж = "т" Then Окончание = "ой"  
               ElseIf Падеж = "п" Then Окончание = "е"  
           End If  
           СС = Left(CC, ДлСС - 1) & Окончание  
       ElseIf ПБ2 = "ц" Then  
           If Падеж = "р" Then Окончание = "ы"  
           ElseIf Падеж = "д" Then Окончание = "е"  
           ElseIf Падеж = "в" Then Окончание = "у"  
           ElseIf Падеж = "т" Then Окончание = "ей"  
           ElseIf Падеж = "п" Then Окончание = "е"  
           End If  
           СС = Left(CC, ДлСС - 1) & Окончание  
       Else  
           If (Фам = 1) And (Пол = "ж") Then  
               If (ПБ2 = "в") Or (ПБ2 = "н") Then  
                   If Падеж = "р" Then Окончание = "ой"  
                   ElseIf Падеж = "д" Then Окончание = "ой"  
                   ElseIf Падеж = "в" Then Окончание = "у"  
                   ElseIf Падеж = "т" Then Окончание = "ой"  
                   ElseIf Падеж = "п" Then Окончание = "ой"  
                   End If  
                   СС = Left(CC, ДлСС - 1) & Окончание  
               Else  
                   If Падеж = "р" Then Окончание = "ы"  
                   ElseIf Падеж = "д" Then Окончание = "е"  
                   ElseIf Падеж = "в" Then Окончание = "у"  
                   ElseIf Падеж = "т" Then Окончание = "ой"  
                   ElseIf Падеж = "п" Then Окончание = "е"  
                   End If  
                   СС = Left(CC, ДлСС - 1) & Окончание  
               End If  
           Else  
               If Падеж = "р" Then Окончание = "ы"  
               ElseIf Падеж = "д" Then Окончание = "е"  
               ElseIf Падеж = "в" Then Окончание = "у"  
               ElseIf Падеж = "т" Then Окончание = "ой"  
               ElseIf Падеж = "п" Then Окончание = "е"  
               End If  
               СС = Left(CC, ДлСС - 1) & Окончание  
           End If  
       End If  
   ElseIf ПБ1 = "б" Then  
       If Падеж = "р" Then Окончание = "а"  
       ElseIf Падеж = "д" Then Окончание = "у"  
       ElseIf Падеж = "в" Then Окончание = "а"  
       ElseIf Падеж = "т" Then Окончание = "ом"  
       ElseIf Падеж = "п" Then Окончание = "е"  
       End If  
       СС = CC & Окончание  
   ElseIf ПБ1 = "в" Then  
       If (ПБ2 = "а") Or (Фам = 0) Then  
           If Падеж = "р" Then Окончание = "а"  
           ElseIf Падеж = "д" Then Окончание = "у"  
           ElseIf Падеж = "в" Then Окончание = "а"  
           ElseIf Падеж = "т" Then Окончание = "ом"  
           ElseIf Падеж = "п" Then Окончание = "е"  
           End If  
           СС = CC & Окончание  
       Else  
           If Падеж = "р" Then Окончание = "а"  
           ElseIf Падеж = "д" Then Окончание = "у"  
           ElseIf Падеж = "в" Then Окончание = "а"  
           ElseIf Падеж = "т" Then Окончание = "ым"  
           ElseIf Падеж = "п" Then Окончание = "е"  
           End If  
           СС = CC & Окончание  
       End If  
   ElseIf (ПБ1 = "г") Or (ПБ1 = "д") Or (ПБ1 = "ж") Or (ПБ1 = "з") Or (ПБ1 = "к") Or (ПБ1 = "л") Or (ПБ1 = "м") Or (ПБ1 = "н") And (ПБ2 <> "и") And (ПБ2 <> "ы") Or _  
           (ПБ1 = "п") Or (ПБ1 = "р") Or (ПБ1 = "с") Or (ПБ1 = "т") Or (ПБ1 = "ф") Or (ПБ1 = "х") And (ПБ2 <> "и") And (ПБ2 <> "ы") Or (ПБ1 = "щ") Then  
       If (Фам = 1) And (Пол = "ж") Then  
           СклонятьСлово = СС  
           Exit Function  
       Else  
           If Падеж = "р" Then Окончание = "а"  
           ElseIf Падеж = "д" Then Окончание = "у"  
           ElseIf Падеж = "в" Then Окончание = "а"  
           ElseIf Падеж = "т" Then Окончание = "ом"  
           ElseIf Падеж = "п" Then Окончание = "е"  
           End If  
           СС = CC & Окончание  
       End If  
   ElseIf ПБ1 = "й" Then  
       If (Фам = 1) And (Пол = "ж") Then  
           СклонятьСлово = СС  
           Exit Function  
       ElseIf (ПБ2 = "и") And (ПБ3 = "к") Then  
           If Падеж = "р" Then Окончание = "ого"  
           ElseIf Падеж = "д" Then Окончание = "ому"  
           ElseIf Падеж = "в" Then Окончание = "ого"  
           ElseIf Падеж = "т" Then Окончание = "им"  
           ElseIf Падеж = "п" Then Окончание = "ом"  
           End If  
           СС = Left(CC, ДлСС - 2) & Окончание  
       ElseIf (ПБ2 = "и") And (ПБ3 = "ш") Or (ПБ3 = "щ") Then  
           If Падеж = "р" Then Окончание = "его"  
           ElseIf Падеж = "д" Then Окончание = "ему"  
           ElseIf Падеж = "в" Then Окончание = "его"  
           ElseIf Падеж = "т" Then Окончание = "им"  
           ElseIf Падеж = "п" Then Окончание = "ем"  
           End If  
           СС = Left(CC, ДлСС - 2) & Окончание  
       ElseIf (ПБ2 = "о") Or (ПБ2 = "ы") Then  
           If Падеж = "р" Then Окончание = "ого"  
           ElseIf Падеж = "д" Then Окончание = "ому"  
           ElseIf Падеж = "в" Then Окончание = "ого"  
           ElseIf Падеж = "т" Then Окончание = "ым"  
           ElseIf Падеж = "п" Then Окончание = "ом"  
           End If  
           СС = Left(CC, ДлСС - 2) & Окончание  
       ElseIf (ПБ2 = "а") Or (ПБ2 = "е") Or (ПБ2 = "и") Or (ПБ2 = "у") Or (ПБ2 = "э") Or (ПБ2 = "ю") Or (ПБ2 = "я") And (ПБ3 <> "к") Then  
           If Падеж = "р" Then Окончание = "я"  
           ElseIf Падеж = "д" Then Окончание = "ю"  
           ElseIf Падеж = "в" Then Окончание = "я"  
           ElseIf Падеж = "т" Then Окончание = "ем"  
           ElseIf Падеж = "п" Then Окончание = "е"  
           End If  
           СС = Left(CC, ДлСС - 1) & Окончание  
       End If  
   ElseIf (ПБ1 = "н") And ((ПБ2 = "и") Or (ПБ2 = "ы")) Then  
       If Фам = 1 Then  
           If Падеж = "р" Then Окончание = "а"  
           ElseIf Падеж = "д" Then Окончание = "у"  
           ElseIf Падеж = "в" Then Окончание = "а"  
           ElseIf Падеж = "т" Then Окончание = "ым"  
           ElseIf Падеж = "п" Then Окончание = "е"  
           End If  
           СС = CC & Окончание  
       Else  
           If Падеж = "р" Then Окончание = "а"  
           ElseIf Падеж = "д" Then Окончание = "у"  
           ElseIf Падеж = "в" Then Окончание = "а"  
           ElseIf Падеж = "т" Then Окончание = "ом"  
           ElseIf Падеж = "п" Then Окончание = "е"  
           End If  
           СС = CC & Окончание  
       End If  
   ElseIf (ПБ1 = "х") And ((ПБ2 = "и") Or (ПБ2 = "ы")) Then  
       СклонятьСлово = СС  
       Exit Function  
   ElseIf (ПБ1 = "ц") Or (ПБ1 = "ч") Or (ПБ1 = "ш") Then  
       If (Фам = 1) And (Пол = "ж") Then  
           СклонятьСлово = СС  
           Exit Function  
       Else  
           If Падеж = "р" Then Окончание = "а"  
           ElseIf Падеж = "д" Then Окончание = "у"  
           ElseIf Падеж = "в" Then Окончание = "а"  
           ElseIf Падеж = "т" Then Окончание = "ем"  
           ElseIf Падеж = "п" Then Окончание = "е"  
           End If  
           СС = CC & Окончание  
       End If  
   ElseIf ПБ1 = "ь" Then  
       If Пол = "м" Then  
           If Падеж = "р" Then Окончание = "я"  
           ElseIf Падеж = "д" Then Окончание = "ю"  
           ElseIf Падеж = "в" Then Окончание = "я"  
           ElseIf Падеж = "т" Then Окончание = "ем"  
           ElseIf Падеж = "п" Then Окончание = "е"  
           End If  
           СС = Left(CC, ДлСС - 1) & Окончание  
       Else  
           If Фам = 1 Then  
               СклонятьСлово = СС  
               Exit Function  
           Else  
               If Падеж = "р" Then Окончание = "и"  
               ElseIf Падеж = "д" Then Окончание = "и"  
               ElseIf Падеж = "в" Then Окончание = "ь"  
               ElseIf Падеж = "т" Then Окончание = "ью"  
               ElseIf Падеж = "п" Then Окончание = "и"  
               End If  
               СС = Left(CC, ДлСС - 1) & Окончание  
           End If  
       End If  
   ElseIf ПБ1 = "я" Then  
       If ПБ2 = "м" Then  
           If Падеж = "р" Then Окончание = "ени"  
           ElseIf Падеж = "д" Then Окончание = "ени"  
           ElseIf Падеж = "в" Then Окончание = "я"  
           ElseIf Падеж = "т" Then Окончание = "енем"  
           ElseIf Падеж = "п" Then Окончание = "ени"  
           End If  
           СС = Left(CC, ДлСС - 1) & Окончание  
       ElseIf ПБ2 = "и" Then  
           If Падеж = "р" Then Окончание = "и"  
           ElseIf Падеж = "д" Then Окончание = "и"  
           ElseIf Падеж = "в" Then Окончание = "ю"  
           ElseIf Падеж = "т" Then Окончание = "ей"  
           ElseIf Падеж = "п" Then Окончание = "и"  
           End If  
           СС = Left(CC, ДлСС - 1) & Окончание  
       ElseIf ПБ2 = "а" Then  
           If Падеж = "р" Then Окончание = "ой"  
           ElseIf Падеж = "д" Then Окончание = "ой"  
           ElseIf Падеж = "в" Then Окончание = "ую"  
           ElseIf Падеж = "т" Then Окончание = "ой"  
           ElseIf Падеж = "п" Then Окончание = "ой"  
           End If  
           СС = Left(CC, ДлСС - 1) & Окончание  
       Else  
           If Падеж = "р" Then Окончание = "и"  
           ElseIf Падеж = "д" Then Окончание = "е"  
           ElseIf Падеж = "в" Then Окончание = "ю"  
           ElseIf Падеж = "т" Then Окончание = "ей"  
           ElseIf Падеж = "п" Then Окончание = "е"  
           End If  
           СС = CC & Окончание  
       End If  
   End If  
СклонятьСлово = СС  
 
End Function

Сохрани или перенеси макрос в личную книгу макросов  
скрытый файл personal.xls

Не нашел никакой возможности просклонять слово встроенными ф-ями пришлось написать свою ф-ю котораяя склоняла бы слово по падежам.... может я это зря и есть какой-то более простой способ???  
 
Но дело не в этом эта ф-я при обращении к ней выдает нелепую ошибку (Else without If....) я все проверил этой ошибки быть не должно.... Да и еще в 1С эта ф-я работает безотказно....    
 
Такой вопрос может ли это быть связанно с глюками во встр VBA???? и еще если кто сталкивался с необходимостью склонять слова может поможет.  
 
Код функции скину, если потребуется...