EXCEL表格自动填充日期，怎样让每十行填充同一个日期？

Posted 2023-05-04

1、本次演示所使用的软件为Excel办公软件，使用的版本为Microsoft office plus2013。

2、首先打开Excel电子表格并在表格中输入用于演示Excel表格自动填充日期，让同一个日期每十行重复填充操作所需要的数据。

3、选中我们输入的日期并选择下方的十行单元格。

4、将鼠标移动到选中区域的右下角，当鼠标指针变成实心十字符号时，向下拖拽。

5、点击悬浮按钮并选择复制单元格，可以看到此时我们已经完成了每十行填充同一个日期的操作。

参考技术A

软件版本：Office2007

方法如下：

1.以B1日期为基础，每10行填充同一个日期，且递增1：

2.输入公式如下所示：

3.往下拖动填充，就可以得到结果：

参考技术B 1，可以用CTRL+;自动填写当前的日期；
2，用鼠标点中日期单元格，往下拉，拉十行就可以了，选择复制或者是序列，如果同一日期选择复制就可以。 参考技术C A1
=TEXT("2013-06-1"+INT((ROW(A1)-1)/10),"e-mm-dd")
下拉本回答被提问者采纳 参考技术D

EXCEL表格自动填充日期，让每十行填充同一个日期的具体步骤如下：

我们需要准备的材料分别是：电脑、EXCEL表格。

1、首先我们打开需要编辑的EXCEL表格，进入到编辑页面中。

2、然后我们选中十行单元格，之后将鼠标光标放到第十个单元格右下角，等光标变成黑色十字。

3、然后我们下拉填充单元格，之后选择“复制单元格”即可。

在 Excel VBA 中使用动态范围自动填充表格

【中文标题】在 Excel VBA 中使用动态范围自动填充表格

【英文标题】：Autofill a table with a dynamic range in Excel VBA

【发布时间】：2018-06-28 01:45:18

【问题描述】：

我正在尝试使用基于日期的可变范围自动填充表格（例如，日期范围为 2018 年 6 月 10 日 - 2018 年 6 月 13 日，它从 2018 年 6 月 10 日到 6 日的最后一行自动填充13/2018)。

到目前为止，这是我的代码，在自动填充步骤中它会引发不匹配错误：

Set Table = Adspend.Worksheets("Summary").ListObjects("Spend")
Set TableCell = Table.Range.Cells(2, Table.ListColumns(1).Index)

LastRow = Table.Range.Columns(1).Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row

If IsEmpty(Table.Range.Cells(2, Table.ListColumns(1).Index)) = True Then
Table.Range.Cells(2, Table.ListColumns(1).Index) = 
Adspend.Worksheets("Summary").Range("B1").Value
End If


If TableCell.Value < Adspend.Worksheets("Summary").Range("C1").Value Then
        DatePeriod = Adspend.Worksheets("Summary").Range("C1").Value - 
TableCell.Value

        NewDate = LastRow + DatePeriod



        Table.Range.Cells(2, Table.ListColumns(1).Index).AutoFill Destination:=Table.Range(Cells(LastRow, Table.ListColumns(1)), Cells(NewDate, Table.ListColumns(1)))




End If

【参考方案1】：

如果 Spend 表的第一列在 O 列中并且其下方没有任何内容，请将自动填充切换为使用 O 列中的最后一个日期值和 C1 中的整数作为停止点的数据系列。

Option Explicit

Sub Macro1()
    Dim datePeriod As Long

    With Worksheets("Summary")
        datePeriod = .Range("C1").Value

        With .Cells(.Rows.Count, .ListObjects("Spend").Range.Column).End(xlUp)
            .DataSeries Rowcol:=xlColumns, Type:=xlChronological, _
                        Date:=xlDay, Step:=1, Stop:=.Value + datePeriod
        End With
    End With
End Sub

如果您想将其转换为 ListObject 语法，这应该不难，但带有停止的 DataSeries 应该比自动填充到目标范围更容易。

【讨论】：

嘿，您实际上在我的工作表中发现了一个错误。我遇到的问题是表格的开头是未知的，并且不在 O 中。我将更新上面的代码以反映 lastrow 不应该在 O 中，而是在表格的第一列。

已编辑以反映未知的第一列。

嘿，谢谢您的解决方案，但它填写了从开始日期到结束时间的日期。我需要它填写从 LastRow 中的日期到 C1 中的结束日期

我以为 datePeriod 是一个代表天数的整数。如果是实际停止日期，则将Stop:=.Value + datePeriod 更改为Stop:=datePeriod。