VBA Excel 单元格中的单独日期范围

Excel VBA自动生成日期范围文章

vba
Function GenerateParagraph(startDate As Date, endDate As Date) As String
    Dim paragraph As String
    paragraph = "从 " & Format(startDate, "yyyy年m月d日") & " 到 " & Format(endDate, "yyyy年m月d日") & "，我们进行了一系列的工作和活动。"
    ' 在这里可以根据具体需求继续添加相关内容
    GenerateParagraph = paragraph
End Function

vba
Sub GenerateArticle()
    Dim article As String
    Dim startDate As Date
    Dim endDate As Date
    
    article = "" ' 初始化文章内容
    
    ' 遍历日期范围所在的列
    For Each cell In Range("A2:A" & Cells(Rows.Count, 1).End(xlUp).Row)
        startDate = cell.Value
        endDate = cell.Offset(0, 1).Value
        
        ' 调用生成段落的函数，并将生成的段落拼接到文章中
        article = article & GenerateParagraph(startDate, endDate) & vbCrLf & vbCrLf
    Next cell
    
    ' 将文章内容输出到单元格中
    Range("C2").Value = article
End Sub