求EXCEL不同位置的单元格实现连续编号？

Question

求EXCEL不同位置的单元格实现连续编号？例如单元格A1，A10 F1 F10 我设置A1编号是201601 那么在A10怎么设置才能根据A1号码连续，F1怎么设置才能根据A10连续，以此类推？谢谢，求公式

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)