Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Добавить строки недостающих календарных дней
 
#1
27.02.2021 17:45:09
Всем добрый день!

Имеется база данных в виде строк с датой в колонке "А" и базой чисел для них (колонки с B по M). Даты указаны с пн по пт, но иногда и рабочие выходные. Подскажите каким образом добавить строки с недостающими календарными датами (на строке только дата).

Пример: после строки 5 должны быть вставлены 2 строки с датами 19.12.2020 и 20.12.2020, после строки 10 строки с датами 26.12.2020, 27.12.2020  и так далее. То есть, необходимо привести базу к календарному виду. Желательно, перенос сразу всех колонок.

Благодарю за помощь!

 
 
 
 
#2
27.02.2021 17:49:18
Цитата
oleg9911 написал:
Желательно, перенос сразу всех колонок.
что это значит?
Не бойтесь совершенства. Вам его не достичь.
 
 
 
#3
27.02.2021 17:53:06
У меня есть вариант растягивания дат, но только с 1 колонкой данных. Так как тут 9 колонок цифр, то руками делать это будет долго. Логичнее, чтобы сразу все колонки (с B по M) вместе с датами привелись к календарному виду за раз. Речь об этом.
 
 
 
#4
27.02.2021 18:21:16
Цитата
после строки 5 должны быть вставлены 2 строки с датами 19.12.2020 и 20.12.2020
А что при этом должно быть в колонках с B по M?
 
 
 
#5
27.02.2021 18:26:39
Ничего - остаются пустыми. Необходимо добавить только строки с недостающими календарными датами. То есть, добавить строки и заполнить колонку А - датой.
 
 
 
#6
27.02.2021 18:28:23
Код
Sub InsertRow()
Dim iLastRow As Long
Dim i As Long
    iLastRow = Cells(Rows.Count, 1).End(xlUp).Row
    For i = iLastRow To 2 Step -1
      If Cells(i, 1) <> Cells(i - 1, 1) + 1 Then
        Rows(i).Insert
        Cells(i, 1) = Cells(i + 1, 1) - 1
        i = i + 1
      End If
    Next
End Sub
 
 
 
#7
27.02.2021 18:35:44
Цитата
Kuzmich написал:
С чем может быть связана ошибка?
 
 
 
#8
27.02.2021 18:40:03
oleg9911,
Вы макрос вставили в пример из первого сообщения?
 
 
 
#9
27.02.2021 18:40:16
oleg9911, ошибка - шестая часть картинки. У Вас нет сил обрезать лишнее? Да и без данных - гадание на картинках (ошибка данных) ...
 
 
 
#10
27.02.2021 18:47:25
oleg9911, вставил макрос от Kuzmich в ваш файл. Всё работает
Изменено: New - 27.02.2021 18:47:38
 
 
 
#11
27.02.2021 19:07:21
Цитата
Kuzmich написал:
Вы макрос вставили в пример из первого сообщения?
Нет. Прошу прощения.

Благодарю, всё отлично работает и главное быстро!
 
 
 
#12
28.02.2021 10:18:32
Товарищи, а реализовать такое в Power Query или Power Pivot возможно?
то есть также добавить строки с отсутствующими данными, но в значениях оставить не ноль, а 0,01 например.

очень нужно для расчета вариации спроса.

а то формула берет данные только по дням продаж, а нужно - весь выбранный период...  
 
 
 
#13
28.02.2021 11:00:42
del
Изменено: buchlotnik - 23.08.2021 15:31:41
Соблюдение правил форума не освобождает от модераторского произвола
 
 
 
#14
28.02.2021 11:07:01
Огромное спасибо!
это круто)
 
 
 
Страницы: 1
Наверх