一个看似简单其实很难的问题，谁能完成这个我跪地叫三声

看来楼主是不可能公布答案了 ：O

Public Sub dizeng()
Dim i As Integer
Dim st1, st2 As String
st1 = Cells(1, 1)
i = CInt(Mid(st1, 21, 1))
i = i + 1
If i > 9 Then
i = 0
End If
st2 = (Left(st1, 20) & CStr(i) & Right(st1, 1))
Cells(1, 1) = st2
End Sub

好2的问题
像这样的问题就是加减法而已
但是因为Excel15位数以上的数字都会变成科学计数法，所以22位数字的后7位数字都会变成0，所以就分开截取数字加再&回来就行了

一个问题两个帖子，=18238298719732723000&row(B1)&5下拉