Excel表格中以日期为首列，使用VBA编写一个程序，可以自动将每周（每七天)数据中的的所有列进行平均，生成平均列。

非常感谢您的提问。这是一个编程类的问题，我可以回答。以下是一个示例代码，可以实现您的需求：

Sub AverageWeeklyData()
Dim lastRow As Long
Dim lastCol As Long
Dim startRow As Long
Dim endRow As Long
Dim i As Long
Dim j As Long
Dim k As Long
Dim weeklyAverage As Double

'获取最后一行和最后一列
lastRow = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
lastCol = ActiveSheet.Cells(1, Columns.Count).End(xlToLeft).Column

'循环遍历每一列
For j = 2 To lastCol
'获取当前列的起始行和结束行
startRow = 2
endRow = 8
k = 1

'循环遍历每一周的数据
Do While endRow <= lastRow
'计算当前周的平均值
weeklyAverage = WorksheetFunction.Average(Range(Cells(startRow, j), Cells(endRow, j)))

'将平均值写入新的列
Cells(k, lastCol + 1).Value = weeklyAverage

'更新起始行和结束行
startRow = endRow + 1
endRow = startRow + 6
k = k + 1
Loop
Next j
End Sub

请注意，此代码仅适用于每周数据的情况，如果您的数据不是每周的，您需要相应地更改代码。