帮我用VBA写一个获取本年本月前三天至今天的日期到E11-E14单元格中

以下是VBA代码：

Sub GetDate()

Dim startDate As Date
Dim endDate As Date

startDate = DateSerial(Year(Date), Month(Date), Day(Date) - 3)
endDate = Date

Range("E11").Value = Format(startDate, "yyyy-mm-dd")
Range("E12").Value = Format(startDate + 1, "yyyy-mm-dd")
Range("E13").Value = Format(startDate + 2, "yyyy-mm-dd")
Range("E14").Value = Format(endDate, "yyyy-mm-dd")

End Sub

这段代码将本年本月前三天至今天的日期分别存储在E11-E14单元格中。可以将代码复制到VBA编辑器中，并在需要的时候运行它。