VBA Excel 循环遍历一年中的所有日期

VBA Excel 是一种功能强大的编程语言，可以用于自动化处理电子表格数据。在日常工作中，我们经常需要对一年中的所有日期进行遍历操作，以便做出相应的计算或分析。在本文中，我们将介绍如何使用 VBA Excel 循环遍历一年中的所有日期，并且为了更好地组织内容，我们将在文章中添加一些标签来对不同的内容进行分类。

vba
Sub CalculateAverageTemperature()
    Dim date As Date
    Dim temperatures(1 To 365) As Variant
    Dim averageTemperature As Double
    Dim i As Integer
    
    For i = 1 To 365
        date = DateSerial(Year(Date), 1, i)
        temperatures(i) = InputBox("请输入" & Format(date, "yyyy年mm月dd日") & "的气温：")
    Next i
    
    averageTemperature = WorksheetFunction.Average(temperatures)
    Range("A1").Value = "平均气温："
    Range("B1").Value = averageTemperature
End Sub