excel如何实现不同工作表中的连续编号?

Question

我有一个excel文件,记录每个月每天的客户资料.这个excel文件是一个工作簿,里面有30个工作表.我现在每天要在每一张工作表的“日期”栏内，输入"1月1日","1月2日"……“1月30日”，我觉得这样好麻烦。有没有简单的方法，实现以下功能：
1。我建立了30张工作表，第1张到第30张，自动在每张工作表的固定单元格内填写上“1月1日”，“1月2日”……“1月30日”

2。假如我只建立了一张工作表，是“1月1日”，我用“移动或复制工作表”这个操作，新建的工作表自动在指定单元格上就填写了“1月2日”，对“1月2日”工作表进行复制操作，自动在指定单元格内出现“1月3日”，以此类推。

3。同样，工作表的命名能批量吗？

请详细说明操作步骤，谢谢大家！！

Answer 1

建立一工作表，叫"汇总"。

在 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 = True

End Sub

按 Alt + F8 运行 Procedure 就好。

Answer 2

不如你做一个31天的模版 每个月更新一次文件 备份上个月的数据就可以了
非要用复杂的方法 节省不了多少工作量 反而容易出问题
画蛇添足

Answer 3

可以，但需要VBA编程。

Answer 4

能不能批量我也不清楚，但是你可以复制粘贴啊