紧急求助，送分报答

Question

dim i as integer
dim strTemp as stringfor i=1 to NumberOfRow   '
  strTemp=sheets("SheetName").cell(i,1)
  sheets("SheetName").cell(i,1)=Val(left(strTemp,1)+1) & substr(strTemp,2)
next i

Answer 1

也可以用MID()取第一位计算后写回

Answer 2

http://www.csdn.net/Expert/topic/442/442453.shtm

Answer 3

谢谢各位。第一位不会是9的。：）方法有了。怎么在excel里用到这个宏那？

Answer 4

第一位, 而且第一位肯定是小于9的数字。我不会用。 这个方法怎么在excel用那？