shushpanio

Александр Владимиров, У вас не объявлено создание листа после создания книги.
Добавьте строку вот тут

Private Sub Дан_Экзамен_Initialize()
k = 4
Workbooks.Add

Worksheets.Add.Name = "List" -- вот эту строку вот в этом месте

Ном1 = ActiveWorkbook.Worksheets(List).Cells(k, 1)

И еще когда вы ссылаетесь на прямое название листа (в вашем случае List) то он должен быть записан не List а "List" именно в кавычках.

P.S. Дальше макрос выдаст ошибку на строке Номер.Value = Ном1
Но к сожалению особо времени нет переписывать за Вас весь макрос целиком.

Но на заданый вопрос ответ тут есть :-)

Дмитрий, а вы часом не под call-центр график составляете? если так то рекомендую поискать в сторону WFM-систем.
Ну или поищите информацию о надстройке калькулятор Эрланга для Excel
Есть пара примеров как составить расписание под малый Call-центр. Если это то что нужно пишите - пришлю ссылку на видео

ну как вариант:
1. делаем отдельный лист (script) на который скрипт например в А1 будет писать значение timestamp.
2. Нужную ячейку на листе 1 формулой приравниваем к новой ячейке (=script!A1) и защищаем ее от выделения и т.д.
3. лист script делаем скрытым ну или супер скрытым.

1. Разверните ваш диапазон данных что бы новые данные добавлялись не справа, а снизу.
2. Выделяем новый диапазон -> Вставка - Таблица.
3. Строим нужную диаграмму по получившейся таблице.
Это сделает Ваш диапазон динамической таблицей и при добавлении новой строки данные автоматически подтянутся в диаграмму

Это называется Диаграмма Ганта

Вкладка Данные - Фильтр - Дополнительно.

Ставите отметку переместить результат в диапазон и наслаждаетесь

все проще.
У Excel есть помимо кнопочек закрыть/свернуть/развернуть в верхнем правом углу экрана (кнопки самого Excel) аналогичные кнопки чуть ниже для открытой книги. Нажми там развернуть

считаете по условию:
если(дата2<дата1;дата1-дата2;дата2-дата1)

По поводу объединенных ячеек - это кране плохо в расчетных столбцах. (у меня всегда появляется желание оторвать автору таких шаблонов расчетных листов руки)
Если везде в таблице к каждому значению Дата1 имеется по 2 значения Дата2 то напишите для первой даты Дата1 формулу 2 раза и потом копируйте блоком из 2-х ячеек

Интересующий Вас раздел в Excel это вкладка Данные.

Там найдете подключение к Access

Сетка которая отображена на экране это границы печати, но не границы таблицы.
Как правило появляется при переходе в Обычный режим после того как файл просматривался в Страничном режиме

Сводим все в 1 массив.
Данные-Удалить дубликаты - выбираем по столбцу с URL.

Результат получаем без танцев с бубном и кучи формул.

P.S. В результате останется первое уникальное вхождение URL

У меня вопрос - как Вы в файл xlsx который вмещает в себя 1 048 576 строк втолкали более 2 млн?
Быть может у Вас выгрузка csv с разделителями?

Excel хранит числовые форматы так:
Формат отрицательных значений; Формат для 0; Формат положительных значений.

т.е. Бок1;Блок2;Блок3, а у вас Бок1;Блок2;Блок3;Бок4;Блок5;Блок6 вот и причина ошибки

UPD: Корректнее так:
<ПОЛОЖИТЕЛЬНЫЕ>;<ОТРИЦАТЕЛЬНЫЕ>;<НУЛЕВЫЕ>;<ТЕКСТ>

1. Со всех файлов в 1 столбец собираете номер платежа (например в столбец А)
2. В столбец (например С) копируем полученный список.
3. Выделяем столбец С - Вкладка Данные - Удалить Дубликаты
т.о. получаем список без дублей
4. В столбце D пишем формулу (для ячейки D2) =СЧЁТЕСЛИ(A:A;C2), Где A:A - столбец всех номеров платежей (с дублями), C2 - номер платежа без дубля. И протягиваем формулу вниз
5. По столбцу D ставим фильтр значений =1 (т.к. нам необходимо получить список платежей которые есть только в файле №5, то это те платежи которые принимают значения в п.4 только 1).
6. дальше полученный в п.5 список переносим в файл №5 и получаем по ним соответствующие строки.
Тут уж как душе удобно Индекс/ВПР/ГПР и прочие BDSM-игрушки Excel

А формула не прокатит?

Для ячейки С2 пишем =ЕСЛИ(A2<2;A2*B2;A2)

На скрине результат работы.



Ну а потом делаете сумму по столбцу

Кстати если есть всегда №, то можно текст по столбцам-с разделителем-указать разделитель №