【原】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)。