excel表格编码怎么取消自动递增

1.excel 打印自动增加编号

Sub AscendPrint()

dim Copies as integer,Index as integer

Copies=val(inputbox（"打印份数"，"消息"，1）)

Index=val(getsetting("AscendPrint","Default","Index",1))

if Index<1 then Index=1

if Copies<1 then Copies=1

for i=1 to Copies

Index=Index+1

on error resume next

activesheet.cells(2,8)= "NO:" & application.text(Index,"0000000000")

if err.number then activesheet.cells(2,8).value= "NO:" & application.text(Index,"0000000000")

activesheet.PrintOut Copies:=1

doevents

next

savesetting "AscendPrint","Default","Index",Index

End Sub

更多的功能，可参见 百---宝。箱..V/1/0.0