EXCEL中表格编号如何在打印时自动+1

Question

表格上的编号要从191000001开始打印 每页要+1变成191000002
已经试过以下的但是弄不出 求解释和一步一步的操作

Sub 打印编码()ActiveWindow.SelectedSheets.PrintOut Copies:=1Range("D5") = Range("D5").Value + 1End Sub

Answer 1

你截图把 列都显示出来啊，我看着D5不仅有数字，数字前面还有编号啊
你试试这样行不
Sub 打印编码()
ActiveWindow.SelectedSheets.PrintOut Copies:=1
Range("D5") = "编号：" & val(right(range("D5"),len(Range("D5")-3)) + 1
End Sub追问

Sub 打印编码()
ActiveWindow.SelectedSheets.PrintOut Copies:=1
Range("A2") = Range("A2").Value + 1

ActiveWindow.SelectedSheets.PrintOut Copies:=1
Range("A10") = Range("A10").Value + 1End Sub

提问写错了，这样弄也弄不出

追答

Range("A2") = "编号：" & val(right(range("A2"),len(Range("A2")-3)) + 1

你线把A2改成这句，看看行不
A10 同理

Answer 2

我去 你这个完全不需要vba啊

只要你的表格是一摸一样的
拿么就非常简单了
"编号："&((ROW(a2)−2)÷3+191500002)
我这个是你假如这个表格是三行的，拿么就直接拉下去就是了

a2:编号的开始位置
2:这个你设置的是a2拿么就－2，如果是a3就减去3
3:这个看你表格多少行，11行就11追问