用自定義函數：
在sheet表名字上?右鍵，查看代碼，打開代碼窗口，
然後在左邊資源管理器的空白處右鍵，插入模塊，把下面的代碼復制入其中模塊的代碼中，返回sheet表，就可以用這個自定義的函數了，ifun(?s?,?n?)
----------------
Function?iFun(s,?n)
?'參數說明
's?：?操作的字符串
'n?：?s中第壹串數字的增量
Dim?i,?j,?k
For?i?=?1?To?Len(s)
If?IsNumeric(Mid(s,?i,?1))?Then?j?=?i:?Exit?For
Next
If?j?=?0?Then?iFun?=?s:?Exit?Function
For?i?=?j?To?Len(s)
If?IsNumeric(Mid(s,?i,?1))?Then?k?=?k?+?1?Else?Exit?For
Next
iFun?=?Left(s,?j?-?1)?&?(n?+?Mid(s,?j,?k))?&?Right(s,?Len(s)?-?k?-?j?+?1)
End?Function
-----------------