主题：编号请教？

 1、去学习vba知识；

 2、每个单元格的值，用vba知识，取表的值，赋值进去；

 3、不能通过模板实现移除行、自动编号和多个表

 呃.....只是叫你用vba删除对应的行和赋值，没有叫你计算。

 1、先计算所有的数据保存在一个地方；

 2、用vba操作excel赋值。

 参考代码

Dim file As String = "D:\B2-21-1会计报表附注-新会计准则.xls"

FileSys.CopyFile(file, "d:\temp.xls", True)

Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open("d:\temp.xls")
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
Dim Rg As MSExcel.Range = Ws.Rows("31:60")
Rg.Delete(MSExcel.XlDirection.xlUp)  '下面的单元格上移

'对应的把各个单元格的值赋值为其它

App.Visible = True

1、删除多少行？这个是要定死的，每个编号必须是固定的行数；

2、生成报表的按钮那里写