VBA案例精选 快速输入指定日期

代码运行结果：

代码截图：

代码文本：

Public Sub 技巧()

Dim myRange As Range

Cells.Clear     '删除工作表的数据

Set myRange = Range("A1:A20")    '指定任意的单元格区域

With myRange.Cells(1)

.Value = #5/20/2006#    '设定初始日期

.AutoFill Destination:=myRange, Type:=xlFillDays

End With

Set myRange = Nothing

End Sub

注释：

with的用法：通俗点讲with的作用就是简化代码，让代码简洁易懂，比如上方代码：With myRange.Cells(1)，在后面的 .Value = #5/20/2006#  前方都省略掉了With myRange.Cells(1)。