Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Дублирование дат
 
#1
27.05.2017 11:56:01
Есть небольшая задачка ))
либо макрос может решить или формула )))
У меня есть столбец с датами, но дата должна копироваться два раза

27/05/2017
27/05/2017
28/05/2017
28/05/2017

и так до конца года необходимо
 
 
 
#2
27.05.2017 12:41:25
Задача не совсем понятна. Вы хотите задваивать даты из какого-то списка или каждый новый день должна появляться два раза новая дата?
Если в мире всё бессмысленно, — сказала Алиса, — что мешает выдумать какой-нибудь смысл? ©Льюис Кэрролл
 
 
 
#3
27.05.2017 12:47:08
Bema, я этот список сам формирую.

мне необходимо чтобы даты были до конца года
и каждый день дублировался
это все для формулы
 
 
 
#4
27.05.2017 12:49:46
Homavi, у Вас в примере УЖЕ двойные даты.  
 
 
 
#5
27.05.2017 12:50:36
Homavi, здравия. Покажите два столбца с датами - исходный и что должно получиться в итоге. Можно сделать и макросом, и формулой, но Вы не показали ИСХОДНЫЕ данные.

Формула массива (ФМ) вводится Ctrl+Shift+Enter
Memento mori
 
 
 
#6
27.05.2017 13:02:08
Так попробуйте:
=ИНДЕКС($C$1:$C$31;ОКРВВЕРХ(СТРОКА()/2;1))
Если в мире всё бессмысленно, — сказала Алиса, — что мешает выдумать какой-нибудь смысл? ©Льюис Кэрролл
 
 
 
#7
27.05.2017 13:25:43
Код
Sub MacroDoubleDate()
Dim DateStart As Date, DateFinish As Date, iDays As Long
    DateStart = "27.05.2017"
    DateFinish = "31.12.2017"
    iDays = (DateFinish - DateStart) * 2
    ReDim arr(1 To iDays + 2, 1 To 1)
    For i = 1 To UBound(arr) Step 2
        arr(i, 1) = DateStart
        arr(i + 1, 1) = DateStart
        DateStart = DateStart + 1
    Next
    Range("A1").Resize(i - 1, 1).Value = arr
End Sub
 
 
 
#8
27.05.2017 13:51:43
Юрий М, ругается на первую исходную дату
 
 
 
#9
27.05.2017 13:53:14
.
 
 
 
#10
27.05.2017 13:54:03
Цитата
Homavi написал:
ругается на первую исходную дату
У меня не ругается. Дата, как дата.
 
 
 
#11
27.05.2017 13:54:26
Я сделал даты двойные за первое полугодие
все это вручную (( очень долго и можно запутаться (((

вот в таком образе нужно сделать до конца года
 
 
 
#12
27.05.2017 14:03:45
Homavi, Вы хоть скрин покажите, как ругается. А ещё лучше макрос в Вашем файле.
 
 
 
#13
27.05.2017 14:36:04
Код
Sub DoubleDate()
    
    For i = 42745 To 43100
        For x = Cells(Rows.Count, 8).End(xlUp).Row + 1 To Cells(Rows.Count, 8).End(xlUp).Row + 2
            Cells(x, 8) = i
            Cells(x, 8).NumberFormat = "dd.mm.yyyy"
        Next x
    Next i

End Sub
 
 
 
#14
27.05.2017 15:58:03
Garni, спасибо ))) работает
 
 
 
#15
27.05.2017 18:57:45
Странно: а у меня не работает? ))
 
 
 
#16
27.05.2017 19:08:02
Цитата
Юрий М Вы хоть скрин покажите, как ругается. А ещё лучше макрос в Вашем файле.
)))))
 
 
 
#17
27.05.2017 23:54:21
Вписать в ячейки две одинаковые даты.
В ячейку ниже:
=A1+1
Протянуть формулу по строкам.
 
 
 
Страницы: 1
Читают тему
Наверх