Я сомневаюсь, что смогу сделать это лучше, чем это сделано в стандартной справке Excel. Посмотрите раздел справки по этой функции.
Если коротко, мы указываем функции ПОИСКПОЗ массив {a,b,c,d,...,y,z} и спрашиваем, а какой по счету будет элемент 'd'. Она ответит 4. Если элемент не будет найден в массиве - ответит ошибкой.

По-моему, проще понять, как работает СУММПРОИЗВ - это пошагово посмотреть вычисления функции для массива в 5-10 элементов.

(диапазон = значение) формирует вектор (массив) из нулей и единиц.
например: {0,1,0,0,1}
Когда мы такой вектор умножаем на вектор с нужными значениями сумм, например
{123, 54, 27, 789, 999}
Останутся только те значения, где в первом векторе 1.

Результатом произведения будет число - сумма тех элементов, где была 1, т.е. там, где было выполнено условие (диапазон = значение).

Если условий несколько, то и векторов с нулями и единицами нужно делать несколько.

Интуиция не подвела

Пожалуйста, Танбраун.

Есть же ведь объект Selection, который можно проверить в начале макроса.
Если нужно, сделайте Intersect с нужной областью, проверьте "пересечение".

На самом деле, не очень понятно, что нужно.
Может, и не то, что я сделал.
Судил по уже существующему на листе УФ.

Танбраун, подумайте, как упростить формулировку задачи.

Добавил диапазон "Ведомость" (будьте осторожны с объединением ячеек )
Добавил условное форматирование.

