自动编号问题

ahzy2002

excel表格在有每一页小计，结束有总计的情况下，如何对有内容的行进行自动编号？请高手赐教！！！

ahzy2002

感谢

cattjiu

用VBA：
dim LineAll'区域
din NoFor'编号
DIM ROW1
lineall=activeshee.usedrange.rows.count
row1=x '开始编号位置
nofor=1
do while row<=lineall
if cells(row1,Y).value=需要编号的条件 then' Y为栏数
cells(row1,1).value=noFor'假定A栏放置编号
nofor=nfor+1
end if
row1=row1+1
loop
'------------
以上未做测试，应该可以。

[此贴子已经被cattjiu于2002-12-25 15:33:46编辑过]

ahzy2002

接着编号

cattjiu

每页重新编号还是接着前编号？