主题：编号请教？

请教编号问题，excel表中一列中不同的行原来编号为：一、简介，二、项目情况、三、投资预算、四、实际投资。。。。。

 例子发上来。

项目模板中删除任意一编号的内容，如：2、短期投资及所属内容后，后面自动编号。详见模板。请指教，这样的模板如何制作？模板中的内容来自不同的表？

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目18.zip

 1、去学习vba知识；

 

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

 

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

我感觉vba运行太慢，所以才学狐表的，因为涉及的数据太多，表有1000多张且相互要勾稽计算，看来又要走回头路了！！

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

 

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

 

 2、用vba操作excel赋值。

劳驾帮助写一段删除后自动编号的代码如何？看来回避vba还是不行呀！

 参考代码

 

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、生成报表的按钮那里写