excel怎么实现不同工作表中的连续编号?

建立一工作表，叫汇总。在 A1 单元格写上你的模板工作表的名称。(以下的宏会复制你的表作为每日的表）在A3 单元格写上工作表名称,在 A4 单元格写上每个表格日期的单元格位置，如 A1.从 A4 之后协商你要建立的表格的名称和日期。不能空行。（如图）把以下程序粘在 Visual Basic 模块中：Sub Procedure() Application.ScreenUpdating = False TemplateName = Sheets(汇总).[A1] UpdateRange = Sheets(汇总).[B3] RowNo = 4 TabName = Sheets(汇总).Cells(RowNo, 1) Do While TabName Sheets(TemplateName).Copy After:=Sheets(Sheets.Count) ActiveSheet.Name = TabName Range(UpdateRange) = Sheets(汇总).Cells(RowNo, 2) RowNo = RowNo + 1 TabName = Sheets(汇总).Cells(RowNo, 1) Loop Sheets(汇总).Select Application.ScreenUpdating = TrueEnd Sub按 Alt + F8 运行 Procedure 就好。