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

可以使用以下代码实现：

Sub AverageWeeklyData()
Dim lastRow As Long
Dim startDate As Date
Dim endDate As Date
Dim i As Long
Dim j As Long
Dim sum As Double
Dim count As Long

lastRow = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row

For i = 2 To lastRow
If IsDate(Cells(i, 1).Value) Then
startDate = Cells(i, 1).Value
endDate = startDate + 6
sum = 0
count = 0

For j = i To lastRow
If Cells(j, 1).Value >= startDate And Cells(j, 1).Value <= endDate Then
sum = sum + Cells(j, 2).Value '假设要计算第二列的平均值
count = count + 1
Else
Exit For
End If
Next j

Cells(i, 3).Value = sum / count '将平均值写入第三列
End If
Next i
End Sub

这个程序会从第二行开始遍历日期列，如果当前单元格是日期，则以该日期为起点，计算接下来七天的数据的平均值，并将结果写入第三列。注意，这个程序假设要计算的数据在第二列，如果要计算其它列的数据，需要修改代码中的相应部分。