怎实现在Excel里每次增加一个工作表时流水号都会加上1

在Workbook的Newsheet事件下，写入代码，进行累加就行。
比如以下，新增一个工作表，即在sheet1的A1单元格中增加一
Private Sub Workbook_NewSheet(ByVal Sh As Object)
Sheet1.Range("a1") = Sheet1.Range("a1") + 1
End Sub

请再补充一下问题

用一个绝对引用就可以了