Excel VBA重复行和增加日期

Sub RepeatRows()
    Dim repeatRows As Integer
    Dim repeatContent As String
    Dim i As Integer
    
    repeatRows = 5 ' 需要重复的行数
    repeatContent = "重复内容" ' 需要重复的内容
    
    For i = 1 To repeatRows
        Cells(i, 1).Value = repeatContent
    Next i
End Sub

DateAdd(interval, number, date)

Sub AddDate()
    Dim originalDate As Date
    Dim numberOfDays As Integer
    Dim newDate As Date
    
    originalDate = Date ' 原始日期为当前日期
    numberOfDays = 7 ' 增加的天数
    
    newDate = DateAdd("d", numberOfDays, originalDate)
    
    Cells(1, 1).Value = newDate
End Sub