EXCEL怎样一次快速建立31天表格呢，每一天是一个工作簿，表头都一样，31个，谢谢

1、在同一个工作簿中插入31个工作表；
2、选中第一个工作表后按住shift键，再点击最后一个工作表，此时31个工作表均处于被选中状态；
3、按照要求编辑表头、格式以及所有表的共同之处，然后单击任意一个工作表名称。
此时即按照楼主意思建立了31张具有很多共性的表格，修改共性的地方也按此操作即可。
希望对你有用

先完善一张表（表头），按组合键ALT+F11弹出VBA编辑窗，双击左侧的ThisWorkBook，将以下代码复制到右侧的编辑区，单击上部工具栏的“向右三角符号”按钮执行它（或通过宏来执行它），完成任务

'以下为需要复制的代码

Sub AddSheets()
'
'本示例代码将在本工作簿中 按当月天数复制当月工作表，并按日期对表名赋值
'操作前请先将需要复制表的内容（如表头等）填写完整

Dim i As Integer
Dim DaysInt As Integer
Dim NameStr As String

'当月有多少天
DaysInt = DateAdd("m", 1, Now) - Now

'准备表名
NameStr = Month(Now) & "-"

'禁止提示
Application.DisplayAlerts = False

'删除其它工作表
For i = Sheets.Count To 1 Step -1
If Sheets(i).Name <> ActiveSheet.Name Then
Sheets(i).Delete
End If
Next

'第一张表名赋值
ActiveSheet.Name = NameStr & "1"

'复制工作表并按日期赋值表名
For i = 2 To DaysInt
Sheets(1).Copy After:=Sheets(Sheets.Count)
Sheets(Sheets.Count).Name = NameStr & CStr(i)
Next

'恢复提示
Application.DisplayAlerts = True

End Sub

1、打开EXCEL空白页面，在sheet1上点击右键插入，需要插入28个工作表；
2、选中sheet1表后按住shift键，再点击最后一个工作表，此时31个工作表均处于被选中状态；
3、按照需要编辑表头、格式以及所有表的共性点，
4、点击工作表任意位置，退出被选中状态即可。
你可以试试，不算太麻烦的。

插入多个表格或改变默认的3个为31个表格，全选各个表格同时在某一个表格输入表头就会自动同步。应该有所帮助的。