В ячейке А1 текст "АБВГД \ фолврафоырваофырвалофрываорфылоралофвырао"
АБВГД получим формулой =ПСТР(A1,1,ПОИСК("\",A1)-1)
Можно еще СЖПРОБЕЛЫ добавить.

Пробуйте следующий макрос

Sub Копи_строк()
   Dim i As Long
   If IsNumeric([H1].Value) Then
       Application.ScreenUpdating = False
       For i = 1 To [H1].Value
           Rows("15:15").Copy
           Rows(Cells(Rows.Count, 1).End(xlUp).Row + 1).Insert shift:=xlDown
       Next i
       Application.CutCopyMode = False
       Application.ScreenUpdating = True
   End If
End Sub

В какой ячейке находится значение количества повторов?

А если динамический диапазон вычислять макросом, а не функцией Смещ?

Т.е. сначала удалять именованые диапазоны, а затем добавлять расчитанные макросом.
ID справки: HV10327883 (Names.Add Method)

Мой вариант в приложении.
Просматривается каждый N-й элемент, если его сумма меньше существенной, и до него еще не было набрано нужно количество элементов, он помечается.
Формула, правда, "перевернута" с ног на голову

35 лет назад, 18 марта родился тот человек, благодаря которому сейчас мы имеем возможность общаться, решать головоломки в Excel, помогать друг другу на этом форуме.  
И в связи с этим:  
 
Николай, с днем рождения!!!  
Пусть работа всегда будет в радость!  
Здоровья сынишке и всяческих благ Вашей семье!

Спасибо!  
Вариант остался спецвставкой.  
 
Жаль, что обычным протягиванием не получается.

Тоже давно мучаюсь с этой проблемой.  
Копирование - вставка формул - это вариант.  
 
А если в формуле часть аргументов должна сдвигаться, а часть оставаться на месте?  
Например, ВПР значений из первого столбца Таблицы.  
Заполняем второй столбец формулой ВПР, тянем вправо, чтобы заполнить всю таблицу и "Искомое_значение" тоже сдвигается. А как его закрепить в виде структурированной ссылки?

{quote}{login=Bond}{date=27.11.2011 10:41}{thema=}{post}Разве в файлах офиса 2007 и выше тоже бинарным совпадением подбирается пароль?{/post}{/quote}  
 
Пароли на листы вроде да.  
 
А на проект VBA?

Разве в файлах офиса 2007 и выше тоже бинарным совпадением подбирается пароль?

http://www.planetaexcel.ru/forum.php?thread_id=34628  
 
Да и поиск по форуму есть.  
Думаю, тут тема рассылок из Excel с помощью Outlook обсуждалась и не один раз. Популярный вопрос.

После того, как создали Item  
'OutApp.CreateItem(0)  
меняем свойства  
.Body и .Subject этого item-a.  
 
Все это есть в коде:  
<==================================>  
With OutMail  
                       .To = mailAddress  
                       .subject = ThisWorkbook.Sheets("Mailinfo").Range("D1").Value  
                       '.Attachments.Add NewWB.FullName  
                       .body = ThisWorkbook.Sheets("Mailinfo").Range("D2").Value  
                       .Display  'Or use Send  
                   End With  
<==================================>  
И даже Attachments закомментированы.  
 
Задержку можно сделать, например, таким циклом:  
Start = Timer  
Do while Timer < Start+60: Loop

Если файл с макросом вида xlsm или xlam то можно в файл зашить добавление иконки на Ribbon в любое место. Как своей иконки 16x16 (или 32х32) или по msoID - т.е. встроенную.  
 
Например, можно создать свою закладку для надстройки. А там уже можно на ПБД вытянуть кнопку.  
Подойдет такой вариант?

Надо вставить    
 
 
В какое-то место. Из описания не очень ясно в какое.

С одного сайта:  
 
Before we look at UDF's in detail I should point out that UDF's do not have the same flexibility as a standard Procedure. a UDF cannot alter the structure of a Worksheet, such as change the Worksheet name, turn off gridlines, protect the Worksheet etc. They cannot change a physical characteristic of a cell, including the one that houses the UDF. So we cannot use a UDF to change the font colour, background colour etc of any cell. They cannot be used to try and change any part of another cell in any way at all. This means a UDF cannot place a value into any other cell except the cell housing the UDF. A UDF cannot use many of Excels built in features such as AutoFilters, AdvancedFilters, Find, Replace to name but a few!  
 
 
Для примера попробуйте выполнить пару макросов.  
 
Function UDF(rng As Range)              
   Call ttt  
   UDF = 5  
End Function  
 
Sub ttt()  
   Cells(1, 1) = 3  
End Sub

А чем проблема-то? :)  
Не работает функция или считает криво?  
 
|a^2+bx^3|  
и  
Malyshev = Sqr(Abs(A ^ 2 + B * X ^ 2))  
 
b*x^3 должно быть вроде.  
 
Sqr не понятно зачем.

На сколько я понял, можно и для 2007-2010 Excel предлагать ответы.  
Концепция - используем объект "таблица", чтобы было проще вносить данные, и формулы автоматически переопределяли диапазон.  
Стараемся обойтись без сводных таблиц, чтобы их не обновлять вручную. И уж тем более без макросов.  
Сделан запас на появление 2-х линий. Когда данные появятся, они сами подтянутся в итоговые таблицы.  
 
P.S. - чем больше монитор - тем лучше.

А что уже есть?  
Чем обычный ввод российского шестизначного индекса как простого числа не нравится?

1. Функцией СУММЕСЛИ  
2. Сводной таблицей

Может быть не нужно удалять таблица, а достаточно обновить ее содержимое через  
ActiveSheet.PivotTables("PivotTable1").RefreshTable  
 
А если изменился диапазон исходных данных для таблицы, то изменить SourceData

У Вас получается, что "итого" состоит из (расходы + налоги).  
И от "итого" нужно вычислить "налоги".  
Т.е. налоги = (расходы + налоги) * 1%  
Вот и цикл получается.  
 
На мой взгляд, налоги надо выносить отдельной строкой. Как-то так:  
Итого Расходы  
Итого Налоги = (Итого Расходы)*1%  
Итого

Только я хотел поднять эту тему.  
А оказывается "вот оно чё".  
Пошел регистрироваться на excelworld

Есть еще более локальные праздники. В отдельных республиках, например. Может где-то и в день города выходной устраивают. Это точно MS не решит.  
Я бы все-таки делал локальную базу с выходными днями того или иного региона. Встроил бы в надстройку и UDF уже работала бы с учетом этого.  
 
Данные с сайта теоретически можно стянуть макросом (парсер html).  
Но есть добрые люди, которые это дело уже в Excel выкладывают.  
Например:  
http://variant52.ru/kalendar/proizvodstvennui-kalendar-2012.htm

Именованных диапазонов в файле не нашел.  
Есть группы ячеек с "заголовком".  
Если все-таки сделать именованные диапазоны - формулы можно сделать проще.  
Посмотрите справку о функции ДВССЫЛ  
 
Если по-топорному, то так: