我帮你写了。 是你点打印预览或者打印时加1,自动排到5位。
ALT F11 VB界面中 找工程窗口,选择 THISWORKBOOK 双击 将下面代码复制进去,关闭后打开 SHEET1 A1单元格 就会 自动加 1Private Sub Workbook_Open()Sheets("Sheet1").SelectCells(1, 1) = Cells(1, 1) + 1End Sub
现在我也在找这个方法。
自动生成个序号,右侧下拉就是了