在选定的行上自动填充日期

Question

如何自动填充所选行的日期，示例如下。我想在所选行中自动填充工作日以保持日期的连续性。

╔══════╦═══════╦═══════╦═══════╦═══════╦═══════╗
║ Date ║ 09.09 ║ 10.09 ║ 11.09 ║ 12.09 ║ 13.09 ║
╠══════╬═══════╬═══════╬═══════╬═══════╬═══════╣
║      ║       ║       ║       ║       ║       ║
╠══════╬═══════╬═══════╬═══════╬═══════╬═══════╣
║ Date ║ 16.09 ║ 17.09 ║ 18.09 ║ 19.09 ║ 20.09 ║
╠══════╬═══════╬═══════╬═══════╬═══════╬═══════╣
║      ║       ║       ║       ║       ║       ║
╠══════╬═══════╬═══════╬═══════╬═══════╬═══════╣
║ Date ║ 24.09 ║ 25.09 ║ 26.09 ║ 27.09 ║ 28.09 ║
╠══════╬═══════╬═══════╬═══════╬═══════╬═══════╣
║      ║       ║       ║       ║       ║       ║
╚══════╩═══════╩═══════╩═══════╩═══════╩═══════╝

Answer 1

我想建议最适合解决此问题的 VBA 宏：

• 从开发者标签点击设计模式然后打插入 接下来，从ActiveX 控件选择并绘制命令按钮。
• 双击这命令按钮打开 VB 编辑器并复制粘贴之间的代码Private Sub and End Sub。

• 节省并返回至工作表。

  Private Sub CommandButton1_Click()
   Dim Sdaterng As Range
   Dim Edaterng As Range
  
     Set Sdaterng = Application.InputBox(Prompt:="Select St.Range", Title:="Select Single Cell", Type:=8)
  
     Set Edaterng = Application.InputBox(Prompt:="Range to Auto Fill Date", Title:="Include Start Range", Type:=8)
  
  Sdaterng.Select
  Sdaterng = Date
  
  Selection.AutoFill Destination:=Edaterng, Type:=xlFillSeries
  
  End Sub
  

---

• 现在点击命令按钮。
• 对于第一个输入框，选择起始单元格。
• 按好的按钮。

• 然后在下一个输入框中选择填写日期范围（包括开始日期）。

• 最后完成好的按钮。

您获得选定范围内的日期。

注意：

• 您可以对另一个范围重复上述方法。
• 此方法可以水平和垂直创建日期列表。
• 根据需要调整开始和自动填充范围。