如何为列中的每个单元格插入20个日期

时间:2017-04-24 10:35:28

标签: excel ms-access

我已经获得了一个包含数字的excel列,我想创建一个新列,每个单元格内容重复20次,20个日期依次紧接着另一列。
如何在excel或access中实现这一目标?
例如,我有一个数字列如下:

0491703316
0235361458
0380458968
0240510098
0169346827
0147826672

我想这样做

0491703316 01/12/2016
0491703316 02/12/2016
0491703316 03/12/2016
0491703316 04/12/2016
......................
......................
0235361458 01/12/2016
0235361458 02/12/2016
0235361458 03/12/2016
0235361458 04/12/2016
........................
........................
........................
0380458968
0240510098
0169346827
0147826672

2 个答案:

答案 0 :(得分:1)

将Access中的范围链接为名为 LinkedTable 的链接表。

然后创建此查询:

PARAMETERS 
    Period Text ( 255 ), 
    Periods Short, 
    FirstDate DateTime;
SELECT DISTINCT
    LinkedTable.Number, 
    10*Abs([Deca].[id] Mod 10)+Abs([Uno].[id] Mod 10)+1 As Sequence,
    DateAdd([Period],[Sequence]-1,[FirstDate]) AS [DateStart]
FROM 
    LinkedTable,
    MSysObjects AS Uno, 
    MSysObjects AS Deca
WHERE 
    10*Abs([Deca].[id] Mod 10)+Abs([Uno].[id] Mod 10)<[Periods]

使用以下参数运行:

Period: d
Periods: 20
FirstDate: 2016-12-01

答案 1 :(得分:0)

假设0491703316在A1中,在B8中输入01/12/2016并复制到B28。复制B8:B28至B29。选择B8:B29并向下拖动到B133。在A8中输入=A1和A9:

=IF(B9=B$8,INDEX(A:A,MATCH(A8,A:A,0)+1),A8)

将A9复制到适合的地方。