Question

Excel 宏 单元格中自动增加序号

Excel中，某个单元格（比如D1）中输入有“第x页”（x表示任意数字），现要求设计一个宏，在运行宏时，将此D1单元格中的“第x页”自动增加1，比如原来此格中是“第5页”，运行宏后，自动将此单元格变为“第6页”。注意，由于整个工作表的关系，这三个字（即“第x页”）必须在一个单元格内，而不能分别在三个单元格中。
请高手给写出这个宏的宏代码。

Answer 1

Sub 页数递增()
Selection.AutoFill Destination:=Range("D1:E1"), Type:=xlFillDefault
Range("D1:E1").Select
Range("E1").Select
Range("E1").Cut Destination:=Range("D1")
Range("D1").Select
End Sub

'先选中D1单元格。

Answer 2

逻辑实现是很简单，不过，没有一些限定条件效率会很低。
理由：
如果此单元格在sheet中的任意位置，特别是如果一个文件有几个sheet的话，要知道2003版的一个sheet的单元格个数有65536×256，全查效率会很低的！

Answer 3

不要用查找，最好能固定在某个单元格，这样会方便的

Sub test()

Dim num As Integer
Dim strlen As Integer
Dim tempstr As String

tempstr = Trim(ActiveSheet.Range("D1").Value)
strlen = Len(tempstr)

num = Val(Mid(tempstr, 2, strlen - 1))

num = num + 1

ActiveSheet.Range("D1").Value = "第" & num & "页"

End Sub